Gå til hovedindhold

Hvordan slettes hele rækken, hvis cellen indeholder nul i Excel?

Nogle gange vil du slette hele rækken, hvis cellen indeholder nul i Excel, og du kan slette dem en efter en, hvis der er et par af dem. Men hvad med hundreder af rækker, der indeholder nul, skulle fjernes? Du kan vælge en af ​​de vanskelige måder nedenfor for at løse det.

Slet række, hvis celle indeholder nul med filterfunktion i Excel
Slet række, hvis celle indeholder nul med VBA i Excel
Slet række, hvis cellen indeholder nul med Kutools til Excel


Slet række, hvis celle indeholder nul med filterfunktion i Excel

Du kan bruge filterfunktionen til at filtrere alle rækker ud fra nulværdierne i en bestemt kolonne og derefter slette alle synlige rækker senere. Gør som følger.

1. Vælg de søjleceller, der indeholder de nulværdier, du vil slette hele rækkerne baseret på, og klik derefter på data > filtre. Se skærmbillede:

2. Derefter vises en rullemenu i den første celle i den valgte kolonne, klik på pilen og vælg derefter Antal filtre > Lig fra rullelisten.

doc slet, hvis nul 1

3. i Brugerdefineret autofilter dialogboks, indtast nummer 0 i tekstboksen som vist nedenstående skærmbillede, og klik derefter på OK .

doc slet, hvis nul 1

4. Derefter filtreres alle nulværdieceller i denne bestemte kolonne ud. Vælg alle synlige celler i filterområdet, og højreklik på dem, vælg Slet rækker fra højreklikmenuen. Og i boksen med pop op-meddelelse skal du klikke på OK knap. Se skærmbillede:

doc slet, hvis nul 1

5. Nu slettes alle synlige rækker. Du kan klikke data > filtre igen for at vise alle data uden celler med nulværdi. Se skærmbillede:

doc slet, hvis nul 1


Slet let alle rækker, hvis der findes nulværdier i et bestemt interval i Excel:

Kutools til Excel Vælg specifikke celler hjælpeprogram hjælper dig med nemt at vælge hele rækker, hvis der findes nulværdier i et bestemt område, og derefter kan du hurtigt slette alle valgte rækker manuelt uden fejl.
Download og prøv det nu! (30-dages gratis spor)


Slet række, hvis celle indeholder nul med VBA i Excel

Dette afsnit viser dig VBA-metoden til at slette alle rækker, hvis der findes nulværdier i en bestemt kolonne i Excel.

1. Trykke Alt + F11 taster samtidigt for at få vist Microsoft Visual Basic til applikationer vindue.

2. Klik på i vinduet Microsoft Visual Basic til applikationer indsatte > Moduler, kopier og indsæt derefter følgende VBA-kode i modulvinduet.

VBA: Slet hele rækker, hvis der findes nulværdi i et bestemt kolonneområde i et regneark

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng Som 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 = Falsk Indstil Rng = WorkRng.Find ("0", LookIn: = xlValues) Hvis ikke Rng er intet, så Rng.EntireRow. Slet slut, hvis sløjfe, mens ikke Rng, er intet Application.ScreenUpdating = True End Sub

3. Tryk på F5 nøgle til at køre koden, når den dukker op KutoolsforExcel Vælg det kolonneområde, du vil slette hele rækker, baseret på nulværdierne indeni, og klik derefter på OK knap. Se skærmbillede:

doc slet, hvis nul 1

Derefter slettes alle rækker baseret på nulværdierne i det angivne kolonneområde straks.

doc slet, hvis nul 1


Slet række, hvis cellen indeholder nul med Kutools til Excel

For mange Excel-brugere er det farligt at bruge VBA-kode for at fjerne data i Excel. Hvis du ikke nøjagtigt har tillid til VBA-koden, anbefaler vi dig her at prøve Vælg specifikke celler nytte af Kutools til Excel.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Vælg det kolonneområde, du vil fjerne hele rækker baseret på nulværdierne indeni, og klik derefter på Kutools > Type > Vælg specifikke celler. Se skærmbillede:

2. i Vælg specifikke celler dialog, skal du:

(1) Vælg Hele rækken valgmulighed i Valgtype sektion.

(2) Vælg Lig først og fremmest Specifik type rulleliste, og indtast derefter nummer 0 ind i tekstboksen.

(3) Klik på OK .

3. Der vises en dialogboks, der fortæller dig, hvor mange rækker der er valgt, klik på OK knap. Nu er alle rækker med nulværdierne i det angivne kolonneområde valgt. Højreklik til en hvilken som helst valgt række, og klik derefter på Slette i højreklikmenuen. Se skærmbillede:

doc slet, hvis nul 1

Nu findes alle rækker med nulværdier i den angivne kolonne straks. Se skærmbillede:

doc slet, hvis nul 1

  Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Slet række, hvis cellen indeholder nul med Kutools til Excel


Relative artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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