Kako izbrisati celo vrstico, če celica vsebuje nič v Excelu?

Včasih želite izbrisati celo vrstico, če celica vsebuje nič v Excelu, in jih lahko izbrišete enega za drugim, če jih je nekaj. Kaj pa stotine vrstic, ki vsebujejo nič, je bilo treba odstraniti? Za njegovo rešitev lahko izberete enega od spodnjih zapletenih načinov.

Izbriši vrstico, če celica vsebuje nič s funkcijo filtriranja v Excelu
Izbriši vrstico, če celica vsebuje nič z VBA v Excelu
Izbriši vrstico, če celica vsebuje nič s Kutools za Excel

Izbriši vrstico, če celica vsebuje nič s funkcijo filtriranja v Excelu

S pomočjo funkcije Filter lahko filtrirate vse vrstice na podlagi ničelnih vrednosti v določenem stolpcu in nato pozneje izbrišete vse vidne vrstice. Naredite naslednje.

1. Izberite celice stolpcev, ki vsebujejo nič vrednosti, na podlagi katerih želite izbrisati celotne vrstice, in kliknite datum > filter. Oglejte si posnetek zaslona:

2. Nato se v prvi celici izbranega stolpca prikaže spustna puščica, kliknite puščico in nato izberite Številčni filtri > enako s spustnega seznama.

doc izbriši, če je nič 1

3. V Ljubljani Samodejni filter po meri v pogovorno okno vnesite številko 0 v besedilno polje, kot je prikazano na spodnji sliki zaslona, in nato kliknite OK gumb.

doc izbriši, če je nič 1

4. Nato se v tem določenem stolpcu izločijo vse celice z ničlo. Izberite vse vidne celice v območju filtra in z desno miškino tipko kliknite nanje, izberite Izbriši vrstice v meniju z desnim klikom. In v pogovornem oknu s pojavnim oknom kliknite OK . Oglejte si posnetek zaslona:

doc izbriši, če je nič 1

5. Zdaj so izbrisane vse vidne vrstice. Lahko kliknete datum > filter spet za prikaz vseh podatkov brez celic z ničelno vrednostjo. Oglejte si posnetek zaslona:

doc izbriši, če je nič 1

Kutools za Excel Izberite Specific Cells pripomoček vam pomaga enostavno izbrati celotne vrstice, če v določenem obsegu obstajajo nič vrednosti, nato pa lahko vse izbrane vrstice hitro izbrišete ročno brez napak.
Prenesite in preizkusite zdaj! (30-dnevna prosta pot)

Izbriši vrstico, če celica vsebuje nič z VBA v Excelu

Ta razdelek vam bo prikazal metodo VBA za brisanje vseh vrstic, če v določenem stolpcu v Excelu obstajajo nič vrednosti.

1. Pritisnite Alt + F11 tipke hkrati za prikaz Microsoft Visual Basic za aplikacije okno.

2. V oknu Microsoft Visual Basic for Applications kliknite Vstavi > Moduli, nato kopirajte in prilepite naslednjo kodo VBA v okno modula.

VBA: Izbrišite celotne vrstice, če v delovnem listu v določenem obsegu stolpcev obstaja nič

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. Pritisnite F5 tipko za zagon kode v pojavnem oknu KutoolsforExcel v pogovornem oknu izberite obseg stolpcev, v katerem želite izbrisati celotne vrstice glede na ničelne vrednosti znotraj, nato kliknite OK . Oglejte si posnetek zaslona:

doc izbriši, če je nič 1

Nato se vse vrstice, ki temeljijo na ničelnih vrednostih v določenem obsegu stolpcev, takoj izbrišejo.

doc izbriši, če je nič 1

Izbriši vrstico, če celica vsebuje nič s Kutools za Excel

Za veliko uporabnikov Excela je uporaba kode VBA nevarna za odstranjevanje podatkov v Excelu. Če kodi VBA ne zaupate natančno, vam priporočamo, da preizkusite Izberite Specific Cells uporabnost Kutools za Excel.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Izberite obseg stolpcev, na podlagi ničelnih vrednosti znotraj boste odstranili celotne vrstice, in kliknite Kutools > Izberite > Izberite Specific Cells. Oglejte si posnetek zaslona:

2. V Ljubljani Izberite Specific Cells pogovorno okno, morate:

(1) Izberite Cela vrstica možnost v Vrsta izbire oddelek.

(2) Izberite enako v prvem Posebna vrsta spustnega seznama in vnesite številko 0 v besedilno polje.

(3) Kliknite OK gumb.

3. Pojavi se pogovorno okno, ki vam pove, koliko vrstic je bilo izbranih, kliknite OK . Zdaj so izbrane vse vrstice z ničelnimi vrednostmi v določenem obsegu stolpcev. Z desno miškino tipko kliknite katero koli izbrano vrstico in nato kliknite Brisanje v meniju z desnim klikom. Oglejte si posnetek zaslona:

doc izbriši, če je nič 1

Zdaj se vse vrstice z ničelnimi vrednostmi v določenem stolpcu takoj izbrišejo. Oglejte si posnetek zaslona:

doc izbriši, če je nič 1

Če želite imeti brezplačen preizkus (30-dan) tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.

Izbriši vrstico, če celica vsebuje nič s Kutools za Excel

Relativni članki:

Ali želite izbrisati vrstice, ki ne vsebujejo določenega besedila v Excelu?

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ...

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...

Komentarji (15)

Ocene še ni. Bodite prvi in ocenite!

Tom B.

pred približno dvema letoma

#13382

Ta komentar je moderator na spletnem mestu minimiziral

