Hur tar jag bort hela raden om cellen innehåller noll i Excel?

Ibland vill du ta bort hela raden om cellen innehåller noll i Excel, och du kan ta bort dem en efter en om det finns några av dem. Men vad sägs om hundratals rader med noll som behövs för att tas bort? Du kan välja ett av de knepiga sätten nedan för att lösa det.

Radera rad om cellen innehåller noll med filterfunktion i Excel
Ta bort rad om cellen innehåller noll med VBA i Excel
Ta bort rad om cellen innehåller noll med Kutools för Excel

Radera rad om cellen innehåller noll med filterfunktion i Excel

Du kan använda filterfunktionen för att filtrera bort alla rader baserat på nollvärdena i en viss kolumn och sedan ta bort alla synliga rader senare. Gör så här.

1. Markera de kolumnceller som innehåller nollvärdena som du vill ta bort hela raderna baserat på och klicka sedan på Data > Filter. Se skärmdump:

2. Sedan visas en rullgardinspil i den första cellen i den valda kolumnen, klicka på pilen och välj sedan Antal filter > lika från rullgardinsmenyn.

doc ta bort om noll 1

3. I Anpassat autofilter dialogrutan, ange nummer 0 in i textrutan som visas nedan på skärmdumpen och klicka sedan på OK knapp.

doc ta bort om noll 1

4. Därefter filtreras alla nollvärdeceller i denna särskilda kolumn bort. Välj alla synliga celler i filterområdet och högerklicka på dem, välj Radera rader från högerklickmenyn. Och i popup-rutan som dyker upp klickar du på OK knapp. Se skärmdump:

doc ta bort om noll 1

5. Nu raderas alla synliga rader. Du kan klicka Data > Filter igen för att visa all data utan celler med nollvärde. Se skärmdump:

doc ta bort om noll 1

Kutools för Excel Välj specifika celler verktyget hjälper dig att enkelt välja hela rader om nollvärden finns i ett visst intervall, och sedan kan du snabbt radera alla markerade rader manuellt utan några misstag.
Ladda ner och prova nu! (30-dagars gratis led)

Ta bort rad om cellen innehåller noll med VBA i Excel

Detta avsnitt visar VBA-metoden för att radera alla rader om det finns nollvärden i en viss kolumn i Excel.

1. Tryck Alt + F11 samtidigt för att visa Microsoft Visual Basic för applikationer fönster.

2. Klicka på i fönstret Microsoft Visual Basic for Applications Insert > Modulerna, kopiera och klistra sedan in följande VBA-kod i modulfönstret.

VBA: Ta bort hela rader om nollvärde finns i vissa kolumner i ett kalkylblad

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 Ställ in Rng = WorkRng.Find ("0", LookIn: = xlValues) Om inte Rng är ingenting då Rng.EntireRow. Ta bort slut om loop medan inte Rng är ingenting Application.ScreenUpdating = True End Sub

3. tryck på F5 nyckel för att köra koden, när den dyker upp KutoolsforExcel välj det kolumnintervall du vill ta bort hela rader baserat på nollvärdena inuti och klicka sedan på OK knapp. Se skärmdump:

doc ta bort om noll 1

Sedan raderas alla rader baserat på nollvärdena i det angivna kolumnområdet omedelbart.

doc ta bort om noll 1

Ta bort rad om cellen innehåller noll med Kutools för Excel

För många Excel-användare är det farligt att använda VBA-kod för att ta bort data i Excel. Om du inte precis litar på VBA-koden rekommenderar vi dig här att prova Välj specifika celler nytta av Kutools för Excel.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. Välj kolumnintervallet som du tar bort hela rader baserat på nollvärdena inuti och klicka sedan på Kutools > Välja > Välj specifika celler. Se skärmdump:

2. I Välj specifika celler dialog måste du:

(1) Välj Hela raden alternativet i Urvalstyp sektion.

(2) Välj lika i den första Specifik typ rullgardinsmeny och ange sedan nummer 0 in i textrutan.

(3) Klicka på OK knapp.

3. En dialogruta dyker upp för att berätta hur många rader som har valts, klicka på OK knapp. Nu är alla rader med nollvärdena i det angivna kolumnområdet markerade. Högerklicka till valfri rad och klicka sedan på Radera i högerklickmenyn. Se skärmdump:

doc ta bort om noll 1

Nu raderas alla rader med nollvärdena i den angivna kolumnen omedelbart. Se skärmdump:

doc ta bort om noll 1

Om du vill ha en gratis provperiod (30-dag) för detta verktyg, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.

Ta bort rad om cellen innehåller noll med Kutools för Excel

Relativa artiklar:

Radera rader som inte innehåller viss text i Excel?

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp...

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...

Kommentarer (15)

Inga betyg än. Bli först med att betygsätta!

Tom B

ca 8 år sedan

#13382

Denna kommentar minimerades av moderatoren på webbplatsen

Detta var en livräddare!!

Svara

Scott

ca 7 år sedan

#14679

Denna kommentar minimerades av moderatoren på webbplatsen

Din VB-kod fungerar inte. Den raderar alla rader med en nolla i 10s-positionen. Jag hoppas att ingen faktiskt använder detta eftersom de kommer att radera data...

Svara

Andrew

ca 7 år sedan

#15202

Denna kommentar minimerades av moderatoren på webbplatsen

Jag modifierade ovanstående kod för att fungera för mig. Jag ville ta bort varje rad som hade "Delete" i rad C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Om inte Rng är ingenting så Rng.EntireRow.Delete End If Loop medan inte Rng är ingenting Application.ScreenUpdating = True End Sub

Svara

Andrew

ca 7 år sedan

#15203

Denna kommentar minimerades av moderatoren på webbplatsen

Jag ändrade koden nedan för att fungera för mig. Detta tog bort varje rad i kolumn C som hade "Delete" i cellen i kolumn C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) Om inte Rng är ingenting så Rng.EntireRow.Delete End If Loop medan inte Rng är ingenting Application.ScreenUpdating = True End Sub

Svara

Anonym Andrew

ca 6 år sedan

#15204

Denna kommentar minimerades av moderatoren på webbplatsen

tack för svaret, funkade för mig

Svara

Yoav Andrew

ca 3 år sedan

#15205

Denna kommentar minimerades av moderatoren på webbplatsen

Hej,
det fungerade för mig, tack så mycket.
om jag har flera ark? hur kan jag köra skriptet en gång för alla ark?

Svara

J Murphy

ca 7 år sedan

#15486

Denna kommentar minimerades av moderatoren på webbplatsen

modifierad för mitt syfte--tack för din hjälp: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Ställ in intervallet du vill ta bort den oanvända 0-kvantiteten rader från" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Typ:=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").Välj Selection.End(xlDown).Välj MsgBox "Removed" 0:or RADER från kolumn FG--beräknar nu--vänligen vänta" Application.Calculation = xlAutomatic End Sub

Svara

R. Arunkumar

ca 6 år sedan

#17439

Denna kommentar minimerades av moderatoren på webbplatsen

Hej kära kära, jag behöver en kod för att dölja raderna som har värdet=0 i kolumnen "N" i ark 1. Värdet på kolumnen "N" kommer att ändras när detaljerna på ark 2 uppdateras. det är den tiden måste avgömma raden. är detta möjligt att göra detta med Excel-formel (utan makro och Excel-filter).

Svara

Sheri

ca 6 år sedan

#17969

Denna kommentar minimerades av moderatoren på webbplatsen

Det här fungerade inte för mig. Det ändrade alla värden i min valda kolumn och den intilliggande kolumnen till nollor. Jag måste göra något fel!

Svara

kristall Sheri

ca 3 år sedan

#17970

Denna kommentar minimerades av moderatoren på webbplatsen

Hej Sheri,
Koden fungerar bra i mitt fall. Vilken Excel-version använder du?

Svara

Report

Sheri Dohm kristall

ca 3 år sedan

#17971

Denna kommentar minimerades av moderatoren på webbplatsen

Hej Crystal. Jag skrev det här för två år sedan så jag antar att jag kom på det. Men tack för svaret.

Svara

Report

Gäst

ca 4 år sedan

#27975

Denna kommentar minimerades av moderatoren på webbplatsen

Infoga detta i VB ny modul.
Detta är med InputBox för att ta bort rad som innehåller det ordet.

Attribut VB_Name = "FindDelRowByWord"
Sub FindDelRow()
'Uppdatering senast 20140616
Dim Rng som intervall
Dim WorkRng As Range
Dim xRep As String
On Error Resume Next
xTitleId = "ZOK-verktyg"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("ord för att radera rad:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Om inte Rng är ingenting då
Rng.EntireRow.Delete
End If
Slinga medan inte Rng är ingenting
Application.ScreenUpdating = True
End Sub

Svara

AndrewRosales Gäst

ca 3 år sedan

#27976

Denna kommentar minimerades av moderatoren på webbplatsen

Tänk om du har ett stort ark och det finns rader du vill behålla, och andra rader som innehåller vissa nyckelord och raderar dem? kutools fungerar för mig men för ett nyckelord som många rader har det nyckelordet raderades raderna, jag vill bara ha flera nyckelord för att göra detsamma? fungerar detta för koden ovan?

Svara

kristall AndrewRosales

ca 3 år sedan

#27977

Denna kommentar minimerades av moderatoren på webbplatsen

God dag,
Kutools kan hantera två nyckelord samtidigt. Du måste aktivera dess andra villkor med "Och" eller "Eller". Hoppas jag kan hjälpa.

Svara

Report

Luz aristi

om 2 månader sedan

#41228

Denna kommentar minimerades av moderatoren på webbplatsen

Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?

Svara

Det finns inga kommentarer här ännu

Lämna dina kommentarer

Postar som gäst

Logga in

Namn (Krävs)

E-post (Obligatoriskt)

Betygsätt detta inlägg:

Återställa

0 Tecken

Jag godkänner termer och villkor