¿Cómo encontrar todas las sumas posibles de dos números en una lista en Excel?

Si necesita encontrar todas las sumas posibles de dos números en una lista o enumerar todas las combinaciones posibles de dos listas en Excel, no hay funciones integradas que puedan lograr esto directamente. Esta guía introduce una solución con código VBA para calcular sumas y la utilidad Listar todas las combinaciones en Kutools para Excel para manejar combinaciones de manera eficiente.

Encuentra todas las sumas posibles de dos números en una lista con código VBA

Encuentra todas las combinaciones posibles de dos listas con Listar todas las combinaciones

Encuentra todas las sumas posibles de dos números en una lista con código VBA

Si desea encontrar todas las sumas posibles de dos números en una lista, puede aplicar el siguiente código VBA.

1. Presione las teclas Alt + F11 para mostrar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, copie y pegue el siguiente código en el módulo.

VBA: Enumerar todas las sumas posibles de dos números en una lista

Sub Combinations()
'UpdatebyExtendoffice20180628
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "KuTools for Excel", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

3. Haga clic en Herramientas > Referencias, en el cuadro de diálogo que aparece, marque la casilla de verificación Microsoft Scripting Runtime.

4. Haga clic Aceptar para cerrar el cuadro de diálogo, luego presione F5 para ejecutar el código. Aparecerá un cuadro de diálogo, solicitándole que seleccione una lista para calcular las sumas posibles.

5. Haga clic Aceptar, luego se mostrarán todas las sumas posibles de dos números de la lista en la columna C.

Consejo: En la cadena de código Rango("C1").Redimensionar(xDic.Conteo, 1), puede cambiar C1 a cualquier otra celda donde desee colocar los resultados.

Encuentra todas las combinaciones posibles de dos listas con Listar todas las combinaciones

Si desea enumerar todas las combinaciones posibles de dos listas, como se muestra en la captura de pantalla a continuación, la Listar Todas Combinaciones utilidad de Kutools para Excel puede hacerle un favor.

1. Haga clic Kutools > Insertar > Listar todas las combinaciones.

2. En el Listar todas las combinaciones cuadro de diálogo, haga clic en el botón seleccionar para elegir la primera lista que combinará.

3. Haga clic Agregar para agregar la lista en la Lista de combinaciones sección.

4. Repita los pasos 2 y 3 para agregar la segunda lista a la Lista de combinaciones.

5. Luego haga clic Aceptar para seleccionar una celda donde colocar el resultado de la combinación.

6. Haga clic Aceptar. Todas las combinaciones posibles se han enumerado en las celdas.

Demostración: Encuentra todas las combinaciones posibles de dos listas con Kutools para Excel