Note: The other languages of the website are Google-translated. Back to English

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.
doc toutes les sommes possibles de deux nombres 1

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

Find all possible combinations of two lists with List All Combinationsgood idea3


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

doc toutes les sommes possibles de deux nombres 2

3. Cliquez Tools > References, dans la boîte de dialogue contextuelle, cochez Microsoft Scripting Runtime case à cocher.

doc toutes les sommes possibles de deux nombres 3 doc flèche droite doc toutes les sommes possibles de deux nombres 4

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.
doc toutes les sommes possibles de deux nombres 5

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

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.
doc toutes les sommes possibles de deux nombres 7

Kutools pour Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. 

1. Cliquez Kutools > Insert > List All Combinations.
doc toutes les sommes possibles de deux nombres 8

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.
doc toutes les sommes possibles de deux nombres 9

3. Cliquez Add pour ajouter la liste dans Combinations list .
doc toutes les sommes possibles de deux nombres 10

4. Répétez les étapes 2 et 3 pour ajouter la deuxième liste au Combinations list.
doc toutes les sommes possibles de deux nombres 11

5. Puis clique Ok pour sélectionner une cellule pour placer le résultat de la combinaison.
doc toutes les sommes possibles de deux nombres 12

6. Cliquez OK. Toutes les combinaisons possibles ont été répertoriées dans des cellules.
doc toutes les sommes possibles de deux nombres 13

Commentaires (0)
Pas encore de notes. Soyez le premier à évaluer!
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés