Preskoči na glavno vsebino

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 brezplačna 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čno (30-dnevno) preskusno različico 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 pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


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!
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