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

Если вам нужно найти все возможные суммы двух чисел в списке или перечислить все возможные комбинации двух списков в Excel, встроенных функций для этого нет. Это руководство представляет решение с использованием кода VBA для вычисления сумм и утилиты «Список всех комбинаций» в Kutools для Excel для эффективной обработки комбинаций.

Найдите все возможные суммы двух чисел в списке с помощью кода VBA

Найдите все возможные комбинации двух списков с помощью «Списка всех комбинаций»

Найдите все возможные суммы двух чисел в списке с помощью кода VBA

Если вы хотите найти все возможные суммы двух чисел в списке, вы можете применить следующий код VBA.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль, скопируйте и вставьте приведенный ниже код в модуль.

VBA: Перечислите все возможные суммы двух чисел в списке

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. Щелкните Инструменты > Ссылки, в появившемся диалоговом окне установите флажок Microsoft Scripting Runtime.

4. Щелкните OK чтобы закрыть диалоговое окно, затем нажмите F5 для запуска кода. Появится диалоговое окно, предлагающее выбрать список для расчета возможных сумм.

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

Совет: В строке кода Range("C1").Resize(xDic.Count, 1) вы можете изменить C1 на любую другую ячейку, куда хотите поместить результаты.

Найдите все возможные комбинации двух списков с помощью «Списка всех комбинаций»

Если вы хотите перечислить все возможные комбинации двух списков, как показано на скриншоте ниже, Список всех Комбинаций утилита Kutools для Excel может оказать вам помощь.

1. Щелкните Kutools > Вставить > Список всех комбинаций.

2. В Список всех комбинаций диалоговом окне нажмите кнопку выбора, чтобы выбрать первый список, который вы хотите объединить.

3. Нажмите Добавить чтобы добавить список в раздел Список комбинаций раздел.

4. Повторите шаги 2 и 3, чтобы добавить второй список в Список комбинаций.

5. Затем нажмите Ok чтобы выбрать ячейку для размещения результата комбинации.

6. Нажмите OK. Все возможные комбинации будут перечислены в ячейках.

Демонстрация: Найдите все возможные комбинации двух списков с помощью Kutools для Excel