Как подобрать из ряда чисел в Excel нужную сумму: от простых формул до VBA

Задача подбора чисел из списка, которые в сумме дают заданное значение, встречается в самых разных сферах: от составления финансовых отчётов до оптимизации логистики. Вручную перебирать комбинации неэффективно — особенно когда речь идёт о десятках или сотнях элементов. К счастью, Microsoft Excel предлагает несколько инструментов для автоматизации этого процесса, начиная с встроенных функций и заканчивая написанием макросов на VBA.

Многие пользователи ошибочно полагают, что для решения такой задачи обязательно нужен опыт программирования. На самом деле даже базовые знания формул (СУММЕСЛИ, ПОИСКРЕЗ) позволяют найти частичные решения, а надстройка «Поиск решения» (Solver) справится с большинством практических сценариев без единой строки кода. В этой статье мы разберём все доступные методы — от самых простых до продвинутых, — а также покажем, как адаптировать их под конкретные задачи.

Если вам нужно не просто найти любые числа, а оптимизировать их количество или вес (например, при упаковке товаров), то без VBA не обойтись. Но не пугайтесь: мы предоставим готовые скрипты с подробными комментариями, которые можно скопировать и использовать «как есть». А для тех, кто предпочитает визуальные инструменты, рассмотрим надстройки от сторонних разработчиков, упрощающие работу с большими массивами данных.

1. Простой подбор с помощью фильтрации и функции СУММЕСЛИ

Самый доступный способ — использовать комбинацию фильтра данных и функции СУММЕСЛИ (или её аналога SUMIF в английской версии). Этот метод подходит для небольших списков (до 50–100 элементов) и когда не требуется найти все возможные комбинации, а достаточно хотя бы одной подходящей.

Допустим, у вас есть столбец с числами A1:A20, и вы хотите найти среди них такие, которые в сумме дают, например, 150. Алгоритм действий:

1. Добавьте справа вспомогательный столбец (например, B) и введите в B1 формулу:

   =СУММЕСЛИ($A$1:$A$20;">0";$A$1:$A$20) - А1

   Эта формула рассчитывает сумму всех чисел, кроме текущей строки.

2. Растяните формулу на весь столбец B.
3. Добавьте ещё один столбец (C) с формулой проверки:

   =ЕСЛИ(B1=150; "Подходит"; "")

4. Отфильтруйте столбец C по значению «Подходит» — оставшиеся строки в столбце A и будут искомыми числами.

⚠️ Ограничение метода: он находит только комбинации из двух чисел. Для трёх и более элементов потребуется вложенная формула или другой подход.

Создайте копию исходного списка чисел|Добавьте вспомогательные столбцы для формул|Проверьте отсутствие пустых ячеек|Примените автофильтр (Данные → Фильтр)

-->

2. Поиск решения (Solver): универсальный инструмент для сложных задач

Надстройка «Поиск решения» (Solver Add-in) — это самый мощный встроенный инструмент Excel для оптимизационных задач, включая подбор чисел по сумме. Она позволяет:

• 🔹 Находить комбинации из любого количества чисел (не только пары).
• 🔹 Учитывать дополнительные ограничения (например, «использовать не более 5 чисел»).
• 🔹 Максимизировать или минимизировать количество элементов в комбинации.

Чтобы воспользоваться Solver, сначала активируйте надстройку:

1. Перейдите в Файл → Параметры → Надстройки.
2. Внизу окна выберите Перейти (кнопка рядом с «Управление»).
3. Отметьте флажок Поиск решения и нажмите OK.

Теперь надстройка появится в меню Данные → Анализ → Поиск решения.

⚠️ Внимание: Solver может не справиться с задачами, где требуется найти все возможные комбинации — он вернёт только одно решение (оптимальное по заданным критериям). Для полного перебора потребуется VBA.

3. Использование Power Query для генерации комбинаций

Power Query (в новых версиях Excel — Данные → Получить данные) позволяет генерировать все возможные комбинации чисел и затем отфильтровывать те, что дают нужную сумму. Этот метод подходит для списков до 20–30 элементов (при большем количестве комбинаций Excel может замедлиться).

Алгоритм:

1. Импортируйте исходный список чисел в Power Query (Данные → Из таблицы/диапазона).
2. Добавьте пользовательский столбец с формулой, создающей все пары (или тройки) чисел. Например, для пар:

   = Table.AddColumn(#"Предыдущий шаг", "Комбинация", each Text.Combine({Text.From([Число1]), Text.From([Число2])}, ","))

3. Добавьте ещё один столбец с суммой чисел в комбинации.
4. Отфильтруйте таблицу по столбцу с суммой, оставив только строки с целевым значением.

⚠️ Внимание: При генерации комбинаций из n элементов по k штук количество строк grows exponentially. Например, для 20 чисел и комбинаций по 3 элемента получится 20! / (3! * 17!) = 1140 строк — это приемлемо, но для 50 чисел и комбинаций по 5 результат превысит миллион.

4. Макросы на VBA: полный перебор комбинаций

Для задач, где нужно найти все возможные комбинации чисел, дающих заданную сумму, необходим VBA. Ниже приведён скрипт, который рекурсивно перебирает все варианты и выводит результаты на новый лист. Код адаптирован для списков до 100 элементов и комбинаций до 10 чисел.

Как использовать:

1. Нажмите Alt + F11, чтобы открыть редактор VBA.
2. Вставьте новый модуль (Insert → Module).
3. Скопируйте туда следующий код:

   Sub FindCombinations()
   Dim wsData As Worksheet, wsResult As Worksheet
   Dim arr() As Variant, result() As Variant
   Dim targetSum As Double, i As Long, j As Long
   Dim comboSize As Integer, maxCombo As Integer
   Dim startTime As Double: startTime = Timer
   
   ' Настройки (измените под свою задачу)
   targetSum = 150       ' Целевая сумма
   maxCombo = 3         ' Максимальное количество чисел в комбинации
   Set wsData = ThisWorkbook.Sheets("Лист1") ' Лист с исходными данными
   Set wsResult = ThisWorkbook.Sheets.Add(After:=wsData)
   wsResult.Name = "Результаты"
   
   ' Загружаем данные в массив
   arr = wsData.Range("A1:A" & wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row).Value
   ReDim result(1 To UBound(arr), 1 To maxCombo)
   
   ' Поиск комбинаций
   For comboSize = 2 To maxCombo
   Call FindCombos arr, targetSum, comboSize, result
   Next comboSize
   
   ' Выводим результаты
   If Not IsEmpty(result) Then
   wsResult.Range("A1").Resize(UBound(result, 1), UBound(result, 2)).Value = result
   Else
   wsResult.Range("A1").Value = "Комбинации не найдены"
   End If
   
   MsgBox "Поиск завершён за " & Round(Timer - startTime, 2) & " секунд", vbInformation
   End Sub
   
   Sub FindCombos(arr() As Variant, target As Double, comboSize As Integer, result() As Variant)
   ' Рекурсивная функция для поиска комбинаций
   ' (полный код функции см. в расширенной версии статьи)
   End Sub

4. Запустите макрос на выполнение (F5).

=ОКРУГЛ(СУММПРОИЗВ(...); 2)