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

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

Іноді потрібно видалити весь рядок, якщо комірка містить нуль у програмі Excel, і ви можете видалити їх по одному, якщо їх декілька. Але як щодо сотень рядків, що містять нуль, потрібно видалити? Ви можете вибрати один із хитрих наведених нижче способів його вирішення.

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


Видалити рядок, якщо комірка містить нуль із функцією фільтра в Excel

За допомогою функції фільтра можна відфільтрувати всі рядки на основі нульових значень у певному стовпці, а потім видалити всі видимі рядки пізніше. Будь ласка, виконайте наступне.

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

2. Потім у першій комірці вибраного стовпця відображається стрілка спадного меню, клацніть стрілку та виберіть Кількісні фільтри > Так само з розкривного списку.

doc delete, якщо нуль 1

3 В Спеціальний автофільтр діалогове вікно, введіть номер 0 в текстове поле, як показано на знімку екрана, а потім клацніть на OK кнопки.

doc delete, якщо нуль 1

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

doc delete, якщо нуль 1

5. Тепер усі видимі рядки видаляються. Можна натиснути дані > фільтр знову показати всі дані без комірок з нульовим значенням. Дивіться знімок екрана:

doc delete, якщо нуль 1


Легко видаліть усі рядки, якщо в певному діапазоні в Excel існують нульові значення:

Kutools для Excel Виберіть певні клітини Утиліта допомагає легко вибрати цілі рядки, якщо в певному діапазоні існують нульові значення, а потім ви можете швидко видалити всі вибрані рядки вручну без помилок.
Завантажте та спробуйте зараз! (30-денний безкоштовний маршрут)


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

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

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

2. У вікні Microsoft Visual Basic for Applications натисніть Insert > Модулі, а потім скопіюйте та вставте наступний код VBA у вікно модуля.

VBA: Видаліть цілі рядки, якщо в певному діапазоні стовпців на аркуші є нульове значення

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8 ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("0", LookIn: = xlValues) If Not Rng is Nothing then Rng.EntireRow.Delete End If Loop While Not Rng - це нічого Application.ScreenUpdating = True End Sub

3 Натисніть кнопку F5 клавіша для запуску коду в спливаючому вікні Kutools для Excel діалоговому вікні виберіть діапазон стовпців, який потрібно видалити цілими рядками, виходячи з нульових значень усередині, а потім клацніть на OK кнопку. Дивіться знімок екрана:

doc delete, якщо нуль 1

Потім усі рядки на основі нульових значень у вказаному діапазоні стовпців негайно видаляються.

doc delete, якщо нуль 1


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

Для багатьох користувачів Excel використання коду VBA небезпечно для видалення даних у Excel. Якщо ви точно не довіряєте коду VBA, тут ми рекомендуємо вам спробувати Виберіть певні клітини корисність Kutools для Excel.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

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

2 В Виберіть певні клітини діалогове вікно, вам потрібно:

(1) Виберіть Весь ряд опція в Тип вибору .

(2) Виберіть Так само в першому Конкретний тип , а потім введіть номер 0 у текстове поле.

(3) Клацніть на OK кнопки.

3. З'явиться діалогове вікно, щоб повідомити, скільки рядків було вибрано, клацніть на OK кнопку. Тепер вибрані всі рядки з нульовими значеннями, що існують у зазначеному діапазоні стовпців. Клацніть правою кнопкою миші до будь-якого вибраного рядка, а потім натисніть видаляти в меню, що клацне правою кнопкою миші. Дивіться знімок екрана:

doc delete, якщо нуль 1

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

doc delete, якщо нуль 1

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


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


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

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

🤖 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 (15)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
This comment was minimized by the moderator on the site
Insert this in VB new module.
This is with InputBox to delete row which contains that word.

Attribute VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK Tools"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("word to delete Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
WHAT IF you have a big sheet, and there are rows you want to keep, and others rows that contain certain key words and delete those? the kutools work for me but for one key word that many rows have that key word, the rows were deleted, i just want to have multiple key words to do the same? does this work for the code above?
This comment was minimized by the moderator on the site
Good Day,
Kutools can deal with two key words at the same time. You need to enable its second condition with "And" or "Or". Hope I can help.
This comment was minimized by the moderator on the site
This didn't work for me. It changed all values in my chosen column and the adjacent column to zeros. I must be doing something wrong!
This comment was minimized by the moderator on the site
Hi Sheri,
The code works well in my case. Which Excel verson do you use?
This comment was minimized by the moderator on the site
Hi Crystal. I posted this two years ago so I’m guessing I figured it out. But thanks for the reply.
This comment was minimized by the moderator on the site
Hi dears , I need a code to hide the rows which have the value=0 on the column "N" in the sheet 1. The value of the column "N" will change when update the details on the Sheet 2. that's the time need to un-hide the row. is this possible to do this with Excel formula(without macro and Excel Filters).
This comment was minimized by the moderator on the site
modified for my purpose--thank you for your help: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Set the range you want to remove the unused 0 quantity rows from" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed 0's ROWS from column FG--calculating now--please wait" Application.Calculation = xlAutomatic End Sub
This comment was minimized by the moderator on the site
I modified the below code to work for me. This deleted every row in column C that had "Delete" in the cell of column C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Hi,
its worked for me, thanks a lot.
if I have multiple sheets? how i can run the script 1 time for all the sheets?
This comment was minimized by the moderator on the site
thanks for the response, worked for me
This comment was minimized by the moderator on the site
I modified the above code to work for me. I wanted to delete every row that had "Delete" in row C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
Your VB code doesn't work. It deletes all rows with a Zero in the 10s position. I hope no one actually uses this as they will delete data...
This comment was minimized by the moderator on the site
This was a life saver!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations