Как найти все возможные суммы двух чисел из списка в Excel?
Если вам нужно найти все возможные суммы двух чисел из списка или получить все возможные комбинации элементов двух списков в Excel, стандартных функций для этого не существует. В данном руководстве представлено решение с использованием кода VBA для вычисления сумм, а также утилита «Список всех комбинаций» из надстройки Kutools for Excel для быстрой и эффективной работы с комбинациями.
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.
Совет: В строке кода 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. Все возможные комбинации появятся в ячейках.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: получение всех возможных комбинаций двух списков с помощью Kutools для Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек