Как посчитать сумму по цветам ячеек в Excel: от простых формул до VBA-макросов

Цветовое форматирование в Microsoft Excel — мощный инструмент визуализации данных, но когда требуется просуммировать значения по цвету ячеек, пользователи сталкиваются с неожиданной проблемой: стандартные функции СУММ() или СУММЕСЛИ() не умеют различать цвета. Почему так происходит? Дело в том, что Excel хранит цвет как атрибут форматирования, а не как часть данных — поэтому формулы по умолчанию его "не видят".

На практике эта задача возникает в бухгалтерии (например, суммирование расходов по категориям, выделенным цветом), логистике (анализ заказов с цветовой маркировкой статусов) или при работе с отчётами, где цвета используются для визуальной группировки. В этой статье мы разберём 5 проверенных методов — от ручных обходных путей до автоматизированных решений с помощью VBA и Power Query, — а также раскроем подводные камни каждого подхода.

Важно понимать: универсального "однокнопочного" решения нет. Выбор метода зависит от версии Excel (2010, 2016, 365 или Excel Online), объёма данных и частоты использования. Например, для разового расчёта подойдёт фильтрация по цвету, а для регулярных отчётов лучше написать макрос. Мы детально проанализируем каждый сценарий — с примерами кода и пошаговыми скриншотами.

📊 Как часто вам нужно суммировать данные по цветам в Excel?
Ежедневно
Раз в неделю
Редко, но методично
Первый раз столкнулся с задачей

1. Метод фильтрации: быстрый обходной путь без формул

Если вам нужно однократно посчитать сумму по цвету, самый простой способ — воспользоваться встроенной фильтрацией Excel. Этот метод не требует знания формул или программирования, но подходит только для небольших таблиц (до 1000 строк).

Алгоритм действий:

  1. Выделите диапазон данных с заголовками (например, A1:B100).
  2. Перейдите на вкладку Данные → Фильтр (или нажмите Ctrl+Shift+L).
  3. Щёлкните по стрелке фильтра в столбце с цветовыми ячейками.
  4. Выберите Фильтр по цвету → Фильтр по цвету ячейки и укажите нужный цвет.
  5. Внизу отфильтрованного диапазона используйте функцию =СУММ(видимые_ячейки) или посмотрите сумму в строке состояния Excel.

⚠️ Ограничения метода:

  • 🔴 Не работает в Excel Online (нет фильтра по цвету).
  • 🔴 При изменении цвета ячеек фильтр сбрасывается — придётся настраивать заново.
  • 🔴 Нельзя автоматизировать (например, для динамических отчётов).

2. Функция GET.CELL: скрытый инструмент для опытных пользователей

Excel содержит недокументированную функцию GET.CELL, которая может вернуть цвет ячейки в числовом формате. Этот метод работает в Excel для Windows (не поддерживается в Mac и Online) и требует предварительной настройки.

Инструкция по настройке:

  1. Создайте именованный диапазон: перейдите в Формулы → Диспетчер имён → Создать.
  2. В поле Имя введите ЦветЯчейки, в поле Диапазон — формулу: 
    =GET.CELL(38,!A1)

    (где 38 — код параметра для цвета фона).

  3. В любой ячейке используйте формулу: 
    =ЕСЛИ(ЦветЯчейки=3; A1; 0)

    где 3 — код красного цвета (см. таблицу ниже).

Коды популярных цветов в Excel:

ЦветКодПример формулы
Красный3=ЕСЛИ(ЦветЯчейки=3; A1; 0)
Зелёный4=ЕСЛИ(ЦветЯчейки=4; A1; 0)
Синий5=ЕСЛИ(ЦветЯчейки=5; A1; 0)
Жёлтый6=ЕСЛИ(ЦветЯчейки=6; A1; 0)
Белый (нет заливки)0=ЕСЛИ(ЦветЯчейки=0; A1; 0)

⚠️ Внимание: Функция GET.CELL возвращает код цвета только для первой ячейки в диапазоне. Чтобы обработать весь столбец, придётся вручную протягивать формулу или использовать VBA.

Как узнать код цвета для нестандартной заливки?

Чтобы определить код цвета для пользовательской заливки, запишите макрос, который выводит значение Interior.ColorIndex для выделенной ячейки. Например:

Sub ShowColorCode()

