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

Подсчёт закрашенных ячеек в Microsoft Excel — задача, с которой сталкиваются пользователи при анализе данных с цветовой маркировкой. Например, когда в таблице выделены цветом просроченные заказы, важные клиенты или отклонения от нормы. Стандартные функции вроде СЧЁТЕСЛИ здесь не работают, так как не учитывают форматирование. Но есть как минимум 5 способов решить эту проблему — от ручных методов до автоматизированных скриптов.

Многие ошибочно считают, что для этого обязательно нужен VBA или сторонние надстройки. На самом деле, в большинстве случаев достаточно встроенных инструментов Excel — условного форматирования в паре с формулами или простого фильтра по цвету. Главное — выбрать метод, который подходит под вашу задачу: нужно ли обновлять подсчёт автоматически при изменении данных или достаточно разового анализа.

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

1. Ручное решение: фильтр по цвету ячейки

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

Алгоритм простой:

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

✅ Плюсы метода:

• 🔹 Не требует формул или макросов — подходит для новичков.
• 🔹 Работает даже в защищённых файлах (где запрещены макросы).
• 🔹 Можно фильтровать по нескольким цветам одновременно.

❌ Минусы:

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

⚠️ Внимание: Если в столбце есть пустые ячейки, фильтр по цвету их проигнорирует. Чтобы учесть их, предварительно заполните пробелы любым символом (например, пробелом) или используйте другой метод.

2. Формулы для подсчёта цветных ячеек (без VBA)

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

Способ работает в двух вариантах:

2.1. Через условное форматирование + вспомогательный столбец

Допустим, у вас в столбце A есть ячейки, закрашенные в красный цвет. Создайте рядом вспомогательный столбец (например, B) и выполните шаги:

1. Выделите диапазон в столбце A (например, A1:A100).
2. Перейдите в Главная → Условное форматирование → Создать правило → Использовать формулу....
3. Введите формулу, которая возвращает ИСТИНА для ячеек нужного цвета. Например, если красный цвет соответствует значению "Просрочено":

   =A1="Просрочено"

4. Задайте формат (заливка красным) и сохраните правило.
5. Во вспомогательном столбце B введите формулу:

   =ЕСЛИ(ЕЧИСЛО(НАЙТИ("Просрочено";A1));1;0)

   и протяните её на весь диапазон.

6. Итоговое количество цветных ячеек посчитайте функцией:

   =СУММ(B1:B100)

🔹 Пример: Если в ячейке A5 написано "Просрочено", то в B5 появится 1, иначе — 0. Сумма по столбцу B даст количество красных ячеек.

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

2.2. Через функцию GET.CELL (только для опытных пользователей)

В Excel есть скрытая функция GET.CELL, которая может возвращать информацию о формате ячейки, включая цвет. Однако она работает только в именованных формулах и требует ручной настройки.

Инструкция:

1. Нажмите Формулы → Диспетчер имён → Создать.
2. В поле Имя введите ЦветЯчейки, в поле Диапазон укажите:

   =GET.CELL(38;!A1)

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

3. Во вспомогательном столбце введите формулу:

   =ЕСЛИ(ЦветЯчейки=3;1;0)

   (где 3 — код красного цвета; для других цветов используйте их коды).

4. Протяните формулу на весь диапазон и просуммируйте единицы.

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

• 🔴 Красный — 3
• 🟢 Зелёный — 4
• 🔵 Синий — 5
• 🟡 Жёлтый — 6
• ⚪ Белый — 2

3. Использование надстройки "Поиск по формату"

Если не хочется возиться с формулами, можно установить бесплатную надстройку "ASAP Utilities" (работает в Excel 2010–2023). Она добавляет функцию подсчёта ячеек по цвету в несколько кликов.

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

1. Скачайте и установите ASAP Utilities с официального сайта.
2. Откройте Excel, перейдите на вкладку ASAP Utilities → Формат → Поиск по формату....
3. В окне настроек выберите:
   • 🔘 Цвет фона;
   • 🔘 Укажите нужный цвет;
   • 🔘 Отметьте Подсчитать количество.

✅ Преимущества:

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

❌ Недостатки:

• 🔸 Надстройка платная для коммерческого использования (бесплатна для личного).
• 🔸 Требует установки дополнительного ПО.

Важно: ASAP Utilities не работает в Excel Online и мобильных версиях программы.

4. Автоматизация через VBA (для продвинутых пользователей)

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

Шаги для создания макроса:

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

   Function CountColoredCells(rng As Range, color As Range) As Long
   Dim cl As Range
   Dim count As Long
   Dim targetColor As Long
   
   targetColor = color.Interior.Color
   count = 0
   
   For Each cl In rng
   If cl.Interior.Color = targetColor Then
   count = count + 1
   End If
   Next cl
   
   CountColoredCells = count
   End Function

4. Закройте редактор VBA.
5. Теперь в любой ячейке можно использовать формулу:

   =CountColoredCells(A1:A100; C1)

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

🔧 Как указать образец цвета:

• Создайте отдельную ячейку (например, C1).
• Закрасьте её в тот же цвет, что и искомые ячейки.
• В формуле ссылайтесь на эту ячейку как на color.

⚠️ Внимание: Макросы работают только в файлах с расширением .xlsm (с поддержкой макросов). Если сохранить файл как .xlsx, код перестанет выполняться. Также VBA отключён по умолчанию в Excel Online.

Sub ShowColorCode()
MsgBox "Цветовой код: " & Selection.Interior.Color
End Sub

Это поможет точно указать цвет в формулах VBA.-->

5. Power Query: для больших данных и сложных правил

Если вы работаете с большими массивами данных (тысячи строк) или нужно учитывать несколько цветов одновременно, используйте Power Query. Этот инструмент доступен в Excel 2016+ и Microsoft 365.

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

1. Выделите диапазон с данными и нажмите Данные → Из таблицы/диапазона (или Ctrl+T, если данные ещё не в таблице).
2. В открывшемся окне Power Query добавьте пользовательский столбец:
   • Перейдите на вкладку Добавить столбец → Пользовательский столбец.
   • Введите название (например, ЦветФона).
   • В поле формулы укажите:

     = if [@[ИмяСтолбца]] = "Просрочено" then "Красный" else "Без цвета"

     (замените ИмяСтолбца и условие на свои).

⚡ Преимущества Power Query:

• 🔹 Обрабатывает миллионы строк без тормозов.
• 🔹 Можно создавать сложные правила (например, "красный И жирный шрифт").
• 🔹 Обновление данных в один клик.

⚠ Ограничения:

• 🔸 Не работает с цветами, назначенными вручную (только через условия).
• 🔸 Требует навыков работы с Power Query.

• 🔹 Причина: Цвет назначен вручную, а формула ищет привязку к значению.
• 🔹 Решение: Используйте VBA или ASAP Utilities.

Function CountColoredText(rng As Range, color As Range) As Long
Dim cl As Range, count As Long
count = 0
For Each cl In rng
If cl.Font.Color = color.Font.Color Then count = count + 1
Next cl
CountColoredText = count
End Function

If cl.Interior.ThemeColor = 2 And cl.Interior.TintAndShade = 0.799981688894314 Then
count = count + 1
End If