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

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 sti)

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-dag) for 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:

Slet rækker, der ikke indeholder bestemt tekst i Excel?

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb...

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!

Læs mere ... Gratis download... Køb...

Kommentarer (15)

Ingen vurderinger endnu. Vær den første til at bedømme!

Tom B.

omkring 8 år siden

#13382

Denne kommentar blev minimeret af moderatoren på webstedet

Dette var en livredder!!

Svar

Scott

omkring 7 år siden

#14679

Denne kommentar blev minimeret af moderatoren på webstedet

Din VB-kode virker ikke. Den sletter alle rækker med et nul i 10'er-positionen. Jeg håber, at ingen rent faktisk bruger dette, da de vil slette data...

Svar

Andrew

omkring 7 år siden

#15202

Denne kommentar blev minimeret af moderatoren på webstedet

Jeg ændrede ovenstående kode til at virke for mig. Jeg ønskede at slette hver række, der havde "Delete" i række C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Hvis ikke Rng er ingenting, så Rng.EntireRow.Delete End If Loop, mens Rng ikke er noget Application.ScreenUpdating = True End Sub

Svar

Andrew

omkring 7 år siden

#15203

Denne kommentar blev minimeret af moderatoren på webstedet

Jeg ændrede nedenstående kode til at virke for mig. Dette slettede hver række i kolonne C, der havde "Delete" i cellen i kolonne C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) Hvis ikke Rng er ingenting, så Rng.EntireRow.Delete End If Loop Mens Ikke Rng er ingenting Application.ScreenUpdating = True End Sub

Svar

anonym Andrew

omkring 6 år siden

#15204

Denne kommentar blev minimeret af moderatoren på webstedet

tak for svaret, virkede for mig

Svar

Yoav Andrew

omkring 3 år siden

#15205

Denne kommentar blev minimeret af moderatoren på webstedet

Hej,
det virkede for mig, mange tak.
hvis jeg har flere ark? hvordan kan jeg køre scriptet 1 gang for alle arkene?

Svar

J Murphy

omkring 7 år siden

#15486

Denne kommentar blev minimeret af moderatoren på webstedet

modificeret til mit formål - tak for din hjælp: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Indstil det interval, du vil fjerne den ubrugte 0-mængde rækker fra" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Vælg 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").Vælg Selection.End(xlDown).Vælg MsgBox "Removed" 0'er RÆKKER fra kolonne FG--beregner nu--vent venligst" Application.Calculation = xlAutomatic End Sub

Svar

R. Arunkumar

omkring 6 år siden

#17439

Denne kommentar blev minimeret af moderatoren på webstedet

Hej kære, jeg har brug for en kode til at skjule rækkerne, der har værdien = 0 i kolonnen "N" i ark 1. Værdien af kolonnen "N" ændres, når detaljerne på ark 2 opdateres. det er på tide nødt til at åbne rækken. er dette muligt at gøre dette med Excel-formel (uden makro og Excel-filtre).

Svar

Sheri

omkring 6 år siden

#17969

Denne kommentar blev minimeret af moderatoren på webstedet

Dette virkede ikke for mig. Det ændrede alle værdier i min valgte kolonne og den tilstødende kolonne til nuller. Jeg må gøre noget forkert!

Svar

krystal Sheri

omkring 3 år siden

#17970

Denne kommentar blev minimeret af moderatoren på webstedet

Hej Sheri,
Koden fungerer godt i mit tilfælde. Hvilken Excel-version bruger du?

Svar

Rapport

Sheri Dohm krystal

omkring 3 år siden

#17971

Denne kommentar blev minimeret af moderatoren på webstedet

Hej Crystal. Jeg postede dette for to år siden, så jeg gætter på, at jeg fandt ud af det. Men tak for svaret.

Svar

Rapport

Gæst

omkring 3 år siden

#27975

Denne kommentar blev minimeret af moderatoren på webstedet

Indsæt dette i VB nyt modul.
Dette er med InputBox for at slette række, der indeholder det ord.

Attribut VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Opdatering senest 20140616
Dim Rng Som Range
Dæmp WorkRng As Range
Dim xRep som streng
On Error Resume Next
xTitleId = "ZOK Tools"
Indstil WorkRng = Application.Selection
Indstil WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("ord til at slette række:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Indstil Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Hvis ikke Rng er ingenting så
Rng.EntireRow.Delete
End If
Loop Mens Ikke Rng Er Intet
Application.ScreenUpdating = True
End Sub

Svar

AndrewRosales Gæst

omkring 3 år siden

#27976

Denne kommentar blev minimeret af moderatoren på webstedet

HVAD HVIS du har et stort ark, og der er rækker, du vil beholde, og andre rækker, der indeholder bestemte nøgleord og sletter dem? kutools virker for mig, men for et nøgleord, som mange rækker har det nøgleord, blev rækkerne slettet, jeg vil bare have flere nøgleord for at gøre det samme? virker dette for koden ovenfor?

Svar

krystal AndrewRosales

omkring 3 år siden

#27977

Denne kommentar blev minimeret af moderatoren på webstedet

Good Day,
Kutools kan håndtere to nøgleord på samme tid. Du skal aktivere dens anden betingelse med "Og" eller "Eller". Håber jeg kan hjælpe.

Svar

Rapport

Luz aristi

cirka 2 måneder siden

#41228

Denne kommentar blev minimeret af moderatoren på webstedet

Undladelse af udnyttelse af subtotal Como harcer para eliminar las filas involucradas que en el subtotal es igual a 0?

Svar

Der er endnu ingen kommentarer her

Efterlad dine kommentarer

Sender som gæst

Navn (Påkrævet)

E-mail (Påkrævet)

Bedøm dette indlæg:

Nulstil

0 Tegn

Jeg accepterer vilkår og betingelser