Hoe vind je alle mogelijke sommen van twee getallen in een lijst in Excel?

Stel dat hier een lijst met getallen is, kunt u nu alle mogelijke sommen van twee getallen in deze lijst vinden, zoals onderstaand screenshot? In Excel is er geen ingebouwde functie die deze taak kan oplossen. Nu introduceer ik je een VBA-code om ermee om te gaan.

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

Als u alle mogelijke sommen van twee getallen in een lijst wilt vinden, kunt u onderstaande VBA-code toepassen.

1. druk op Alt + F11 toetsen om de Microsoft Visual Basic for Applications venster.

2. klikken Insert > Module, kopieer en plak onderstaande code in de module.

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. klikken Tools > References, vink in het popping-dialoogvenster aan Microsoft Scripting Runtime checkbox.

4. klikken OK om het dialoogvenster te sluiten en druk vervolgens op F5 om de code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een lijst te selecteren om de mogelijke sommen te vinden.

5. klikken OK, dan worden alle mogelijke sommen van twee getallen in de lijst weergegeven in kolom C.

Tip： In de codestring, Bereik ("C1"). Formaat wijzigen (xDic.Count, 1), kunt u C1 in een andere cel veranderen aangezien u het resultaat moet plaatsen.

Find all possible combinations of two lists with List All Combinations

Als u alle mogelijke combinaties van twee lijsten wilt vinden of een lijst wilt maken, zoals onderstaand screenshot, is de List All Combinations nut van Kutools for Excel kan je een plezier doen.

1. klikken Kutools > Insert > List All Combinations.

2. In de List All Combinations dialoogvenster, klik op de selectieknop om de eerste lijst te selecteren die u gaat combineren.

3. klikken Add om de lijst aan toe te voegen Combinations list pagina.

4. Herhaal stap 2 en 3 om de tweede lijst aan de Combinations list.

5. Dan klikken Ok om een ​​cel te selecteren om het combinatieresultaat te plaatsen.

6. klikken OK. Alle mogelijke combinaties zijn in cellen weergegeven.

  List all combinations