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

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

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

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


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

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

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

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

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

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

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

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

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

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

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


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

Kutools for Excel's Виберіть певні клітини Утиліта допомагає легко вибрати цілі рядки, якщо в певному діапазоні існують нульові значення, а потім ви можете швидко видалити всі вибрані рядки вручну без помилок.
Завантажте та спробуйте зараз! (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 for Excel

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

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

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

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

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

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

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

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

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

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

doc delete, якщо нуль 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, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (15)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Це була порятунок!!
Цей коментар був мінімізований модератором на сайті
Ваш код VB не працює. Він видаляє всі рядки з нулем у позиції 10s. Я сподіваюся, що ніхто насправді не використовує це, оскільки вони видалить дані...
Цей коментар був мінімізований модератором на сайті
Я змінив код вище, щоб він працював на мене. Я хотів видалити кожен рядок, який мав "Delete" в рядку C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Якщо не Rng - це нічого, то Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True End Sub
Цей коментар був мінімізований модератором на сайті
Я змінив код нижче, щоб він працював на мене. Це видалило кожен рядок у стовпці C, який мав "Delete" в клітинці стовпця C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete") , LookIn:=xlValues) Якщо не Rng — це нічого, то 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) Якщо не Rng - це нічого, то Rng.EntireRow.Delete End If Loop While Not Rng Is Nothing Application.ScreenUpdating = True Range("FF92").Виберіть Selection.End(xlDown).Виберіть MsgBox "Видалено РЯДКИ 0 зі стовпця FG--розрахунок зараз--будь ласка, зачекайте" Application.Calculation = xlAutomatic End Sub
Цей коментар був мінімізований модератором на сайті
Привіт, шановні, мені потрібен код, щоб приховати рядки зі значенням = 0 у стовпці "N" на аркуші 1. Значення стовпця "N" зміниться під час оновлення деталей на аркуші 2. Ось час потрібно скасувати приховування рядка. чи можна це зробити за допомогою формули Excel (без макросів і фільтрів Excel).
Цей коментар був мінімізований модератором на сайті
Це не спрацювало для мене. Він змінив усі значення у вибраному мною стовпці та сусідньому стовпці на нулі. Мабуть, я щось роблю не так!
Цей коментар був мінімізований модератором на сайті
Привіт Шері,
У моєму випадку код працює добре. Яку версію Excel ви використовуєте?
Цей коментар був мінімізований модератором на сайті
Привіт Кристал. Я опублікував це два роки тому, тому, мабуть, зрозумів. Але дякую за відповідь.
Цей коментар був мінімізований модератором на сайті
Вставте це в новий модуль VB.
Це з InputBox, щоб видалити рядок, який містить це слово.

Атрибут VB_Name = "FindDelRowByWord"
Під FindDelRow()
'Оновлення до 20140616
Dim Rng як дальність
Dim WorkRng як діапазон
Dim xRep як рядок
On Error Resume Next
xTitleId = "Інструменти ZOK"
Встановіть WorkRng = Application.Selection
Встановіть WorkRng = Application.InputBox("Діапазон", xTitleId, WorkRng.Address, Тип:=8)
xRep = Application.InputBox("слово для видалення рядка:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = Невірний
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?
There are no comments posted here yet

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL