Μετάβαση στο κύριο περιεχόμενο

Πώς να διαγράψετε ολόκληρη τη σειρά εάν το κελί περιέχει μηδέν στο Excel;

Μερικές φορές, θέλετε να διαγράψετε ολόκληρη τη σειρά εάν το κελί περιέχει μηδέν στο Excel και μπορείτε να τα διαγράψετε ένα προς ένα εάν υπάρχουν μερικά από αυτά. Τι γίνεται όμως με εκατοντάδες σειρές που περιέχουν μηδέν; Μπορείτε να επιλέξετε έναν από τους πιο δύσκολους τρόπους παρακάτω για να το λύσετε.

Διαγράψτε τη σειρά εάν το κελί περιέχει μηδέν με λειτουργία φίλτρου στο Excel
Διαγράψτε τη σειρά εάν το κελί περιέχει μηδέν με VBA στο Excel
Διαγράψτε τη σειρά εάν το κελί περιέχει μηδέν με το Kutools για Excel


Διαγράψτε τη σειρά εάν το κελί περιέχει μηδέν με λειτουργία φίλτρου στο Excel

Μπορείτε να χρησιμοποιήσετε τη λειτουργία φίλτρου για να φιλτράρετε όλες τις σειρές με βάση τις μηδενικές τιμές σε μια συγκεκριμένη στήλη και, στη συνέχεια, να διαγράψετε όλες τις ορατές σειρές αργότερα. Κάντε τα εξής:

1. Επιλέξτε τα κελιά στήλης που περιέχουν τις μηδενικές τιμές στις οποίες θέλετε να διαγράψετε ολόκληρες τις σειρές βάσει και, στη συνέχεια, κάντε κλικ στο ημερομηνία > Φίλτρα. Δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, εμφανίζεται ένα αναπτυσσόμενο βέλος στο πρώτο κελί της επιλεγμένης στήλης, κάντε κλικ στο βέλος και, στη συνέχεια, επιλέξτε Φίλτρα αριθμού > ισούται από την αναπτυσσόμενη λίστα.

Διαγραφή εγγράφου εάν μηδέν 1

3. Στο Προσαρμοσμένο αυτόματο φίλτρο πλαίσιο διαλόγου, εισαγάγετε τον αριθμό 0 στο πλαίσιο κειμένου όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

Διαγραφή εγγράφου εάν μηδέν 1

4. Στη συνέχεια, όλα τα κελιά μηδενικής τιμής σε αυτήν τη συγκεκριμένη στήλη φιλτράρονται. Επιλέξτε όλα τα ορατά κελιά στο εύρος φίλτρων και κάντε δεξί κλικ πάνω τους, επιλέξτε Διαγραφή σειρών από το μενού με δεξί κλικ. Και στο αναδυόμενο πλαίσιο προτροπής, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Διαγραφή εγγράφου εάν μηδέν 1

5. Τώρα διαγράφονται όλες οι ορατές σειρές. Μπορείτε να κάνετε κλικ ημερομηνία > Φίλτρα ξανά για να εμφανιστούν όλα τα δεδομένα χωρίς κελιά μηδενικής τιμής. Δείτε το στιγμιότυπο οθόνης:

Διαγραφή εγγράφου εάν μηδέν 1


Διαγράψτε εύκολα όλες τις σειρές εάν υπάρχουν μηδενικές τιμές σε ένα συγκεκριμένο εύρος στο Excel:

Kutools για Excel Επιλέξτε συγκεκριμένα κελιά Το βοηθητικό πρόγραμμα σάς βοηθά να επιλέξετε εύκολα ολόκληρες σειρές εάν υπάρχουν μηδενικές τιμές σε ένα συγκεκριμένο εύρος και, στη συνέχεια, μπορείτε να διαγράψετε γρήγορα όλες τις επιλεγμένες σειρές χειροκίνητα χωρίς λάθη.
Κατεβάστε το και δοκιμάστε το τώρα! (Δωρεάν διαδρομή 30 ημερών)


