Как сделать текстовый фильтр в Excel: 7 работающих способов с примерами

Критический нюанс: в диапазоне критериев названия столбцов должны полностью совпадать с заголовками исходных данных (включая регистр и пробелы). Иначе Excel проигнорирует условие.

Скопируйте заголовки столбцов в диапазон критериев|Проверьте совпадение названий|Используйте = перед текстовыми масками|Укажите правильный диапазон условий в настройках фильтра-->

4. Текстовые фильтры с формулами: FILTER, QUERY, СЧЁТЕСЛИ

В Excel 365 и Excel 2021 появились динамические массивы, которые революционизировали работу с текстовыми фильтрами. Теперь можно использовать функции вроде FILTER, QUERY (в Google Sheets и Excel для Mac) или классические СЧЁТЕСЛИ/ИНДЕКС+ПОИСКПОЗ для гибкой фильтрации.

Пример с функцией FILTER:

=FILTER(A2:B100; (ИСЧИСЛ(ПОИСК("VIP"; A2:A100)) + ИСЧИСЛ(ПОИСК("Premium"; A2:A100))) * (B2:B100 > 500); "Нет данных")

Эта формула вернёт строки, где:

• В столбце A есть слова "VIP" или "Premium".
• В столбце B значение больше 500.

Для поиска по регулярным выражениям (например, найти все email-адреса) в Excel для Windows придётся использовать VBA или надстройки. В Google Sheets это решается функцией REGEXMATCH:

=FILTER(A2:B100; REGEXMATCH(A2:A100; "[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,}"))

5. Фильтрация по цвету текста или фона

Иногда текстовые данные выделяются цветом — например, красным для срочных задач или зелёным для выполненных. Excel позволяет фильтровать и по этому признаку, но с оговорками:

• 🎨 Цвет должен быть применён через условное форматирование или вручную.
• 🔍 Фильтр по цвету работает только для ячеек, а не для шрифта внутри них (если текст частично окрашен, это не сработает).

Как настроить:

1. Примените фильтр к столбцу (Данные → Фильтр).
2. Нажмите на стрелку фильтра и выберите Фильтр по цвету.
3. Укажите нужный цвет заливки или шрифта.

Если цвет применён через условное форматирование, используйте пользовательский фильтр с формулой:

=ЦВЕТЯЧЕЙКИ(A2; 3)

где 3 — индекс красного цвета (узнать индекс можно через макрос или вручную тестируя значения от 1 до 56).

6. Текстовые фильтры в сводных таблицах

Сводные таблицы в Excel поддерживают текстовые фильтры, но с особенностями:

• 📊 Фильтр применяется к меткам строк/столбцов, а не к исходным данным.
• 🔄 Для фильтрации по значениям внутри сводной таблицы используйте нарезки (Вставка → Нарезка).
• 🛠️ В Excel 365 можно добавить вычисляемое поле с текстовыми условиями.

Пример настройки:

1. Создайте сводную таблицу на основе ваших данных.
2. Перетащите текстовое поле (например, "Категория") в область Строки или Столбцы.
3. Нажмите на стрелку фильтра рядом с названием поля.
4. Выберите Метки → Текстовые фильтры и задайте условие (например, "содержит 'премиум'").

Для продвинутой фильтрации:

1. Добавьте нарезку для текстового поля.
2. В настройках нарезки (Параметры нарезки) включите Показывать элементы без данных.
3. Используйте поиск внутри нарезки для быстрого фильтра по ключевым словам.

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

7. Автоматизация текстовых фильтров с помощью VBA

Для повторяющихся задач или сложных критериев (например, фильтрация по нескольким ключевым словам с учётом регистра) удобно использовать VBA. Ниже пример макроса, который фильтрует столбец A по списку слов из столбца D:

Sub TextFilter()
Dim ws As Worksheet
Dim rng As Range, cell As Range
Dim filterWords As Range, word As Range
Dim visibleRows As Long

Set ws = ActiveSheet
Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
Set filterWords = ws.Range("D1:D" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)

' Снимаем все фильтры
If ws.AutoFilterMode Then ws.AutoFilterMode = False

' Применяем фильтр по каждому слову из списка
For Each word In filterWords
If word.Row > 1 Then ' Пропускаем заголовок
rng.AutoFilter Field:=1, Criteria1:="=" & word.Value & "", Operator:=xlOr
End If
Next word
End Sub

Как адаптировать макрос под свои нужды:

• 📝 Измените диапазоны A1:A... (данные) и D1:D... (список слов для фильтра).
• 🔄 Для фильтра с учётом регистра замените Criteria1:="=" & word.Value & "" на проверку через InStr(1, cell.Value, word.Value, vbTextCompare).
• ⚡ Чтобы фильтр работал по нескольким столбцам, добавьте дополнительные условия в цикл.

⚠️ Внимание: Макросы не работают в веб-версии Excel 365 и на устройствах с Excel для iPad/Android без подписки Microsoft 365. Перед использованием сохраните файл с расширением .xlsm (с поддержкой макросов).

FAQ: Ответы на частые вопросы

=FILTER(A2:C100; (ИСЧИСЛ(ПОИСК("критерий1"; A2:A100))) * (ИСЧИСЛ(ПОИСК("критерий2"; C2:C100))); "Нет данных")

=FILTER(A2:B100; A2:A100<>""; "Нет данных")