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

Als je alle mogelijke sommen van twee getallen in een lijst wilt vinden of alle mogelijke combinaties van twee lijsten in Excel wilt weergeven, zijn er geen ingebouwde functies om dit direct te bereiken. Deze handleiding introduceert een VBA-codeoplossing voor het berekenen van sommen en de List All Combinations-tool in Kutools voor Excel om combinaties efficiënt te verwerken.

Alle mogelijke sommen van twee getallen in een lijst vinden met VBA-code

Alle mogelijke combinaties van twee lijsten vinden met List All Combinations

Alle mogelijke sommen van twee getallen in een lijst vinden met VBA-code

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

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster weer te geven.

2. Klik op Invoegen > Module, kopieer en plak onderstaande code in de module.

VBA: Alle mogelijke sommen van twee getallen in een lijst weergeven

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. Klik op Tools > Referenties, selecteer in het pop-upvenster het selectievakje Microsoft Scripting Runtime.

4. Klik OK om het venster te sluiten, en druk vervolgens op F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin je wordt gevraagd een lijst te selecteren om de mogelijke sommen te berekenen.

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

Tip: In de coderegel Bereik("C1").Resize(xDic.Count, 1) kun je C1 wijzigen naar elke andere cel waar je de resultaten wilt plaatsen.

Alle mogelijke combinaties van twee lijsten vinden met List All Combinations

Als je alle mogelijke combinaties van twee lijsten wilt weergeven, zoals te zien is in de onderstaande schermafbeelding, kan de Lijst Alle Combinaties tool van Kutools voor Excel je helpen.

1. Klik Kutools > Invoegen > List All Combinations.

2. In het List All Combinations dialoogvenster, klik op de selecteer-knop om de eerste lijst die je wilt combineren te selecteren.

3. Klik Toevoegen om de lijst toe te voegen aan de Combinatielijst sectie.

4. Herhaal stap 2 en 3 om de tweede lijst toe te voegen aan de Combinatielijst.

5. Klik vervolgens op Ok om een cel te selecteren om het combinatieresultaat te plaatsen.

6. Klik OK. Alle mogelijke combinaties zijn nu weergegeven in de cellen.

Demo: Alle mogelijke combinaties van twee lijsten vinden met Kutools voor Excel