MsgBox Selection.Interior.ColorIndex


End Sub

Запустите макрос, выделив ячейку с нужным цветом.

3. VBA-макросы: автоматизация для регулярных задач

Если вам нужно динамически суммировать данные по цветам (например, в ежемесячных отчётах), VBA — оптимальное решение. Ниже приведён универсальный код, который суммирует значения в столбце B по цвету заливки ячеек в столбце A.

Код макроса для суммы по цвету фона: 

Function SumByColor(rng As Range, colorCell As Range) As Double

Dim cl As Range


Dim sum As Double


sum = 0


For Each cl In rng


If cl.Interior.Color = colorCell.Interior.Color Then


sum = sum + cl.Value


End If


Next cl


SumByColor = sum


End Function

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

  1. Нажмите Alt+F11, чтобы открыть редактор VBA.
  2. Вставьте код в модуль (Insert → Module).
  3. Вернитесь в Excel и используйте формулу как пользовательскую функцию: 
    =SumByColor(B2:B100; A2)

    где A2 — ячейка с образцом цвета.

🔹 Преимущества метода:

  • 🔄 Работает с любыми цветами (включая пользовательские).
  • ⚡ Мгновенный пересчёт при изменении данных.
  • 📊 Можно модифицировать для суммы по цвету текста (замените Interior.Color на Font.Color).

⚠️ Внимание: Макросы блокируются по умолчанию в файлах, полученных из интернета. Чтобы разрешить выполнение, перейдите в Файл → Параметры → Центр управления безопасностью → Параметры центра управления безопасностью → Параметры макросов и выберите Включить все макросы (только для доверенных файлов!).

Включить вкладку "Разработчик" в настройках Excel|Сохранить файл как .xlsm (с поддержкой макросов)|Проверить настройки безопасности макросов|Создать резервную копию данных-->

4. Power Query: современный подход для больших данных

В Excel 2016+ и Excel 365 доступен инструмент Power Query (или Get & Transform), который позволяет импортировать данные с учётом форматирования. Этот метод подходит для обработки крупных таблиц (10 000+ строк) и создания автоматизированных отчётов.

Пошаговая инструкция:

  1. Выделите диапазон данных и перейдите на вкладку Данные → Из таблицы/диапазона.
  2. В открывшемся редакторе Power Query добавьте пользовательский столбец с формулой: 
    = if [Column1] = null then null else if Value.Is([Column1], type number) then if [Column1] <> 0 then "Цветной" else "Без цвета" else null

    (замените Column1 на имя вашего столбца).

  3. Используйте группировку (Главная → Группировка) по новому столбцу с операцией Сумма.
  4. Нажмите Закрыть и загрузить, чтобы вернуть данные в Excel.

🔹 Особенности Power Query:

  • 🔄 Автоматически обновляет данные при изменении источника.
  • 📈 Поддерживает сложные преобразования (например, сумму по нескольким цветам).
  • 🖥️ Работает в Excel Online (с ограничениями).

⚠️ Внимание: Power Query не распознаёт цвет ячеек напрямую — придётся использовать обходные пути (например, добавлять метки цветов в отдельный столбец вручную или через VBA).

5. Альтернативные решения: надстройки и сторонние инструменты

Если стандартные методы Excel не подходят, рассмотрите специализированные надстройки:

  • 🔧 Ablebits Color Coding — плагин с функцией SUMBYCOLOR, работающей как стандартная формула.
  • 🔧 Kutools for Excel — содержит инструмент Count/Sum by Color с визуальным интерфейсом.
  • 🔧 ASAP Utilities — бесплатная надстройка с опцией суммирования по цвету (Range → Sum by color).

🔹 Плюсы надстроек:

  • 🎯 Интуитивный интерфейс (не нужно писать код).
  • 🔄 Поддержка цвета текста и условного форматирования.
  • 📊 Экспорт результатов в отдельную таблицу.

⚠️ Внимание: Перед установкой надстроек проверьте их совместимость с вашей версией Excel. Некоторые плагины (например, Ablebits) требуют лицензии.

Критическая информация: Надстройки могут конфликтовать с макросами или замедлять работу Excel при обработке таблиц свыше 50 000 строк. Всегда тестируйте их на копии файла.

6. Распространённые ошибки и как их избежать

При суммировании по цветам пользователи часто сталкиваются с типичными проблемами:

🔴 Ошибка #1: Функция возвращает 0 для цветных ячеек

  • Причина: Цвет задаён через условное форматирование, а не ручную заливку.
  • Решение: Используйте VBA с проверкой DisplayFormat.Interior.Color: 
    If cl.DisplayFormat.Interior.Color = colorCell.DisplayFormat.Interior.Color Then

🔴 Ошибка #2: Макрос не работает в Excel 365

  • Причина: В новых версиях Excel изменён механизм безопасности макросов.
  • Решение: Сохраните файл в формате .xlsm и разрешите выполнение макросов в Файл → Параметры → Центр управления безопасностью.

🔴 Ошибка #3: Цвета в формуле и ячейке совпадают, но сумма не считается

  • Причина: Цвет задаён через RGB, а не ColorIndex.
  • Решение: Используйте Interior.Color вместо ColorIndex в VBA.

🔹 Совет по отладке: Чтобы проверить, какой именно цвет распознаёт Excel, добавьте в макрос строку: 

MsgBox "Цвет ячейки A1: " & Range("A1").Interior.Color

Это выведет числовое значение цвета, которое можно сравнить с образцом.

FAQ: Частые вопросы по суммированию по цветам

Можно ли суммировать по цвету текста, а не фона?

Да. В VBA замените Interior.Color на Font.Color. Например: 

If cl.Font.Color = colorCell.Font.Color Then

Для функции GET.CELL используйте параметр 24 (цвет текста) вместо 38.

Почему макрос работает медленно на больших таблицах?

Цикл For Each в VBA обрабатывает каждую ячейку отдельно. Для ускорения:

  • Отключите обновление экрана: Application.ScreenUpdating = False.
  • Используйте массивы вместо прямого обращения к ячейкам.
  • Примените фильтрацию данных перед суммированием.

Как суммировать по цветам в Google Sheets?

В Google Таблицах нет встроенной функции для суммирования по цветам, но можно использовать:

  • 🔹 Скрипт Apps Script (аналог VBA): 
    function sumByColor(range, colorCell) {

    var sum = 0;
    

    var color = colorCell.getBackground();
    

    range.getValues().forEach((row, i) => {
    

    row.forEach((cell, j) => {
    

    if (range.getCell(i+1, j+1).getBackground() === color) {
    

    sum += cell;
    

    }
    

    });
    

    });
    

    return sum;
    

    }

  • 🔹 Надстройку "Power Tools" (платно).

Можно ли суммировать по градиентной заливке?

Нет. Excel распознаёт только сплошные цвета (включая пользовательские RGB). Градиентная заливка или узоры (Pattern) не поддерживаются ни одним из описанных методов. Альтернатива — заменить градиент на сплошной цвет или использовать дополнительный столбец с метками.

Как сохранить формулы суммирования по цветам при копировании листа?

Если вы используете VBA-функции или GET.CELL, при копировании листа:

  • 📋 Именованные диапазоны (например, ЦветЯчейки) нужно пересоздавать вручную.
  • 📋 Макросы сохранятся только если копировать лист в тот же файл. При переносе в другой файл экспортируйте модуль VBA отдельно (.bas).

Для надёжности сохраните шаблон файла (.xltm) с уже настроенными функциями.

📖 Читайте также

Уведомления в Excel: как настроить напоминания и оповещения Пошаговое руководство по созданию уведомлений в Excel: условное форматирование, правила данных, VBA- Excel Visual Basic как открыть: методы запуска и настройки Узнайте, как открыть Visual Basic в Excel через вкладку Разработчик или горячие клавиши. Инструкция Консолидация в Excel: как объединить данные из нескольких таблиц Пошаговая инструкция по использованию консолидации в Excel для объединения данных из разных источник Excel двоичная книга: зачем нужна и как открыть в 2026 Что такое двоичный формат .xlsb в Excel, его преимущества перед .xlsx, как конвертировать и когда ис Как разделить фото на части в Excel: пошаговая инструкция Узнайте 5 способов разбить изображение на фрагменты в Excel с помощью таблиц, формул и VBA. Пошаговы Как снять пароль на макросы в Excel: 5 способов Узнайте, как снять пароль на макросы в Excel. Эффективные методы обхода защиты VBA-проекта, использо