Cum să găsiți toate sumele posibile a două numere într-o listă în Excel?

Să presupunem că aici este o listă de numere, acum ați putea găsi toate sumele posibile a două numere în această listă, așa cum este prezentat mai jos? În Excel, nu există nicio funcție încorporată care să rezolve această sarcină. Acum vă prezint un cod VBA pentru a-l gestiona.

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

Dacă doriți să găsiți toate sumele posibile a două numere într-o listă, puteți aplica mai jos codul VBA.

1. presa Alt + F11 tastele pentru a afișa Microsoft Visual Basic for Applications fereastră.

2. clic Insert > Module, copiați și lipiți codul de mai jos în modul.

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. clic Tools > References, în caseta de dialog popping, bifați Microsoft Scripting Runtime caseta.

4. clic OK pentru a închide dialogul, apoi apăsați F5 pentru a rula codul, apare un dialog pentru a vă reaminti să selectați o listă pentru a găsi sumele posibile.

5. clic OK, apoi toate sumele posibile a două numere din listă sunt listate în coloana C.

Tip： În șirul de cod, Range ("C1"). Redimensionare (xDic.Count, 1), puteți schimba C1 într-o altă celulă, deoarece trebuie să plasați rezultatul.

Find all possible combinations of two lists with List All Combinations

Dacă doriți să găsiți sau să listați toate combinațiile posibile de două liste așa cum este prezentat mai jos, List All Combinations utilitatea Kutools for Excel vă poate face o favoare.

1. clic Kutools > Insert > List All Combinations.

2. În List All Combinations , faceți clic pe butonul de selectare pentru a selecta prima listă pe care o veți combina.

3. clic Add pentru a adăuga lista în Combinations list secţiune.

4. Repetați pașii 2 și 3 pentru a adăuga a doua listă la Combinations list.

5. Apoi apasa Ok pentru a selecta o celulă pentru a plasa rezultatul combinației.

6. clic OK. Toate combinațiile posibile au fost listate în celule.

  List all combinations