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

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! (30-denní trasa zdarma)


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 zkušební verzi (30-den) této utility, 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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (15)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Tohle byla záchrana života!!
Tento komentář byl moderátorem webu minimalizován
Váš VB kód nefunguje. Vymaže všechny řádky s nulou na pozici 10s. Doufám, že to ve skutečnosti nikdo nepoužívá, protože smaže data...
Tento komentář byl moderátorem webu minimalizován
Upravil jsem výše uvedený kód, aby mi fungoval. Chtěl jsem smazat každý řádek, který měl v řádku C "Delete". 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 I když Rng is Nothing Application.ScreenUpdating = True End Sub
Tento komentář byl moderátorem webu minimalizován
Upravil jsem níže uvedený kód, aby mi fungoval. Tím byl odstraněn každý řádek ve sloupci C, který měl v buňce sloupce C "Delete". 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
Tento komentář byl moderátorem webu minimalizován
děkuji za reakci, fungovalo to pro mě
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
fungovalo to pro mě, díky moc.
když mám více listů? jak mohu spustit skript jednou pro všechny listy?
Tento komentář byl moderátorem webu minimalizován
upraveno pro můj účel--děkuji za vaši pomoc: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Nastavte rozsah, ze kterého chcete odstranit nevyužité 0 množství řádky z" 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 I když Rng is Nothing Application.ScreenUpdating = True Range("FF92").Select Selection.End(xlDown).Select MsgBox "Removed" ŘÁDKY 0 ze sloupce FG--výpočet nyní--čekejte prosím" Application.Calculation = xlAutomatic End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj vážení, potřebuji kód pro skrytí řádků, které mají hodnotu=0 ve sloupci "N" na listu 1. Hodnota sloupce "N" se změní při aktualizaci podrobností na listu 2. to je čas potřeba odkrýt řádek. je to možné udělat pomocí vzorce Excel (bez makra a filtrů Excel).
Tento komentář byl moderátorem webu minimalizován
Tohle se mi nepovedlo. Všechny hodnoty v mnou zvoleném sloupci a sousedním sloupci se změnily na nuly. Asi dělám něco špatně!
Tento komentář byl moderátorem webu minimalizován
ahoj Sheri,
Kód v mém případě funguje dobře. Jakou verzi Excelu používáte?
Tento komentář byl moderátorem webu minimalizován
Ahoj Crystal. Psal jsem to před dvěma lety, takže jsem na to asi přišel. Ale děkuji za odpověď.
Tento komentář byl moderátorem webu minimalizován
Vložte to do nového modulu VB.
Toto je s InputBox k odstranění řádku, který obsahuje toto slovo.

Atribut VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Aktualizace do 20140616
Dim Rng As Range
Dim WorkRng As Range
Dim xRep jako řetězec
On Error Resume Next
xTitleId = "Nástroje ZOK"
Nastavte 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
Nastavit 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
Tento komentář byl moderátorem webu minimalizován
CO KDYŽ máte velký list a jsou tam řádky, které si chcete ponechat, a další řádky, které obsahují určitá klíčová slova a ty smazat? kutools pro mě fungují, ale pro jedno klíčové slovo, že mnoho řádků má toto klíčové slovo, byly řádky odstraněny, chci mít více klíčových slov, abych udělal totéž? funguje to pro výše uvedený kód?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Kutools umí pracovat se dvěma klíčovými slovy současně. Druhou podmínku musíte povolit pomocí „A“ nebo „Nebo“. Doufám, že pomůžu.
Tento komentář byl moderátorem webu minimalizován
Mezisoučet použití mezisoučet Coo hacer para eliminar las filas involucradas que en el el mezisoučet je stejný a 0?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL