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

Работа с цветовыми метками в Microsoft Excel — это не только вопрос эстетики, но и мощный инструмент анализа данных. Представьте: у вас таблица с сотнями строк, где важные значения выделены жёлтым, а критические ошибки — красным. Как быстро узнать, сколько таких ячеек на листе? Или рассчитать их сумму без ручного пересчёта? Стандартные функции вроде СЧЁТ или СУММ игнорируют цвет фона, поэтому здесь нужны специальные приёмы.

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

🔹 Важно: методы отличаются по сложности и универсальности. Например, формулы с ПОЛУЧИТЬ.ЯЧЕЙКУ работают только на активном листе, а макросы требуют разрешений на выполнение кода. Мы отметили плюсы и минусы каждого подхода, чтобы вы выбрали оптимальный вариант для своей задачи.

🔹 Если вы часто работаете с цветовыми метками, сохраните эту страницу в закладки — здесь есть решения для любых версий Excel (2010–2023) и Excel Online. А в конце статьи вас ждёт FAQ с ответами на частые вопросы, включая проблемы с макросами и альтернативы для Google Sheets.

1. Способ: Фильтр по цвету ячейки (без формул)

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

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

1. Выделите диапазон с данными (включая заголовки столбцов).
2. Перейдите на вкладку Данные → Фильтр (или нажмите Ctrl+Shift+L).
3. Щёлкните по стрелке фильтра в заголовке столбца, где нужно посчитать закрашенные ячейки.
4. В меню выберите Фильтр по цвету → Фильтр по цвету ячейки и укажите нужный оттенок.
5. Отфильтрованные строки — это и есть искомые ячейки. Их количество отобразится в строке состояния внизу окна Excel (например, «Записей: 12 из 100»).

✅ Плюсы: не нужно писать формулы, работает во всех версиях Excel, включая веб-версию.

❌ Минусы: показывает только количество, а не сумму значений; не подходит для динамических диапазонов (при изменении данных фильтр сбрасывается).

2. Способ: Функция ПОЛУЧИТЬ.ЯЧЕЙКУ (для статических данных)

Функция ПОЛУЧИТЬ.ЯЧЕЙКУ (GET.CELL) — скрытый инструмент Excel, который возвращает информацию о формате ячейки, включая цвет фона. Чтобы ею воспользоваться, сначала нужно создать именованный диапазон:

Инструкция:

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

   =ПОЛУЧИТЬ.ЯЧЕЙКУ(38;!A1)

   Здесь 38 — код цвета фона, а !A1 — относительная ссылка на активную ячейку.

4. Нажмите OK и закройте диспетчер.

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

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

где 3 — код жёлтого цвета (список кодов см. ниже). Чтобы посчитать все закрашенные ячейки в диапазоне A1:A100, используйте:

=СУММПРОИЗВ(--(ЦветЯчейки(A1:A100)=3))

⚠️ Внимание: Функция ПОЛУЧИТЬ.ЯЧЕЙКУ работает только на активном листе и не обновляется при изменении цвета ячеек через условное форматирование. Также она не распознаёт цвета, применённые через Условное форматирование — только ручную заливку.

3. Способ: VBA-макрос для подсчёта по цвету

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

Пример кода для подсчёта количества ячеек с жёлтым фоном в диапазоне A1:A100:

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

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

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

   =CountColoredCells(A1:A100;B1)

   где B1 — ячейка с образцом цвета (закрасьте её в нужный оттенок).

🔹 Расширенный вариант: чтобы макрос учитывал цвета из условного форматирования, замените строку If cl.Interior.Color = targetColor Then на:

If cl.DisplayFormat.Interior.Color = targetColor Then

Фильтр по цвету|Функция ПОЛУЧИТЬ.ЯЧЕЙКУ|VBA-макрос|Другой вариант-->

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

Этот метод подходит, если цвета ячеек задаются через условное форматирование (например, правила типа «если значение > 100, закрасить в красный»). Здесь нельзя использовать ПОЛУЧИТЬ.ЯЧЕЙКУ или VBA, но можно обойти ограничение с помощью вспомогательного столбца.

Алгоритм:

1. Добавьте рядом с исходными данными новый столбец (например, B).
2. В ячейку B1 введите формулу, которая повторяет условие условного форматирования. Например, если ячейки в столбце A закрашиваются в красный при значении > 100, используйте:

   =ЕСЛИ(A1>100;1;0)

3. Растяните формулу на весь диапазон.
4. Теперь количество «закрашенных» ячеек можно посчитать как =СУММ(B1:B100), а сумму значений — как =СУММПРОИЗВ(A1:A100;B1:B100).

✅ Плюсы: работает с динамическими данными, не требует VBA.

❌ Минусы: нужно дублировать логику условного форматирования в формулах.

Создать резервную копию книги|Проверить правила условного форматирования|Добавить новый столбец справа от данных|Протестировать формулу на 2-3 строках-->

function countColoredCells(range, color) {
var sheet = SpreadsheetApp.getActiveSheet();
var data = sheet.getRange(range).getDisplayValues();
var bgColors = sheet.getRange(range).getBackgrounds();
var count = 0;

for (var i = 0; i < bgColors.length; i++) {
for (var j = 0; j < bgColors[i].length; j++) {
if (bgColors[i][j] === color) count++;
}
}
return count;
}

Function SumColoredCells(rng As Range, color As Range) As Double
Dim cl As Range
Dim sum As Double
Dim targetColor As Long

targetColor = color.Interior.Color
sum = 0

For Each cl In rng
If cl.Interior.Color = targetColor Then
sum = sum + cl.Value
End If
Next cl

SumColoredCells = sum
End Function

Function FastCountColoredCells(rng As Range, color As Range) As Long
Application.ScreenUpdating = False
Dim data As Variant, colors As Variant
Dim i As Long, count As Long
Dim targetColor As Long

targetColor = color.DisplayFormat.Interior.Color
data = rng.Value
colors = rng.DisplayFormat.Interior.Color

For i = 1 To UBound(colors, 1)
If colors(i, 1) = targetColor Then count = count + 1
Next i

FastCountColoredCells = count
Application.ScreenUpdating = True
End Function

Sub GetHexColor()
Dim cl As Range
Set cl = Selection
MsgBox "HEX: " & Right("000000" & Hex(cl.Interior.Color), 6)
End Sub