Jak znaleźć wszystkie możliwe sumy dwóch liczb na liście w programie Excel?

Przypuśćmy, że tutaj jest lista liczb, czy teraz możesz znaleźć wszystkie możliwe sumy dwóch liczb na tej liście, jak pokazano na poniższym zrzucie ekranu? W programie Excel nie ma wbudowanej funkcji, która może rozwiązać to zadanie. Teraz przedstawiam kod VBA do obsługi tego.

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

Jeśli chcesz znaleźć wszystkie możliwe sumy dwóch liczb na liście, możesz zastosować poniższy kod VBA.

1. naciśnij Alt + F11 klawisze, aby wyświetlić Microsoft Visual Basic for Applications okno.

2. kliknij Insert > Moduleskopiuj i wklej poniższy kod do modułu.

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. kliknij Tools > References, w wyświetlanym oknie dialogowym zaznacz Microsoft Scripting Runtime checkbox.

4. kliknij OK aby zamknąć okno dialogowe, a następnie naciśnij F5 aby uruchomić kod, pojawi się okno dialogowe przypominające o wybraniu listy w celu znalezienia możliwych sum.

5. kliknij OK, to wszystkie możliwe sumy dwóch liczb na liście są wymienione w kolumnie C.

Tip： W ciągu kodu Range („C1”). Resize (xDic.Count, 1), możesz zmienić C1 na inną komórkę, aby umieścić wynik.

Find all possible combinations of two lists with List All Combinations

Jeśli chcesz znaleźć lub wyświetlić wszystkie możliwe kombinacje dwóch list, jak pokazano poniżej, plik List All Combinations użyteczność Kutools for Excel mogę zrobić ci przysługę.

1. kliknij Kutools > Insert > List All Combinations.

2. w List All Combinations kliknij przycisk wyboru, aby wybrać pierwszą listę, którą chcesz połączyć.

3. kliknij Add aby dodać listę do Combinations list

4. Powtórz kroki 2 i 3, aby dodać drugą listę do pliku Combinations list.

5. Następnie kliknij Ok aby wybrać komórkę, w której ma zostać umieszczony wynik kombinacji.

6. kliknij OK. Wszystkie możliwe kombinacje zostały wymienione w komórkach.

  List all combinations