Як видалити рядки, що не містять певного тексту в Excel?

Можливо, хтось із вас знає, як видалити цілі рядки, коли вони містять певні тексти в Excel, але якщо ви хочете зробити цілий рядок, коли вони не містять певних текстів, як ви могли це зробити? Тепер, дотримуючись цього підручника, ви можете знайти спосіб вирішити цю проблему в Excel.

Видаліть рядки, що не містять певного тексту, за допомогою фільтра

Видаліть рядки, що не містять певного тексту, за допомогою VBA

Видаліть рядки, які не містять певного тексту, за допомогою Kutools для Excel

---

Видаліть рядки, що не містять певного тексту, за допомогою фільтра

В Excel функція фільтра може швидко допомогти вам відфільтрувати рядки, що не містять певного тексту, а потім ви можете вибрати їх для видалення.

1. Виберіть стовпець, що містить тексти, на основі яких ви будете видаляти рядки, та натисніть дані > Фільтр. Дивіться знімок екрана:

2. У заголовку стовпця є кнопка фільтра, і натисніть її, щоб відкрити випадаючий список, позначте всі, крім певного тексту, на якому ви хочете базуватися. Дивіться знімок екрана:

3. Тоді ви бачите лише рядок заголовка, а рядки, що не містять певного тексту, фільтруються. Див. Скріншот:

4. Виділіть усі, крім рядка заголовка, і клацніть правою кнопкою миші, щоб вибрати Видалити рядок з контекстного меню. Дивіться знімок екрана:

5 Потім натисніть дані > Фільтр знову, і тоді всі рядки, що не містять певного тексту, видаляються. Дивіться знімок екрана:

---

Видаліть рядки, що не містять певного тексту, за допомогою VBA

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

1. прес Alt + F11 щоб відобразити Microsoft Visual Basic для додатків вікна.

2. У вікні натисніть Insert > Модулі щоб показати нове вікно модуля, скопіюйте наступний код 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

3. клацання прогін і з'явиться діалогове вікно для вибору діапазону для роботи. Дивіться знімок екрана:

4 Потім натисніть OKі введіть текст, з якого потрібно видалити основу рядків, в інше спливаюче діалогове вікно. Дивіться знімок екрана:

5. клацання OK, а рядки, що не містять Apple, буде видалено.

---

Видаліть рядки, які не містять певного тексту, за допомогою Kutools для Excel

Якщо ви вважаєте, що вищезазначені методи вам нелегкі, ви можете скористатися ними Kutools для Excel's Виберіть певні клітини функцію.

Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз

1. Виберіть стовпець, з якого потрібно видалити рядки, що не містять певного тексту, та натисніть Кутулс > Виберіть Інструменти > Виберіть певні клітини. Дивіться знімок екрана:

2. І в Виберіть певні клітини діалогове вікно, перевірте Весь ряд, і виберіть Не містить, і введіть певний текст у текстове поле, також ви можете натиснути кнопку діапазону в Конкретний тип розділ, щоб вибрати комірку, яка містить певний текст.

3 Потім натисніть Ok, тоді виділяються рядки, що не містять певного тексту, клацніть правою кнопкою миші, щоб вибрати видаляти з контекстного меню. Дивіться знімок екрана:

4. Тепер усі рядки, що не містять певного тексту в діапазоні, видаляються. Клацніть на неї, щоб отримати додаткову інформацію про Select Specific Cells.

---

Відносні статті:

• Видаліть цілі рядки, якщо комірка не містить нуля в Excel
• Видаліть рядки, що не відповідають критеріям, на іншому аркуші