В Excel ви можете застосувати потужну функцію "Знайти та замінити", щоб легко видаляти рядки на основі певного значення комірки. Будь ласка, виконайте наступне:

1. Виберіть діапазон, з якого ви будете видаляти рядки на основі певного значення комірки, і відкрийте діалогове вікно Знайти та замінити натисканням кнопки Ctrl + F клавіші одночасно.

2. У діалоговому вікні Знайти та замінити введіть певне значення комірки (у нашому випадку ми вводимо Сое) в Find what і натисніть на Find All кнопку. Дивіться перший знімок екрана нижче:

3. Виберіть усі результати пошуку внизу діалогового вікна «Знайти та замінити» та закрийте це діалогове вікно. (примітки: Ви можете вибрати один із результатів пошуку, а потім Ctrl + A клавіші для вибору всіх знайдених результатів. Дивіться другий знімок екрана вище.)
І тоді ви зможете побачити, що вибрано всі комірки, що містять певне значення.

4. Клацніть правою кнопкою миші на виділених клітинках і виберіть Delete з меню, що клацне правою кнопкою миші. А потім перевірте Entire row у спливаючому діалоговому вікні Видалити та клацніть на OK кнопку. Тепер ви побачите, що всі клітинки, що містять певне значення, видаляються. Дивіться скріншоти нижче:

А потім цілі рядки були видалені на основі певного значення вже.

За допомогою наступного коду VBA ви можете швидко видалити рядки з певним значенням комірки, виконайте такі дії:

1, натисніть Alt + F11 клавіші одночасно відкрити Microsoft Visual Basic for applications вікно

2. Клацання Insert > Moduleта введіть наступний код в Модуль:

VBA: Видаліть цілі рядки на основі значення комірки

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Потім натисніть на Run для запуску коду.

4. У діалоговому вікні, що з’явиться, виберіть діапазон, з якого ви будете видаляти рядки на основі певного значення, та клацніть на OK кнопки.

5. В іншому діалоговому вікні введіть певне значення, за яким ви видаляєте рядки, і клацніть на OK кнопку. Дивіться знімок екрана:

І тоді ви побачите, що цілі рядки були видалені на основі вже вказаного значення.

Якщо ви встановили Kutools for Excel, його Select Specific Cells Ця функція може допомогти вам швидко видалити рядки з певним значенням. Будь ласка, виконайте наступне:

1. Виберіть діапазон, який ви видалите рядки, виходячи з певного значення, і натисніть Kutools > Select > Select Specific Cells. Дивіться знімок екрана:

2. У діалоговому вікні Select Specified Cells, що відкриється, перевірте Entire row опція, виберіть Contains від Specific type в розкривному списку, введіть вказане значення у правому полі та натисніть Ok (див. знімок екрана вище).
Після застосування цієї функції відкриється діалогове вікно, яке покаже, скільки комірок було знайдено на основі вказаних критеріїв. Клацніть на OK , щоб закрити його.

3. Тепер виділено цілі рядки з певним значенням. Клацніть правою кнопкою миші на вибрані рядки та натисніть на Delete з меню, що клацне правою кнопкою миші. Дивіться знімок екрана нижче:

примітки: Це Select Specific Cells функція підтримує видалення рядків на одне або два певні значення. Для видалення рядків на основі двох зазначених значень, будь-ласка, вкажіть інше значення в Specific type розділу діалогового вікна Select Specific Cells, як показано на наступному знімку екрана:

У деяких випадках може знадобитися видалити рядки на основі кількох значень комірок з іншого стовпця / списку в Excel. Тут я познайомлю Kutools for Excel's Select Same & Different Cells функція для швидкого вирішення з легкістю.

1. Клацання Kutools > Select > Select Same & Different Cells щоб відкрити діалогове вікно Вибір однакових та різних клітинок.

2. На відкритті Select Same & Different Cells діалогове вікно, будь-ласка, виконайте наступне (див. знімок екрана):

(1) В Find values in Виберіть колонку, де ви знайдете певні значення;
(2) В According to , будь ласка, виберіть стовпець / список із кількома значеннями, на основі яких ви будете видаляти рядки;
(3) В Based on розділ, будь ласка, перевірте Each row варіант;
(4) В Find розділ, будь ласка, перевірте Same Values варіант;
(5) Перевірте Select entire rows внизу діалогового вікна, що відкривається.
примітки: Якщо два зазначені стовпці містять однаковий заголовок, перевірте My data has headers варіант.

3. Натисніть Ok , щоб застосувати цю утиліту. А потім виходить діалогове вікно і показує, скільки рядків було вибрано. Просто натисніть OK , щоб закрити його.

А потім були виділені всі рядки, що містять значення серед зазначеного списку.

4. Клацання Home > Delete > Delete Sheet Rows щоб видалити всі виділені рядки.