Перейти к основному содержанию

Как удалить всю строку, если ячейка содержит ноль в Excel?

Иногда вы хотите удалить всю строку, если ячейка содержит ноль в Excel, и вы можете удалить их по одной, если их несколько. Но как насчет того, чтобы удалить сотни строк, содержащих ноль? Вы можете выбрать один из сложных способов, указанных ниже.

Удалить строку, если ячейка содержит ноль, с помощью функции фильтра в Excel
Удалить строку, если ячейка содержит ноль, с помощью VBA в Excel
Удалить строку, если ячейка содержит ноль с помощью Kutools for Excel


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

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

1. Выберите ячейки столбца, содержащие нулевые значения, на основе которых вы хотите удалить все строки, затем щелкните Данные > ФИЛЬТР. Смотрите скриншот:

2. Затем в первой ячейке выбранного столбца отобразится стрелка раскрывающегося списка, щелкните стрелку и выберите Числовые фильтры > Равно из раскрывающегося списка.

документ удалить, если ноль 1

3. в Пользовательский автофильтр диалоговое окно введите номер 0 в текстовое поле, как показано на скриншоте ниже, а затем щелкните OK .

документ удалить, если ноль 1

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

документ удалить, если ноль 1

5. Теперь все видимые строки удалены. Вы можете нажать Данные > ФИЛЬТР снова, чтобы показать все данные без ячеек с нулевым значением. Смотрите скриншот:

документ удалить, если ноль 1


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

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


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

В этом разделе будет показан метод VBA для удаления всех строк, если в определенном столбце Excel существуют нулевые значения.

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

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

VBA: удалить целые строки, если в определенном диапазоне столбцов на листе существует нулевое значение

Sub DeleteZeroRow () 'Обновить ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("20140616", LookIn: = xlValues) Если не Rng Is Nothing, то Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub

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

документ удалить, если ноль 1

Затем все строки, основанные на нулевых значениях в указанном диапазоне столбцов, немедленно удаляются.

документ удалить, если ноль 1


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

Для многих пользователей Excel использование кода VBA опасно для удаления данных в Excel. Если вы не совсем доверяете коду VBA, здесь мы рекомендуем вам попробовать Выбрать определенные ячейки полезности Kutools for Excel.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

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

2. в Выбрать определенные ячейки диалог, вам необходимо:

(1) Выберите Весь ряд вариант в Тип выбора .

(2) Выберите Равно в первом Конкретный тип раскрывающийся список, затем введите номер 0 в текстовое поле.

(3) Щелкните значок OK .

3. Появится диалоговое окно, в котором указано, сколько строк было выбрано, щелкните значок OK кнопка. Теперь выбраны все строки с нулевыми значениями в указанном диапазоне столбцов. Щелкните правой кнопкой мыши любую выбранную строку, затем щелкните Удалить в контекстном меню. Смотрите скриншот:

документ удалить, если ноль 1

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

документ удалить, если ноль 1

  Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


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


Относительные статьи:

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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