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

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! (30- traseu liber de o zi)


Ș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 încercare gratuită (30-zi) a acestei utilitati, 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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

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!
fundul officetab
Comentarii (15)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta a fost un salvator de vieți!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul tău VB nu funcționează. Acesta șterge toate rândurile cu un zero în poziția 10s. Sper că nimeni nu folosește asta, deoarece va șterge datele...
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am modificat codul de mai sus pentru a funcționa pentru mine. Am vrut să șterg fiecare rând care avea „Delete” în rândul C. Sub Delete_DeleteRows() Set WorkRng = Range(“C2:C12000”) Application.ScreenUpdating = False Do Set Rng = WorkRng.Find(„Delete”, LookIn:= xlValues) Dacă Not Rng este nimic, atunci Rng.EntireRow.Delete End If Loop While Not Rng este nimic Application.ScreenUpdating = True End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am modificat codul de mai jos pentru a funcționa pentru mine. Acest lucru a șters fiecare rând din coloana C care avea „Delete” în celula coloanei C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) Dacă Not Rng este nimic, atunci Rng.EntireRow.Delete End If Loop While Not Rng este nimic Application.ScreenUpdating = True End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc pentru raspuns, a functionat pentru mine
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
a funcționat pentru mine, mulțumesc mult.
daca am mai multe foi? cum pot rula scriptul o dată pentru toate foile?
Acest comentariu a fost redus la minimum de moderatorul de pe site
modificat pentru scopul meu - vă mulțumesc pentru ajutor: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "" Application.Calculation = xlManual MsgBox "Setați intervalul pe care doriți să eliminați cantitatea 0 neutilizată rânduri din" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Select Do Set Rng = WorkRng.Find("0 ", LookIn:=xlValues) Dacă Not Rng este nimic, atunci Rng.EntireRow.Delete End If Loop While Not Rng is Nothing Application.ScreenUpdating = True Range("FF92").Selectați Selection.End(xlDown).Selectați MsgBox „Eliminat RÂNDURI 0 din coloana FG - se calculează acum - vă rugăm să așteptați" Application.Calculation = xlAutomatic End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună dragilor, am nevoie de un cod pentru a ascunde rândurile care au valoarea=0 pe coloana "N" din foaia 1. Valoarea coloanei "N" se va schimba la actualizarea detaliilor de pe Foaia 2. Acesta este momentul trebuie să dezactivați rândul. Este posibil să faceți acest lucru cu formula Excel (fără macro și filtre Excel).
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru nu a funcționat pentru mine. A schimbat toate valorile din coloana aleasă de mine și din coloana adiacentă la zerouri. Trebuie să fac ceva greșit!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Sheri,
Codul funcționează bine în cazul meu. Ce versiune Excel folosesti?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Crystal. Am postat asta acum doi ani, așa că cred că mi-am dat seama. Dar multumesc pentru raspuns.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Introduceți acest lucru în modulul VB nou.
Acest lucru este cu InputBox pentru a șterge rândul care conține acel cuvânt.

Atribut VB_Name = „FindDelRowByWord”
Sub FindDelRow()
„Actualizare până în 20140616
Dim Rng ca rază de acțiune
Dim WorkRng As Range
Dim xRep ca șir
La data de eroare CV următoare
xTitleId = „Instrumente ZOK”
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox(„Range”, xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("cuvânt de șters Row:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = Fals
Do
Set Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Dacă Not Rng este nimic, atunci
Rng.EntireRow.Delete
Final, dacă
Loop While Not Rng este nimic
Application.ScreenUpdating = Adevărat
End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
DACĂ ai o foaie mare și există rânduri pe care vrei să le păstrezi și alte rânduri care conțin anumite cuvinte cheie și le ștergi? Kutools funcționează pentru mine, dar pentru un cuvânt cheie, multe rânduri au acel cuvânt cheie, rândurile au fost șterse, vreau doar să am mai multe cuvinte cheie pentru a face același lucru? merge asta pentru codul de mai sus?
Acest comentariu a fost redus la minimum de moderatorul de pe site
O zi buna,
Kutools se poate ocupa de două cuvinte cheie în același timp. Trebuie să activați a doua condiție cu „Și” sau „Sau”. Sper că pot ajuta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal este igual a 0?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL