Note: The other languages of the website are Google-translated. Back to English

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


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.
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!
officetab botten
Sortera kommentarer efter
Kommentarer (15)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Detta var en livräddare!!
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...
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
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
Denna kommentar minimerades av moderatoren på webbplatsen
tack för svaret, funkade för mig
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?
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
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).
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!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Sheri,
Koden fungerar bra i mitt fall. Vilken Excel-version använder du?
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.
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
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?
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.
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?
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL