Ga naar hoofdinhoud

Hoe de hele rij te verwijderen als de cel nul bevat in Excel?

Soms wilt u de hele rij verwijderen als de cel nul bevat in Excel, en u kunt ze een voor een verwijderen als er een paar zijn. Maar hoe zit het met honderden rijen met nul die moesten worden verwijderd? U kunt een van de onderstaande lastige manieren kiezen om het probleem op te lossen.

Verwijder rij als cel nul bevat met filterfunctie in Excel
Verwijder rij als cel nul bevat met VBA in Excel
Verwijder rij als cel nul bevat met Kutools voor Excel


Verwijder rij als cel nul bevat met filterfunctie in Excel

U kunt de filterfunctie gebruiken om alle rijen uit te filteren op basis van de nulwaarden in een bepaalde kolom, en vervolgens alle zichtbare rijen later verwijderen. Ga als volgt te werk.

1. Selecteer de kolomcellen die de nulwaarden bevatten waarop u de volledige rijen wilt verwijderen, en klik vervolgens op Data > FILTER. Zie screenshot:

2. Vervolgens wordt een vervolgkeuzepijl weergegeven in de eerste cel van de geselecteerde kolom. Klik op de pijl en selecteer vervolgens Nummerfilters > Is gelijk aan uit de vervolgkeuzelijst.

doc verwijderen als nul 1

3. In de Aangepast AutoFilter dialoogvenster, voer het nummer in 0 in het tekstvak zoals hieronder afgebeeld, en klik vervolgens op de OK knop.

doc verwijderen als nul 1

4. Vervolgens worden alle cellen met nulwaarde in deze bepaalde kolom uitgefilterd. Selecteer alle zichtbare cellen in het filterbereik en klik er met de rechtermuisknop op, selecteer Rijen verwijderen vanuit het rechtsklikmenu. En klik in het pop-upvenster op het OK knop. Zie screenshot:

doc verwijderen als nul 1

5. Nu worden alle zichtbare rijen verwijderd. U kunt klikken Data > FILTER nogmaals om alle gegevens zonder cellen met nulwaarde weer te geven. Zie screenshot:

doc verwijderen als nul 1


Verwijder eenvoudig alle rijen als er nulwaarden bestaan ​​in een bepaald bereik in Excel:

Kutools voor Excel's Selecteer specifieke cellen hulpprogramma helpt u om eenvoudig hele rijen te selecteren als er nulwaarden bestaan ​​in een bepaald bereik, en vervolgens kunt u snel alle geselecteerde rijen handmatig verwijderen zonder fouten.
Download en probeer het nu! (30 dagen gratis proefrit)


Verwijder rij als cel nul bevat met VBA in Excel

In dit gedeelte ziet u de VBA-methode om alle rijen te verwijderen als er nulwaarden zijn in een bepaalde kolom in Excel.

1. druk op Alt + F11 toetsen tegelijk om de Microsoft Visual Basic voor toepassingen venster.

2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module, kopieer en plak vervolgens de volgende VBA-code in het modulevenster.

VBA: verwijder hele rijen als er een nulwaarde bestaat in een bepaald kolombereik in een werkblad

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 niets, dan Rng.EntireRow.Delete End If Loop While Not Rng is niets Application.ScreenUpdating = True End Sub

3. druk de F5 sleutel om de code uit te voeren, in de pop-up KutoolsvoorExcel dialoogvenster, selecteer het kolombereik waarvan u hele rijen wilt verwijderen op basis van de nulwaarden binnenin en klik vervolgens op het OK knop. Zie screenshot:

doc verwijderen als nul 1

Vervolgens worden alle rijen op basis van de nulwaarden in het opgegeven kolombereik onmiddellijk verwijderd.

doc verwijderen als nul 1


Verwijder rij als cel nul bevat met Kutools voor Excel

Voor veel Excel-gebruikers is het gebruik van VBA-code gevaarlijk om gegevens in Excel te verwijderen. Als u de VBA-code niet echt vertrouwt, raden we u hier aan om het Selecteer specifieke cellen nut van Kutools for Excel.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Selecteer het kolombereik waarvoor u hele rijen wilt verwijderen op basis van de nulwaarden erin en klik vervolgens op Kutools > kies > Selecteer specifieke cellen. Zie screenshot:

2. In de Selecteer specifieke cellen dialoogvenster, moet u:

(1) Selecteer het Hele rij optie in het Selectie type pagina.

(2) Selecteer Is gelijk aan in de eerste Specifiek type vervolgkeuzelijst en voer het nummer in 0 in het tekstvak.

(3) Klik op het OK knop.

3. Er verschijnt een dialoogvenster waarin u kunt zien hoeveel rijen er zijn geselecteerd. Klik op OK knop. Nu zijn alle rijen met de nulwaarden in het opgegeven kolombereik geselecteerd. Klik met de rechtermuisknop op een geselecteerde rij en klik vervolgens Verwijder in het rechtsklikmenu. Zie screenshot:

doc verwijderen als nul 1

Nu worden alle rijen met de nulwaarden in de opgegeven kolom onmiddellijk verwijderd. Zie screenshot:

doc verwijderen als nul 1

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Verwijder rij als cel nul bevat met Kutools voor Excel


Relatieve artikelen:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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