Comment trouver toutes les sommes possibles de deux nombres dans une liste dans Excel?

En supposant que voici une liste de nombres, pourriez-vous maintenant trouver toutes les sommes possibles de deux nombres dans cette liste, comme illustré ci-dessous? Dans Excel, aucune fonction intégrée ne peut résoudre ce travail. Maintenant, je vous présente un code VBA pour le gérer.

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 vous souhaitez trouver toutes les sommes possibles de deux nombres dans une liste, vous pouvez appliquer ci-dessous le code VBA.

1. presse Alt + F11 touches pour afficher le Microsoft Visual Basic for Applications fenêtre.

2. Cliquez Insert > Module, copiez et collez le code ci-dessous dans le 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. Cliquez Tools > References, dans la boîte de dialogue contextuelle, cochez Microsoft Scripting Runtime case à cocher.

4. Cliquez OK pour fermer la boîte de dialogue, puis appuyez sur F5 pour exécuter le code, une boîte de dialogue apparaît pour vous rappeler de sélectionner une liste pour trouver les sommes possibles.

5. Cliquez OK, alors toutes les sommes possibles de deux nombres dans la liste sont listées dans la colonne C.

Tip： Dans la chaîne de code, Range ("C1"). Redimensionner (xDic.Count, 1), vous pouvez changer C1 en une autre cellule lorsque vous devez placer le résultat.

Find all possible combinations of two lists with List All Combinations

Si vous souhaitez trouver ou répertorier toutes les combinaisons possibles de deux listes comme illustré ci-dessous, le List All Combinations utilité de Kutools for Excel peut vous faire une faveur.

1. Cliquez Kutools > Insert > List All Combinations.

2. dans le List All Combinations boîte de dialogue, cliquez sur le bouton de sélection pour sélectionner la première liste que vous allez combiner.

3. Cliquez Add pour ajouter la liste dans Combinations list .

4. Répétez les étapes 2 et 3 pour ajouter la deuxième liste au Combinations list.

5. Puis clique Ok pour sélectionner une cellule pour placer le résultat de la combinaison.

6. Cliquez OK. Toutes les combinaisons possibles ont été répertoriées dans des cellules.

  List all combinations