Як знайти всі можливі суми двох чисел у списку в Excel?

Припустимо, ось список чисел, чи можете ви зараз знайти всі можливі суми двох чисел у цьому списку, як показано на знімку екрана нижче? В Excel немає вбудованої функції, здатної вирішити цю роботу. Тепер я представляю вам код VBA для обробки.

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

Якщо ви хочете знайти всі можливі суми двох чисел у списку, ви можете застосувати нижче код VBA.

1. прес Alt + F11 клавіші для відображення Microsoft Visual Basic for Applications вікна.

2. клацання Insert > 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. клацання Tools > References, у діалоговому вікні, що з’являється, поставте галочку Microsoft Scripting Runtime прапорець.

4. клацання OK щоб закрити діалогове вікно, потім натисніть F5 для запуску коду вискакує діалогове вікно з нагадуванням про вибір списку для пошуку можливих сум.

5. клацання OK, тоді всі можливі суми двох чисел у списку перераховані в колонці C.

Tip： У рядку коду, Діапазон ("C1"). Змінюючи розмір (xDic.Count, 1), ви можете змінити C1 на іншу комірку, коли вам потрібно розмістити результат.

Find all possible combinations of two lists with List All Combinations

Якщо ви хочете знайти або перерахувати всі можливі комбінації двох списків, як показано на скріншоті, показано, List All Combinations корисність Kutools for Excel може зробити вам користь.

1. клацання Kutools > Insert > List All Combinations.

2 В List All Combinations натисніть кнопку вибору, щоб вибрати перший список, який ви об’єднаєте.

3. клацання Add щоб додати список в Combinations list .

4. Повторіть кроки 2 та 3, щоб додати другий список до Combinations list.

5 Потім натисніть Ok щоб вибрати клітинку для розміщення комбінованого результату.

6. клацання OK. Усі можливі комбінації були перераховані в клітинках.

  List all combinations