Прескочи на основното съдържание

Как да изтрия целия ред, ако клетката съдържа нула в Excel?

Автор: Слънце Последна промяна: 2020-05-21

Понякога искате да изтриете целия ред, ако клетката съдържа нула в Excel, и можете да ги изтриете един по един, ако има няколко от тях. Но какво ще кажете за стотици редове, съдържащи нула, които трябва да бъдат премахнати? Можете да изберете един от сложните начини по-долу, за да го разрешите.

Изтрийте ред, ако клетката съдържа нула с функцията за филтриране в Excel
Изтриване на ред, ако клетката съдържа нула с VBA в Excel
Изтрийте ред, ако клетката съдържа нула с Kutools за Excel


Изтрийте ред, ако клетката съдържа нула с функцията за филтриране в Excel

Можете да използвате функцията Филтър, за да филтрирате всички редове въз основа на нулевите стойности в определена колона и след това да изтриете всички видими редове по-късно. Моля, направете следното.

1. Изберете клетките на колоната, които съдържат нулевите стойности, въз основа на които искате да изтриете целите редове, след което щракнете Дата > филтър. Вижте екранна снимка:

2. След това се показва падаща стрелка в първата клетка на избраната колона, щракнете върху стрелката и след това изберете Числови филтри > Равно на от падащия списък.

doc изтриване, ако е нула 1

3. В Персонализиран автофилтър диалогов прозорец, въведете число 0 в текстовото поле, както е показано на екранната снимка по-долу, и след това щракнете върху OK бутон.

doc изтриване, ако е нула 1

4. След това всички клетки с нулева стойност в тази колона се филтрират. Моля, изберете всички видими клетки в диапазона на филтъра и щракнете с десния бутон върху тях, изберете Изтриване на редове от менюто с десен бутон. И в изскачащото поле за подкана щракнете върху OK бутон. Вижте екранна снимка:

doc изтриване, ако е нула 1

5. Сега всички видими редове са изтрити. Можете да щракнете Дата > филтър отново, за да покаже всички данни без клетки с нулева стойност. Вижте екранна снимка:

doc изтриване, ако е нула 1


Лесно изтрийте всички редове, ако съществуват нулеви стойности в определен диапазон в Excel:

Kutools за Excel Изберете конкретни клетки помощната програма ви помага лесно да избирате цели редове, ако има нулеви стойности в определен диапазон, и след това можете бързо да изтриете всички избрани редове ръчно без никакви грешки.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)


Изтриване на ред, ако клетката съдържа нула с VBA в Excel

Този раздел ще ви покаже метода на VBA за изтриване на всички редове, ако в дадена колона в Excel съществуват нулеви стойности.

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

2. В прозореца на Microsoft Visual Basic за приложения щракнете Поставете > Модули, след това копирайте и поставете следния 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 Is Nothing Application.ScreenUpdating = True End Sub

3. Натисни F5 ключ за изпълнение на кода в изскачащия прозорец Kutools за Excel изберете диапазона от колони, в който искате да изтриете цели редове въз основа на нулевите стойности вътре, след което щракнете върху OK бутон. Вижте екранна снимка:

doc изтриване, ако е нула 1

След това всички редове, базирани на нулевите стойности в определен диапазон от колони, се изтриват незабавно.

doc изтриване, ако е нула 1


Изтрийте ред, ако клетката съдържа нула с Kutools за Excel

За много потребители на Excel използването на VBA код е опасно за премахване на данни в Excel. Ако не се доверявате точно на кода на VBA, тук ви препоръчваме да опитате Изберете конкретни клетки полезност на Kutools за Excel.

Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.

1. Изберете диапазона от колони, в който ще премахнете цели редове въз основа на нулевите стойности вътре, и след това щракнете Kutools > Изберете > Изберете конкретни клетки. Вижте екранна снимка:

2. В Изберете конкретни клетки диалог, трябва да:

(1) Изберете Цял ред опция в Тип селекция раздел.

(2) Изберете Равно на в първия Специфичен тип падащ списък, след което въведете номер 0 в текстовото поле.

(3) Щракнете върху OK бутон.

3. Изскача диалогов прозорец, за да ви каже колко реда са избрани, щракнете върху OK бутон. Сега всички редове с нулеви стойности съществуват в посочения диапазон на колона са избрани. Моля, щракнете с десния бутон върху всеки избран ред, след което щракнете Изтрий в менюто с десен бутон. Вижте екранна снимка:

doc изтриване, ако е нула 1

Сега всички редове с нулеви стойности съществуват в посочената колона се изтриват незабавно. Вижте екранна снимка:

doc изтриване, ако е нула 1

  Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.


Изтрийте ред, ако клетката съдържа нула с Kutools за Excel


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

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за 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