Как найти в 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： В строке кода Range ("C1"). Resize (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