To je bilo reševanje življenja!!

Odgovori

Scott

pred približno dvema letoma

#14679

Ta komentar je moderator na spletnem mestu minimiziral

Vaša VB koda ne deluje. Izbriše vse vrstice z ničlo na položaju 10s. Upam, da tega nihče dejansko ne bo uporabljal, saj bo izbrisal podatke ...

Odgovori

Andrew

pred približno dvema letoma

#15202

Ta komentar je moderator na spletnem mestu minimiziral

Zgornjo kodo sem spremenil, da deluje zame. Želel sem izbrisati vsako vrstico, ki je imela "Delete" v vrstici C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Če ni Rng ni nič, potem Rng.EntireRow.Delete End, če zanka, medtem ko ni Rng ni nič Application.ScreenUpdating = True End Sub

Odgovori

Andrew

pred približno dvema letoma

#15203

Ta komentar je moderator na spletnem mestu minimiziral

Spodnjo kodo sem spremenil, da deluje zame. S tem je bila izbrisana vsaka vrstica v stolpcu C, ki je imela "Delete" v celici stolpca C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete") , LookIn:=xlValues) Če ni Rng ni nič, potem Rng.EntireRow.Delete End, če zanka, medtem ko ni Rng ni nič Application.ScreenUpdating = True End Sub

Odgovori

anonimni Andrew

pred približno dvema letoma

#15204

Ta komentar je moderator na spletnem mestu minimiziral

hvala za odgovor, mi je uspelo

Odgovori

Yoav Andrew

pred približno dvema letoma

#15205

Ta komentar je moderator na spletnem mestu minimiziral

Hi,
pri meni je delovalo, hvala lepa.
če imam več listov? kako lahko zaženem skript 1-krat za vse liste?

Odgovori

J Murphy

pred približno dvema letoma

#15486

Ta komentar je moderator na spletnem mestu minimiziral

spremenjeno za moj namen – hvala za vašo pomoč: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range ob napaki Nadaljuj Naprej xTitleId = "" Application.Calculation = xlManual MsgBox "Nastavite obseg, v katerem želite odstraniti neuporabljeno količino 0 vrstice iz" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Izberite Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) Če ni Rng ni nič, potem Rng.EntireRow.Delete End, če zanka, medtem ko ni Rng ni nič Application.ScreenUpdating = True Range("FF92").Izberite Selection.End(xlDown).Izberite MsgBox "Odstranjeno VRSTICE 0 iz stolpca FG--izračun zdaj--počakajte" Application.Calculation = xlAutomatic End Sub

Odgovori

R. Arunkumar

pred približno dvema letoma

#17439

Ta komentar je moderator na spletnem mestu minimiziral

Pozdravljeni dragi, potrebujem kodo, da skrijem vrstice z vrednostjo = 0 v stolpcu "N" na listu 1. Vrednost stolpca "N" se bo spremenila, ko posodobite podrobnosti na listu 2. to je čas morate razkriti vrstico. ali je to mogoče storiti z Excelovo formulo (brez makra in Excelovih filtrov).

Odgovori

Šeri

pred približno dvema letoma

#17969

Ta komentar je moderator na spletnem mestu minimiziral

To mi ni uspelo. Spremenil je vse vrednosti v izbranem stolpcu in sosednjem stolpcu na ničle. Verjetno delam nekaj narobe!

Odgovori

kristal Šeri

pred približno dvema letoma

#17970

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Sheri,
Koda v mojem primeru deluje dobro. Katero različico Excela uporabljate?

Odgovori

poročilo

Sheri Dohm kristal

pred približno dvema letoma

#17971

Ta komentar je moderator na spletnem mestu minimiziral

Živjo Crystal. To sem objavil pred dvema letoma, tako da predvidevam, da sem ugotovil. Ampak hvala za odgovor.

Odgovori

poročilo

Gost

pred približno dvema letoma

#27975

Ta komentar je moderator na spletnem mestu minimiziral

To vstavite v nov modul VB.
To je z InputBox za brisanje vrstice, ki vsebuje to besedo.

Atribut VB_Name = "FindDelRowByWord"
Pod FindDelRow()
'Posodobitev do 20140616
Dim Rng kot domet
Dim WorkRng As Range
Dim xRep kot niz
On Error Resume Next
xTitleId = "ZOK Tools"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("beseda za brisanje vrstice:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = Napačno
Do
Nastavi Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Če ne Rng ni nič potem
Rng.EntireRow.Delete
Konec Če
Loop While Not Rng je nič
Application.ScreenUpdating = Res
End Sub

Odgovori

AndrewRosales Gost

pred približno dvema letoma

#27976

Ta komentar je moderator na spletnem mestu minimiziral

KAJ ČE imate velik list in obstajajo vrstice, ki jih želite obdržati, in druge vrstice, ki vsebujejo določene ključne besede in jih izbrišete? kutools deluje zame, toda za eno ključno besedo, da ima veliko vrstic to ključno besedo, so bile vrstice izbrisane, samo želim imeti več ključnih besed, da naredim isto? ali to deluje za zgornjo kodo?

Odgovori

kristal AndrewRosales

pred približno dvema letoma

#27977

Ta komentar je moderator na spletnem mestu minimiziral

Dober dan,
Kutools lahko obravnava dve ključni besedi hkrati. Njegov drugi pogoj morate omogočiti z "In" ali "Or". Upam, da lahko pomagam.

Odgovori

poročilo

Luz aristi

pred približno tremi meseci

#41228

Ta komentar je moderator na spletnem mestu minimiziral

Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?

Odgovori

Tu še ni objavljenih komentarjev