Перейти до основного матеріалу

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

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

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

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

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


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

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

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

doc-delete-рядки-не містять-1
doc-стрілка
doc-delete-рядки-не містять-2

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

doc-delete-рядки-не містять-3

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

doc-delete-рядки-не містять-4

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

doc-delete-рядки-не містять-5

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

doc-delete-рядки-не містять-6
doc-стрілка
doc-delete-рядки-не містять-7

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

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

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

2. У вікні натисніть Insert > Модулі щоб показати нове вікно модуля, скопіюйте наступний код VBA у вікно модуля.

VBA: Видалити весь рядок, якщо комірка містить певний текст.

Sub DeleteRowNoInclude()
'Update20140618
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. клацання прогін і з'явиться діалогове вікно для вибору діапазону для роботи. Дивіться знімок екрана:

doc-delete-рядки-не містять-8

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

doc-delete-рядки-не містять-9

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


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

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

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

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

doc-delete-рядки-не містять-10

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

doc-delete-рядки-не містять-11

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

doc-delete-рядки-не містять-12

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


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

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to modify the VBA code to add an option like this,

Dim xOpt As Integer
xOpt = Application.InputBox("Rows Around Kept (0, 1, 2)", xTitleId, "", Type:=1)

where 0 is the same as your code above where it keeps only the row with specified word in it and deletes all other rows.
where 1 keeps the rows immediately above and below the rows with the specified word in it and deletes all other rows.
where 2 keeps the 2 rows above and below the rows with the specified words in it and deletes all other rows.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations