Как найти все возможные суммы двух чисел в списке в 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 - Усильте 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек