Hoppa till huvudinnehåll

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


Radera enkelt alla rader om nollvärden finns i ett visst intervall i Excel:

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 spår)


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 dagar) av det här verktyget, 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:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


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