Note: The other languages of the website are Google-translated. Back to English

Как удалить всю строку, если ячейка содержит ноль в 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 for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (15)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Это было спасением жизни!!
Этот комментарий был сведен к минимуму модератором на сайте
Ваш код VB не работает. Он удаляет все строки с нулем в позиции 10. Я надеюсь, что никто на самом деле не использует это, поскольку они удалят данные...
Этот комментарий был сведен к минимуму модератором на сайте
Я изменил приведенный выше код, чтобы он работал на меня. Я хотел удалить каждую строку, в которой было «Удалить» в строке C. Sub Delete_DeleteRows() Установить WorkRng = Range («C2: C12000») Application.ScreenUpdating = False Do Set Rng = WorkRng.Find («Удалить», LookIn: = xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Я изменил приведенный ниже код, чтобы он работал на меня. Это удалило каждую строку в столбце C, в которой было «Удалить» в ячейке столбца C. Sub Delete_DeleteRows() Set WorkRng = Range («C2: C12000») Application.ScreenUpdating = False Do Set Rng = WorkRng.Find («Удалить» , LookIn:=xlValues) If Not Rng Is Nothing Then Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Этот комментарий был сведен к минимуму модератором на сайте
спасибо за ответ, мне помогло
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
это сработало для меня, большое спасибо.
если у меня несколько листов? как я могу запустить скрипт 1 раз для всех листов?
Этот комментарий был сведен к минимуму модератором на сайте
изменено для моей цели - спасибо за вашу помощь: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Установите диапазон, в котором вы хотите удалить неиспользуемое количество 0 строки из" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Выберите Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) Если Not Rng ничего не значит, 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-е ROWS из столбца FG — сейчас выполняется расчет — пожалуйста, подождите». Application.Calculation = xlAutomatic End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Привет, дорогие, мне нужен код, чтобы скрыть строки со значением = 0 в столбце «N» на листе 1. Значение столбца «N» изменится при обновлении сведений на листе 2. самое время нужно скрыть строку. возможно ли это сделать с помощью формулы Excel (без макросов и фильтров Excel).
Этот комментарий был сведен к минимуму модератором на сайте
Это не сработало для меня. Он изменил все значения в выбранном мной столбце и соседнем столбце на нули. Должно быть, я делаю что-то не так!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Шери,
Код работает хорошо в моем случае. Какую версию Excel вы используете?
Этот комментарий был сведен к минимуму модератором на сайте
Привет Кристалл. Я опубликовал это два года назад, так что я предполагаю, что понял это. Но спасибо за ответ.
Этот комментарий был сведен к минимуму модератором на сайте
Вставьте это в новый модуль VB.
Это с InputBox для удаления строки, содержащей это слово.

Атрибут VB_Name = "FindDelRowByWord"
Подпрограмма FindDelRow()
'Обновление20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep как строка
On Error Resume Next
xTitleId = "Инструменты ZOK"
Установите WorkRng = Application.Selection
Установите WorkRng = Application.InputBox ("Диапазон", xTitleId, WorkRng.Address, Type: = 8)
xRep = Application.InputBox("слово для удаления Row:", "ZOK Tools", , , , , 2)
Приложение.ScreenUpdating = False
Do
Установить Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Если не Rng - это ничто, то
Rng.EntireRow.Delete
End If
Цикл, пока не Rng ничего не значит
Application.ScreenUpdating = True
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
ЧТО ЕСЛИ у вас есть большой лист, и есть строки, которые вы хотите сохранить, и другие строки, содержащие определенные ключевые слова, и удалить их? kutools работает для меня, но для одного ключевого слова, которое есть во многих строках, есть это ключевое слово, строки были удалены, я просто хочу, чтобы несколько ключевых слов делали то же самое? это работает для кода выше?
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Kutools может работать с двумя ключевыми словами одновременно. Вам нужно включить его второе условие с помощью «И» или «Или». Надеюсь, я смогу помочь.
Этот комментарий был сведен к минимуму модератором на сайте
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL