Wie finde ich alle möglichen Summen von zwei Zahlen in einer Liste in Excel?

Angenommen, hier ist eine Liste von Zahlen. Können Sie jetzt alle möglichen Summen von zwei Zahlen in dieser Liste finden, wie im folgenden Screenshot gezeigt? In Excel gibt es keine integrierte Funktion, die diesen Job lösen kann. Jetzt stelle ich Ihnen einen VBA-Code vor, um damit umzugehen.

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

Wenn Sie alle möglichen Summen von zwei Zahlen in einer Liste finden möchten, können Sie unten den VBA-Code anwenden.

1. Drücken Sie Alt + F11 Tasten zur Anzeige der Microsoft Visual Basic for Applications Fenster.

2 Klicken Insert > ModuleKopieren Sie den folgenden Code und fügen Sie ihn in das Modul ein.

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 Klicken Tools > ReferencesÜberprüfen Sie im Popping-Dialogfeld Microsoft Scripting Runtime Kontrollkästchen.

4 Klicken OK Um den Dialog zu schließen, drücken Sie F5 Um den Code auszuführen, wird ein Dialogfeld angezeigt, das Sie daran erinnert, eine Liste auszuwählen, um die möglichen Summen zu finden.

5 Klicken OKDann werden alle möglichen Summen von zwei Zahlen in der Liste in Spalte C aufgelistet.

Tip： In der Codezeichenfolge Range ("C1"). Resize (xDic.Count, 1) können Sie C1 in eine andere Zelle ändern, wenn Sie das Ergebnis platzieren möchten.

Find all possible combinations of two lists with List All Combinations

Wenn Sie alle möglichen Kombinationen von zwei Listen finden oder auflisten möchten, wie im folgenden Screenshot gezeigt, wird der List All Combinations Nutzen von Kutools for Excel kann dir einen Gefallen tun.

1 Klicken Kutools > Insert > List All Combinations.

2. In dem List All Combinations Klicken Sie im Dialogfeld auf die Auswahlschaltfläche, um die erste Liste auszuwählen, die Sie kombinieren möchten.

3 Klicken Add um die Liste hinzuzufügen Combinations list .

4. Wiederholen Sie die Schritte 2 und 3, um die zweite Liste zur hinzuzufügen Combinations list.

5. Dann klick Ok um eine Zelle auszuwählen, in der das Kombinationsergebnis platziert werden soll.

6 Klicken OK. Alle möglichen Kombinationen wurden in Zellen aufgelistet.

  List all combinations