Přejít k hlavnímu obsahu

Jak odstranit celý řádek, pokud buňka obsahuje nulu v aplikaci Excel?

Někdy chcete odstranit celý řádek, pokud buňka obsahuje v aplikaci Excel nulu, a můžete je odstranit jeden po druhém, pokud existuje několik z nich. Ale co třeba stovky řádků obsahujících nulu musely být odstraněny? Můžete si vybrat jeden z níže uvedených složitých způsobů řešení.

Pokud buňka obsahuje nulu, odstraňte řádek pomocí funkce Filtr v aplikaci Excel
Odstraňte řádek, pokud buňka obsahuje nulu s VBA v aplikaci Excel
Odstraňte řádek, pokud buňka obsahuje nulu pomocí programu Kutools pro Excel


Pokud buňka obsahuje nulu, odstraňte řádek pomocí funkce Filtr v aplikaci Excel

Pomocí funkce Filtr můžete odfiltrovat všechny řádky na základě nulových hodnot v určitém sloupci a poté odstranit všechny viditelné řádky. Postupujte prosím následovně.

1. Vyberte buňky sloupců, které obsahují nulové hodnoty, podle kterých chcete odstranit celé řádky, a poté klepněte na Data > Filtr. Viz snímek obrazovky:

2. Poté se v první buňce vybraného sloupce zobrazí rozevírací šipka, klikněte na šipku a poté vyberte Číselné filtry > rovná z rozevíracího seznamu.

doc delete, pokud nula 1

3. V Vlastní automatický filtr v dialogovém okně zadejte číslo 0 do textového pole, jak je ukázáno níže, a poté klikněte na OK .

doc delete, pokud nula 1

4. Poté se odfiltrují všechny buňky s nulovou hodnotou v tomto určitém sloupci. Vyberte prosím všechny viditelné buňky v rozsahu filtrů a klikněte na ně pravým tlačítkem, vyberte Odstranit řádky z nabídky pravého tlačítka myši. A ve vyskakovacím okně s výzvou klikněte na OK knoflík. Viz screenshot:

doc delete, pokud nula 1

5. Nyní jsou odstraněny všechny viditelné řádky. Můžete kliknout Data > Filtr znovu pro zobrazení všech dat bez buněk s nulovou hodnotou. Viz snímek obrazovky:

doc delete, pokud nula 1


Snadno smažte všechny řádky, pokud v určitém rozsahu v aplikaci Excel existují nulové hodnoty:

Kutools pro Excel Vyberte konkrétní buňky obslužný program vám pomůže snadno vybrat celé řádky, pokud v určitém rozsahu existují nulové hodnoty, a poté můžete všechny vybrané řádky rychle odstranit bez jakýchkoli chyb.
Stáhněte si a vyzkoušejte! (30denní bezplatná trasa)


Odstraňte řádek, pokud buňka obsahuje nulu s VBA v aplikaci Excel

Tato část vám ukáže metodu VBA k odstranění všech řádků, pokud v určitém sloupci v aplikaci Excel existují nulové hodnoty.

1. lis Alt + F11 současně zobrazíte Microsoft Visual Basic pro aplikace okno.

2. V okně Microsoft Visual Basic pro aplikace klepněte na Vložit > Modul, potom zkopírujte a vložte následující kód VBA do okna modulu.

VBA: Odstraňte celé řádky, pokud v určitém rozsahu sloupců v listu existuje nulová hodnota

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. zmáčkni F5 klíč ke spuštění kódu, ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah sloupců, ze kterých chcete odstranit celé řádky, na základě nulových hodnot uvnitř, a poté klikněte na OK knoflík. Viz screenshot:

doc delete, pokud nula 1

Poté budou všechny řádky založené na nulových hodnotách ve specifikovaném rozsahu sloupců okamžitě odstraněny.

doc delete, pokud nula 1


Odstraňte řádek, pokud buňka obsahuje nulu pomocí programu Kutools pro Excel

Pro mnoho uživatelů aplikace Excel je použití kódu VBA nebezpečné k odstranění dat v aplikaci Excel. Pokud kódu VBA nedůvěřujete přesně, doporučujeme vám vyzkoušet Vyberte konkrétní buňky užitečnost Kutools pro Excel.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Vyberte rozsah sloupců, který odstraní celé řádky na základě nulových hodnot uvnitř, a poté klikněte Kutools > vybrat > Vyberte konkrétní buňky. Viz snímek obrazovky:

2. V Vyberte konkrétní buňky dialogové okno, musíte:

(1) Vyberte ikonu Celá řada možnost v Typ výběru sekce.

(2) Vyberte položku rovná Zaprvé Specifický typ rozevírací seznam a poté zadejte číslo 0 do textového pole.

(3) Klikněte na OK .

3. Zobrazí se dialogové okno, které vám sdělí, kolik řádků bylo vybráno, klepněte na OK knoflík. Nyní jsou vybrány všechny řádky s nulovými hodnotami v zadaném rozsahu sloupců. Klikněte pravým tlačítkem na vybraný řádek a poté klikněte Vymazat v nabídce pravým tlačítkem. Viz snímek obrazovky:

doc delete, pokud nula 1

Nyní jsou všechny řádky s nulovými hodnotami v zadaném sloupci okamžitě odstraněny. Viz snímek obrazovky:

doc delete, pokud nula 1

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Odstraňte řádek, pokud buňka obsahuje nulu pomocí programu Kutools pro Excel


Relativní články:

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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