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

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


Če v določenem obsegu v Excelu obstajajo nič vrednosti, preprosto izbrišite vse vrstice:

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:


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.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (15)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
To je bilo reševanje življenja!!
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 ...
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
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
Ta komentar je moderator na spletnem mestu minimiziral
hvala za odgovor, mi je uspelo
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?
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
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).
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!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Sheri,
Koda v mojem primeru deluje dobro. Katero različico Excela uporabljate?
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.
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
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?
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.
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?
Tu še ni objavljenih komentarjev

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL