Как фильтровать столбцы по цвету в Excel: 5 проверенных способов

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

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

В этой статье мы разберем все доступные способы фильтрации по цвету — от базового автофильтра до продвинутых методов с использованием VBA. Вы узнаете, как работать с этой функцией в разных версиях Excel (2010–2023 и Office 365), а также научитесь обходить типичные ограничения. Например, знали ли вы, что по умолчанию нельзя фильтровать по двум цветам одновременно? Мы покажем, как это сделать!

1. Базовый способ: фильтрация через автофильтр

Самый простой метод — использовать встроенный автофильтр. Он доступен во всех современных версиях Excel и не требует знания формул или макросов. Вот как это работает:

1. Активируйте фильтр: Выделите диапазон данных (включая заголовки столбцов) и нажмите Данные → Фильтр (или комбинацию Ctrl+Shift+L). Появится выпадающее меню с стрелкой в каждом заголовке столбца.
2. Откройте меню фильтра: Кликните по стрелке в столбце, где нужно отфильтровать цвета.
3. Выберите "Фильтр по цвету": В выпадающем списке перейдите к разделу Фильтр по цвету. Здесь вы увидите три подменю:
   • 🎨 Цвет заливки — фильтрация по фоновому цвету ячейки.
   • 🖋️ Цвет текста — фильтрация по цвету шрифта.
   • 📊 Условное форматирование — если цвет назначен через правила условного форматирования.

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

2. Фильтрация по цвету с условным форматированием

Если цвета в вашей таблице назначены через условное форматирование, стандартный фильтр может не сработать. Дело в том, что Excel воспринимает такие цвета как "динамические" — они зависят от значений в ячейках, а не являются статичными. Чтобы отфильтровать их, нужно:

1. Преобразуйте условное форматирование в статичные цвета:
   • 📋 Выделите диапазон с условным форматированием.
   • 🎨 Нажмите Главная → Формат как таблицу и выберите любой стиль (это временно).
   • 🔄 Сразу отмените действие (Ctrl+Z). Цвета останутся, но станут статичными.

💡 Полезный совет: Если вам нужно сохранить правила условного форматирования, создайте копию листа (ПКМ по ярлыку → Переместить/скопировать) и работайте с копией.

3. Фильтрация по нескольким цветам одновременно

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

Вот три рабочих способа:

• 🔄 Последовательная фильтрация:
  1. Отфильтруйте по первому цвету (например, красному).
  2. Скопируйте видимые строки на новый лист (Главная → Найти и выделить → Выделить видимые ячейки).
  3. Вернитесь к исходной таблице и отфильтруйте по второму цвету (желтому).
  4. Скопируйте видимые строки и добавьте их к ранее скопированным.

⚠️ Внимание: Функция GET.CELL работает только в именованных диапазонах и требует ввода в английской раскладке (даже в русифицированном Excel). Если формула возвращает ошибку, проверьте регистр и синтаксис.

Sub FilterByColor()
Dim ws As Worksheet
Dim rng As Range
Dim colorToFilter As Long
Dim cell As Range

' Укажите лист и диапазон
Set ws = ActiveSheet
Set rng = ws.Range("A1:A100") ' Измените на ваш диапазон

' Укажите цвет для фильтрации (например, красный = 255)
colorToFilter = RGB(255, 0, 0) ' или введите код цвета (например, 255 для красного)

' Снятие предыдущих фильтров
If ws.AutoFilterMode Then ws.AutoFilterMode = False

' Применение фильтра
rng.AutoFilter Field:=1, Criteria1:=colorToFilter, Operator:=xlFilterCellColor
End Sub