Salt la conținutul principal

Cum să ștergeți întregul rând dacă celula conține zero în Excel?

Uneori, doriți să ștergeți întregul rând dacă celula conține zero în Excel și le puteți șterge unul câte unul dacă există câteva dintre ele. Dar ce zici de sute de rânduri care conțin zero ar trebui eliminate? Puteți alege una dintre modalitățile dificile de mai jos pentru a o rezolva.

Ștergeți rândul dacă celula conține zero cu funcția Filtru în Excel
Ștergeți rândul dacă celula conține zero cu VBA în Excel
Ștergeți rândul dacă celula conține zero cu Kutools pentru Excel


Ștergeți rândul dacă celula conține zero cu funcția Filtru în Excel

Puteți utiliza funcția Filtrare pentru a filtra toate rândurile pe baza valorilor zero dintr-o anumită coloană și apoi ștergeți toate rândurile vizibile mai târziu. Vă rugăm să faceți următoarele.

1. Selectați celulele coloanei care conțin valorile zero pe care doriți să ștergeți întregul rând pe baza acestora, apoi faceți clic pe Date > Filtru. Vedeți captura de ecran:

2. Apoi se afișează o săgeată drop-down în prima celulă a coloanei selectate, faceți clic pe săgeată, apoi selectați Filtre numerice > este egală cu din lista drop-down.

doc ștergeți dacă zero 1

3. În Filtru automat personalizat caseta de dialog, introduceți numărul 0 în caseta de text, după cum se arată în imaginea de mai jos, apoi faceți clic pe OK butonul.

doc ștergeți dacă zero 1

4. Apoi toate celulele cu valoare zero din această anumită coloană sunt filtrate. Selectați toate celulele vizibile din intervalul de filtrare și faceți clic dreapta pe ele, selectați Ștergeți rândurile din meniul cu clic dreapta. Și în caseta de prompt pop-up, faceți clic pe OK buton. Vedeți captura de ecran:

doc ștergeți dacă zero 1

5. Acum toate șirurile vizibile sunt șterse. Puteți face clic Date > Filtru din nou pentru a afișa toate datele fără celule cu valoare zero. Vedeți captura de ecran:

doc ștergeți dacă zero 1


Ștergeți cu ușurință toate rândurile dacă există valori zero într-un anumit interval din Excel:

Kutools pentru Excel Selectați celule specifice utilitarul vă ajută să selectați cu ușurință rânduri întregi dacă există valori zero într-un anumit interval și apoi puteți șterge rapid toate rândurile selectate manual, fără greșeli.
Descărcați și încercați acum! (traseu gratuit de 30 de zile)


Ștergeți rândul dacă celula conține zero cu VBA în Excel

Această secțiune vă va arăta metoda VBA pentru a șterge toate rândurile dacă există valori zero într-o anumită coloană din Excel.

1. presa Alt + F11 tastele simultan pentru a afișa Microsoft Visual Basic pentru aplicații fereastră.

2. În fereastra Microsoft Visual Basic pentru aplicații, faceți clic pe Insera > Module, apoi copiați și lipiți următorul cod VBA în fereastra modulului.

VBA: Ștergeți rânduri întregi dacă există valoare zero în anumite intervale de coloane dintr-o foaie de lucru

Sub DeleteZeroRow () 'Updateby20140616 Dim Rng As 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 = False Set Rng = WorkRng.Find ("0", LookIn: = xlValues) Dacă nu Rng nu este nimic, atunci Rng.EntireRow.Delete End If Loop În timp ce nu este Rng nu este nimic Application.ScreenUpdating = True End Sub

3. apasă pe F5 tasta pentru a rula codul, în fereastra pop-up KutoolsforExcel caseta de dialog, selectați intervalul de coloane pe care doriți să ștergeți rânduri întregi pe baza valorilor zero din interior, apoi faceți clic pe OK buton. Vedeți captura de ecran:

doc ștergeți dacă zero 1

Apoi toate rândurile bazate pe valorile zero din intervalul de coloane specificat sunt șterse imediat.

doc ștergeți dacă zero 1


Ștergeți rândul dacă celula conține zero cu Kutools pentru Excel

Pentru mulți utilizatori Excel, utilizarea codului VBA este periculoasă pentru eliminarea datelor din Excel. Dacă nu aveți încredere exactă în codul VBA, aici vă recomandăm să încercați Selectați celule specifice utilitatea Kutools pentru Excel.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați intervalul de coloane pe care veți elimina rânduri întregi pe baza valorilor zero din interior, apoi faceți clic pe Kutools > Selectați > Selectați celule specifice. Vedeți captura de ecran:

2. În Selectați celule specifice dialog, trebuie să:

(1) Selectați Întregul rând opțiune în Tipul de selecție secţiune.

(2) Selectați este egală cu in primul Tipul specific lista verticală, apoi introduceți numărul 0 în caseta de text.

(3) Faceți clic pe OK butonul.

3. O casetă de dialog apare pentru a vă spune câte rânduri au fost selectate, faceți clic pe OK buton. Acum sunt selectate toate rândurile cu valori zero în intervalul de coloane specificat. Faceți clic dreapta pe orice rând selectat, apoi faceți clic pe Șterge în meniul cu clic dreapta. Vedeți captura de ecran:

doc ștergeți dacă zero 1

Acum toate rândurile cu valorile zero există în coloana specificată sunt șterse imediat. Vedeți captura de ecran:

doc ștergeți dacă zero 1

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Ștergeți rândul dacă celula conține zero cu Kutools pentru Excel


Articole relative:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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