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

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

В этой статье мы разберём 5 рабочих методов: от простых фильтров до продвинутых скриптов на VBA. Каждый способ подходит для разных сценариев — будь то разовая очистка или регулярная обработка данных. Вы узнаете, как избежать распространённых ошибок (например, случайного удаления важных строк) и как адаптировать решения под свои нужды. Если вы работаете с Excel 2010, Excel 2019 или Microsoft 365, здесь найдётся подходящий вариант.

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

1. Удаление через фильтрацию (самый простой способ)

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

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

1. Выделите диапазон данных (включая заголовки столбцов).
2. Перейдите на вкладку Данные → Фильтр (или нажмите Ctrl+Shift+L).
3. Щёлкните по стрелке фильтра в столбце, где нужно искать слово.
4. В меню выберите Текстовые фильтры → Содержит....
5. Введите искомое слово (например, "тест") и нажмите ОК.
6. Excel отобразит только строки с этим словом. Выделите их, кликните правой кнопкой и выберите Удалить строку.
7. Снимите фильтр, нажав Данные → Фильтр ещё раз.

✅ Плюсы: простота, не требует подготовки, работает на любых устройствах.

❌ Минусы: удаляет только целые строки, а не отдельные ячейки. Если слово находится в нескольких столбцах, придётся фильтровать каждый по отдельности.

Когда этот метод не подходит?

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

2. Использование функции НАЙТИ и условного форматирования

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

Инструкция:

1. Выделите диапазон ячеек для проверки (например, A1:A100).
2. Перейдите на вкладку Главная → Условное форматирование → Создать правило.
3. Выберите Использовать формулу для определения форматируемых ячеек.
4. Введите формулу:

   =НЕОШИБКА(НАЙТИ("слово"; A1))

   Замените "слово" на искомый текст (например, "устарело").

5. Задайте формат выделения (например, красный фон) и нажмите ОК.

Теперь все ячейки с искомым словом будут подсвечены. Вы можете:

• 🔍 Вручную проверить их перед удалением.
• 🗑️ Выделить подсвеченные ячейки (через Найти и выделить → Выделить группу ячеек) и удалить.
• 📊 Отсортировать данные по цвету, чтобы сгруппировать ненужные записи.

=НЕОШИБКА(ПОИСК("тест"; НИЖН.РЕГ(A1)))

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

=A1="слово"

3. Удаление с помощью вспомогательного столбца и фильтра

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

Шаги:

1. Добавьте новый столбец справа от данных (например, столбец Z).
2. В первой ячейке столбца (например, Z1) введите заголовок, например "Удалить".
3. В Z2 введите формулу (предположим, мы ищем слово "тест" в столбцах A–C):

   =ИЛИ(НЕОШИБКА(НАЙТИ("тест"; A2)); НЕОШИБКА(НАЙТИ("тест"; B2)); НЕОШИБКА(НАЙТИ("тест"; C2)))

4. Растяните формулу на все строки (двойным кликом по маркеру заполнения).
5. Примените фильтр к таблице и отсортируйте по столбцу Z, оставив только строки со значением ИСТИНА.
6. Удалите отфильтрованные строки и удалите вспомогательный столбец.

Критичный нюанс: если в данных есть пустые ячейки, формула может возвращать ошибку. Чтобы избежать этого, оберните каждый НАЙТИ в ЕСЛИОШИБКА:

=ИЛИ(ЕСЛИОШИБКА(НЕОШИБКА(НАЙТИ("тест"; A2))); 0; 1); ...)

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

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

Пример макроса для удаления целых строк, где в столбце A есть слово "устарело":

Sub УдалитьСтрокиПоСлову()
Dim ws As Worksheet
Dim rng As Range, cell As Range
Dim i As Long
Dim ключевоеСлово As String

ключевоеСлово = "устарело" ' Замените на своё слово
Set ws = ActiveSheet
Set rng = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

For i = rng.Rows.Count To 1 Step -1
If InStr(1, rng.Cells(i, 1).Value, ключевоеСлово, vbTextCompare) > 0 Then
rng.Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

1. Нажмите Alt+F11, чтобы открыть редактор VBA.
2. Вставьте код в новый модуль (Insert → Module).
3. Замените "устарело" на своё слово и при необходимости измените диапазон (A1:A...).
4. Запустите макрос нажатием F5.

rng.Cells(i, 1).ClearContents

Для поиска в нескольких столбцах (например, A–C):

If InStr(1, rng.Cells(i, 1).Value, ключевоеСлово) > 0 Or _
InStr(1, rng.Cells(i, 2).Value, ключевоеСлово) > 0 Or _
InStr(1, rng.Cells(i, 3).Value, ключевоеСлово) > 0 Then

=FILTER(A2:Z; NOT(REGEXMATCH(A2:A; "тест")))

=ДЛСТР(A2)-ДЛСТР(ПОДСТАВИТЬ(A2;"слово";""))

=ДЛСТР(ПОДСТАВИТЬ(" "&A2&" ";" слово ";""))-ДЛСТР(" "&A2&" ")