Ugrás a tartalomra

Hogyan lehet törölni a teljes sort, ha a cella nulla az Excelben?

Előfordulhat, hogy törölni kívánja a teljes sort, ha a cella nulla az Excelben, és egyesével törölheti őket, ha van néhány. De mit szólna hozzá, ha nulla sort tartalmazó sorokat kellene eltávolítani? Az alábbiakban az egyik trükkös módszer közül választhat.

Törölje a sort, ha a cella nulla értéket tartalmaz az Excel szűrő funkcióval
Törölje a sort, ha a cella nulla értéket tartalmaz VBA-val az Excelben
Törölje a sort, ha a cella nullát tartalmaz a Kutools for Excel segítségével


Törölje a sort, ha a cella nulla értéket tartalmaz az Excel szűrő funkcióval

A Szűrő funkcióval kiszűrheti az összes sort az adott oszlop nulla értéke alapján, majd később törölheti az összes látható sort. Kérjük, tegye a következőket.

1. Jelölje ki azokat az oszlopcellákat, amelyek tartalmazzák azokat a nulla értékeket, amelyek alapján törölni kívánja a teljes sorokat, majd kattintson dátum > Szűrő. Lásd a képernyőképet:

2. Ezután egy legördülő nyíl jelenik meg a kijelölt oszlop első cellájában, kattintson a nyílra, majd válassza a lehetőséget Számszűrők > Egyenlő a legördülő listából.

doc törlés, ha nulla 1

3. Ban,-ben Egyéni automatikus szűrő párbeszédpanelen írja be a számot 0 az alábbi képernyőképen látható szövegmezőbe, majd kattintson a gombra OK gombot.

doc törlés, ha nulla 1

4. Ezután az adott oszlop összes nulla értékű celláját kiszűrjük. Válassza ki az összes látható cellát a szűrőtartományban, és kattintson rá a jobb egérgombbal, majd válassza a lehetőséget Sorok törlése a jobb egérgombbal kattintva. A felbukkanó prompt mezőben kattintson a gombra OK gomb. Lásd a képernyőképet:

doc törlés, ha nulla 1

5. Most minden látható sort töröl. Rákattinthat dátum > Szűrő ismét az összes adat megjelenítéséhez nulla értékű cellák nélkül. Lásd a képernyőképet:

doc törlés, ha nulla 1


Könnyen törölheti az összes sort, ha nulla érték létezik egy bizonyos tartományban az Excelben:

Kutools Excelhez Válassza a Specifikus cellák lehetőséget A segédprogram segítségével könnyedén kiválaszthatja a teljes sorokat, ha nulla érték létezik egy bizonyos tartományban, és akkor manuálisan gyorsan törölheti az összes kijelölt sort hiba nélkül.
Töltse le és próbálja ki most! (30 napos ingyenes pálya)


Törölje a sort, ha a cella nulla értéket tartalmaz VBA-val az Excelben

Ez a szakasz megmutatja az összes sor törlésének VBA módszerét, ha nulla érték létezik az Excel egy bizonyos oszlopában.

1. nyomja meg Alt + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. A Microsoft Visual Basic for Applications ablakban kattintson a gombra betétlap > Modulok, majd másolja és illessze be a következő VBA kódot a modul ablakába.

VBA: Ha a munkalap bizonyos oszloptartományában nulla érték létezik, törölje a teljes sorokat

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As Range Dim WorkRng As Range On Error Resume Next ) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find ("8", LookIn: = xlValues) Ha nincs Rng semmi, akkor Rng.EntireRow.Delete End, ha a hurok, míg a Rng nem semmi, Application.ScreenUpdating = True End Sub

3. megnyomni a F5 gombot a kód futtatásához az előugró ablakban KutoolsforExcel párbeszédpanelen válassza ki a teljes sorokat törölni kívánt oszloptartományt a belső nulla értékek alapján, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

doc törlés, ha nulla 1

Ezután az összes sor a megadott oszloptartomány nulla értéke alapján azonnal törlődik.

doc törlés, ha nulla 1


Törölje a sort, ha a cella nullát tartalmaz a Kutools for Excel segítségével

Számos Excel felhasználó számára a VBA kód használata veszélyes az adatok Excelben történő eltávolítására. Ha nem bízik pontosan a VBA kódban, akkor itt javasoljuk, hogy próbálja ki a Válassza a Specifikus cellák lehetőséget hasznossága Kutools az Excel számára.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Válassza ki azt az oszloptartományt, amelyből a teljes nulla értéket eltávolítja, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget. Lásd a képernyőképet:

2. Ban,-ben Válassza a Specifikus cellák lehetőséget párbeszédpanelen:

(1) Válassza ki a lehetőséget Teljes sor lehetőség a Kiválasztás típusa szakasz.

(2) Válassza ki Egyenlő az elsőben Konkrét típus legördülő listából, majd írja be a számot 0 a szövegmezőbe.

(3) Kattintson a gombra OK gombot.

3. Megjelenik egy párbeszédpanel, amely megmutatja, hogy hány sor van kijelölve, kattintson a gombra OK gomb. Most minden nulla értékű sor létezik a megadott oszloptartományban. Kattintson a jobb gombbal bármelyik kijelölt sorra, majd kattintson a gombra töröl a jobb egérgombbal a menüben. Lásd a képernyőképet:

doc törlés, ha nulla 1

Most minden, a megadott oszlopban lévő nulla értékű sor azonnal törlődik. Lásd a képernyőképet:

doc törlés, ha nulla 1

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Törölje a sort, ha a cella nullát tartalmaz a Kutools for Excel segítségével


Relatív cikkek:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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