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

Вы когда-нибудь сталкивались с ситуацией, когда в Excel нужно посчитать количество ячеек определенного цвета? Например, подсчитать все красные строки в отчете о просроченных платежах или зеленые ячейки с выполненными задачами? На первый взгляд кажется, что это простая задача — но стандартных функций для подсчета цветов в Excel просто не существует. И это не случайность: цвета в программе считаются частью оформления, а не данных.

В этой статье мы разберем 5 проверенных способов, как обойти это ограничение: от простых обходных путей с условным форматированием до написания собственных макросов на VBA. Вы узнаете, какой метод подходит для вашего уровня подготовки, какие подводные камни ждут новичков, и как автоматизировать процесс для больших таблиц. А в конце статьи вас ждет уникальный лайфхак с Power Query, о котором мало кто знает.

Почему в Excel нет встроенной функции для подсчета цветов

Microsoft сознательно не добавляет функцию подсчета цветов в стандартный набор инструментов Excel. Причина кроется в философии программы: цвета относятся к визуальному представлению данных, а не к их содержимому. Алгоритмы Excel оптимизированы для работы с числами, текстом и формулами — но не с параметрами оформления.

Вот ключевые причины отсутствия такой функции:

• 🔹 Производительность: Анализ цветов каждой ячейки замедлял бы работу с большими файлами
• 🔹 Неоднозначность: Одна ячейка может иметь цвет фона, цвет шрифта и условное форматирование одновременно
• 🔹 Альтернативные решения: Microsoft предлагает использовать условное форматирование на основе значений, а не цветов
• 🔹 Совместимость: Цветовые схемы могут отличаться при открытии файла в разных версиях Excel

Однако это не означает, что задача нерешаема. Далее мы рассмотрим обходные пути, которые используют опытные пользователи.

Метод 1: Фильтрация по цвету (самый простой способ)

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

Инструкция:

1. Выделите диапазон ячеек, в котором нужно посчитать цвета
2. Перейдите на вкладку Данные → Фильтр (или нажмите Ctrl+Shift+L)
3. Нажмите на стрелочку фильтра в заголовке столбца
4. Выберите Фильтр по цвету → Фильтр по цвету ячейки и укажите нужный цвет
5. Внизу экрана Excel покажет количество отфильтрованных строк

⚠️ Внимание: Этот метод работает только для цвета заливки ячеек, но не для цвета шрифта. Также он не подходит, если вам нужно автоматизировать подсчет или использовать результат в других формулах.

Выделить весь диапазон данных

Убедиться, что цвета применены ко всем нужным ячейкам

Включить фильтр (Данные → Фильтр)

Выбрать цвет в меню фильтрации

Записать количество отображаемых строк

-->

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

Малоизвестный прием — использование функции GET.CELL, которая возвращает информацию о формате ячейки. Этот метод требует предварительной настройки, но затем позволяет использовать стандартные функции типа СЧЁТЕСЛИ.

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

1. Создайте именованный диапазон:

   =GET.CELL(38,!A1)

   где 38 — код цвета заливки ячейки

2. Присвойте этому диапазону имя, например CellColor
3. В любой ячейке используйте формулу:

   =СЧЁТЕСЛИ(CellColor;3)

   где 3 — код красного цвета

Коды основных цветов в Excel:

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

Метод 3: VBA-макрос для подсчета цветов

Для тех, кто готов немного погрузиться в программирование, VBA (Visual Basic for Applications) предлагает самое гибкое решение. Этот метод позволяет считать как цвет заливки, так и цвет шрифта, а также работать с пользовательскими цветами.

Вот универсальный макрос, который подсчитывает ячейки по цвету заливки:

Function CountByColor(rData As Range, rColor As Range) As Long
Dim cl As Range
Dim lColor As Long
Dim lCount As Long

lColor = rColor.Interior.Color
lCount = 0

For Each cl In rData
If cl.Interior.Color = lColor Then
lCount = lCount + 1
End If
Next cl

CountByColor = lCount
End Function

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

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

   =CountByColor(A1:A100;B1)

   где A1:A100 — диапазон для подсчета, а B1 — ячейка с образцом цвета

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

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

Метод 4: Условное форматирование + вспомогательный столбец

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

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

1. Добавьте новый столбец рядом с вашими данными
2. Используйте условное форматирование для автоматической заливки ячеек (если оно еще не применено)
3. Во вспомогательном столбце введите формулу, которая будет проверять условие заливки. Например:

   =ЕСЛИ(И(A1="Просрочено";B1

   где A1 — это статус, а B1 — дата

4. Примените условное форматирование к вспомогательному столбцу, чтобы он повторял цвета основных данных
5. Используйте СЧЁТЕСЛИ для подсчета единиц во вспомогательном столбце

Function CountByFontColor(rData As Range, rColor As Range) As Long
Dim cl As Range
Dim lColor As Long
lColor = rColor.Font.Color
For Each cl In rData
If cl.Font.Color = lColor Then CountByFontColor = CountByFontColor + 1
Next cl
End Function