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

Suponiendo que aquí hay una lista de números, ¿podría encontrar todas las sumas posibles de dos números en esta lista como se muestra a continuación? En Excel, no hay una función incorporada que pueda resolver este trabajo. Ahora les presento un código VBA para manejarlo.

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinations

Find all possible sums of two numbers in a list with VBA code

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

1. Prensa Alt + F11 teclas para mostrar el Microsoft Visual Basic for Applications ventana.

2. Hacer clic en Insert > Module, copie y pegue el código siguiente en el módulo.

VBA: List all possible sums of two numbers in a list

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. Hacer clic en Tools > References, en el cuadro de diálogo emergente, marque Microsoft Scripting Runtime casilla de verificación.

4. Hacer clic en OK para cerrar el diálogo, luego presione F5 para ejecutar el código, aparece un cuadro de diálogo para recordarle que seleccione una lista para encontrar las posibles sumas.

5. Hacer clic en OK, todas las sumas posibles de dos números de la lista se enumeran en la columna C.

Tip： En la cadena de código, Rango ("C1"). Redimensionar (xDic.Count, 1), puede cambiar C1 a otra celda según necesite colocar el resultado.

Find all possible combinations of two lists with List All Combinations

Si desea buscar o enumerar todas las combinaciones posibles de dos listas como se muestra a continuación, la List All Combinations utilidad de Kutools for Excel puedo hacerte un favor

1. Hacer clic en Kutools > Insert > List All Combinations.

2. En el List All Combinations cuadro de diálogo, haga clic en el botón de selección para seleccionar la primera lista que combinará.

3. Hacer clic en Add para agregar la lista a Combinations list .

4. Repita los pasos 2 y 3 para agregar la segunda lista al Combinations list.

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

6. Hacer clic en OK. Todas las combinaciones posibles se han enumerado en las celdas.

  List all combinations