Διαγράψτε τη σειρά εάν το κελί περιέχει μηδέν με VBA στο Excel

Αυτή η ενότητα θα σας δείξει τη μέθοδο VBA για να διαγράψετε όλες τις σειρές εάν υπάρχουν μηδενικές τιμές σε μια συγκεκριμένη στήλη στο Excel.

1. Τύπος Alt + F11 ταυτόχρονα για να εμφανίσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο παράθυρο της Microsoft Visual Basic for Applications, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο της μονάδας.

VBA: Διαγράψτε ολόκληρες σειρές εάν υπάρχει μηδενική τιμή σε συγκεκριμένο εύρος στηλών σε ένα φύλλο εργασίας

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 Εφαρμογή.ScreenUpdating = False Do Set Rng = WorkRng.Find ("0", LookIn: = xlValues) Εάν Not Rng is τίποτα τότε Rng.EntireRow. Διαγραφή τερματισμού αν ο βρόχος ενώ δεν είναι Rng δεν είναι τίποτα. Εφαρμογή. ScreenUpdating = True End Sub

3. Πάτα το F5 για να εκτελέσετε τον κωδικό, στο αναδυόμενο παράθυρο KutoolsforExcel πλαίσιο διαλόγου, επιλέξτε το εύρος στηλών που θέλετε να διαγράψετε ολόκληρες σειρές με βάση τις μηδενικές τιμές μέσα και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

Διαγραφή εγγράφου εάν μηδέν 1

Στη συνέχεια, όλες οι σειρές που βασίζονται στις μηδενικές τιμές στο καθορισμένο εύρος στηλών διαγράφονται αμέσως.

Διαγραφή εγγράφου εάν μηδέν 1


Διαγράψτε τη σειρά εάν το κελί περιέχει μηδέν με το Kutools για Excel

Για πολλούς χρήστες του Excel, η χρήση κώδικα VBA είναι επικίνδυνη για την κατάργηση δεδομένων στο Excel. Εάν δεν εμπιστεύεστε ακριβώς τον κώδικα VBA, σας προτείνουμε να δοκιμάσετε το Επιλέξτε συγκεκριμένα κελιά χρησιμότητα του Kutools για Excel.

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Επιλέξτε το εύρος στηλών που θα αφαιρέσετε ολόκληρες σειρές με βάση τις μηδενικές τιμές στο εσωτερικό και, στη συνέχεια, κάντε κλικ στο Kutools > Αγορά > Επιλέξτε συγκεκριμένα κελιά. Δείτε το στιγμιότυπο οθόνης:

2. Στο Επιλέξτε συγκεκριμένα κελιά διαλόγου, πρέπει να:

(1) Επιλέξτε το Ολόκληρη σειρά επιλογή του Τύπος επιλογής τμήμα.

(2) Επιλέξτε ισούται Κατά την πρώτη Ειδικός τύπος αναπτυσσόμενη λίστα και μετά εισαγάγετε τον αριθμό 0 στο πλαίσιο κειμένου.

(3) Κάντε κλικ στο OK κουμπί.

3. Εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσες σειρές έχουν επιλεγεί, κάντε κλικ στο OK κουμπί. Τώρα έχουν επιλεγεί όλες οι σειρές με τις τιμές μηδέν στο καθορισμένο εύρος στηλών. Κάντε δεξί κλικ σε οποιαδήποτε επιλεγμένη σειρά και, στη συνέχεια, κάντε κλικ Διαγραφή στο μενού με δεξί κλικ. Δείτε το στιγμιότυπο οθόνης:

Διαγραφή εγγράφου εάν μηδέν 1

Τώρα όλες οι σειρές με τις μηδενικές τιμές υπάρχουν στην καθορισμένη στήλη διαγράφονται αμέσως. Δείτε το στιγμιότυπο οθόνης:

Διαγραφή εγγράφου εάν μηδέν 1

  Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Διαγράψτε τη σειρά εάν το κελί περιέχει μηδέν με το Kutools για Excel


Σχετικά άρθρα:

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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