Как удалить строки, не содержащие определенный текст в Excel?

Возможно, некоторые из вас знают, как удалить все строки, когда они содержат определенные тексты в Excel, но если вы хотите удалить строку, когда она не содержит определенных текстов, как это сделать? Следуйте этому руководству, и вы найдете способ решить эту проблему в Excel.

Удаление строк, не содержащих определенный текст с помощью фильтра

Удаление строк, не содержащих определенный текст с помощью VBA

Удаление строк, не содержащих определенный текст с помощью Kutools для Excel

Удаление строк, не содержащих определенный текст с помощью фильтра

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

1. Выберите столбец, который содержит тексты, на основе которых вы хотите удалить строки, и нажмите Данные > Фильтр. Смотрите скриншот:

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

3. Затем вы увидите только строку заголовка и строки, не содержащие определенный текст. Смотрите скриншот:

4. Выберите все эти строки, кроме строки заголовка, щелкните правой кнопкой мыши и выберите Удалить строку из контекстного меню. Смотрите скриншот:

5. Затем снова нажмите Данные > Фильтр, и все строки, не содержащие определенный текст, будут удалены. Смотрите скриншот:

Удаление строк, не содержащих определенный текст с помощью VBA

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

1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

2. В открывшемся окне нажмите Вставить > Модуль, чтобы отобразить новое окно модуля, затем скопируйте следующий код VBA в окно модуля.

VBA: Удалить всю строку, если ячейка не содержит определенный текст.

Sub DeleteRowNoInclude()
'Updateby Extendoffice
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

4. Затем нажмите ОК и введите текст, на основе которого вы хотите удалить строки, в другое всплывающее диалоговое окно. Смотрите скриншот:

5. Нажмите ОК, и строки, не содержащие «Apple», будут удалены.

Удаление строк, не содержащих определенный текст с помощью Kutools для Excel

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

Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатно попробуйте без ограничений в течение 30 дней. Получите его сейчас

1. Выберите столбец, где вы хотите удалить строки, не содержащие определенный текст, и нажмите Kutools > Инструменты выбора > Выбрать определенные ячейки. Смотрите скриншот:

2. В диалоговом окне Выбрать определенные ячейки отметьте Вся строка, выберите Не содержит и введите определенный текст в текстовое поле. Также вы можете нажать кнопку диапазона в разделе Указать тип, чтобы выбрать ячейку, которая содержит определенный текст.

3. Затем нажмите ОК, строки, не содержащие определенный текст, будут выбраны. Щелкните правой кнопкой мыши и выберите Удалить из контекстного меню. Смотрите скриншот:

4. Теперь все строки, не содержащие определенный текст в диапазоне, удалены. Нажмите здесь для получения дополнительной информации о функции Выбрать определенные ячейки.

Связанные статьи:

• Удаление всей строки, если ячейка не содержит ноль в Excel
• Удаление строк, не соответствующих критериям на другом листе