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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Διαγραφή σειρών που δεν περιέχουν συγκεκριμένο κείμενο στο Excel;

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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

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

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

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

Σχόλια (15)

Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!

Τομ Β

περίπου 8 χρόνια

#13382

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτό ήταν μια ζωή που σώζει!!

απάντηση

Scott

περίπου 7 χρόνια

#14679

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ο κωδικός VB σας δεν λειτουργεί. Διαγράφει όλες τις σειρές με μηδέν στη θέση 10s. Ελπίζω να μην το χρησιμοποιήσει κανείς πραγματικά καθώς θα διαγράψει δεδομένα...

απάντηση

Ανδρέας

περίπου 7 χρόνια

#15202

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Τροποποίησα τον παραπάνω κώδικα για να λειτουργεί για μένα. Ήθελα να διαγράψω κάθε σειρά που είχε "Delete" στη σειρά C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete", LookIn:= xlValues) Αν δεν είναι Rng είναι τίποτα, τότε Rng.EntireRow.Delete End If Loop ενώ το Not Rng δεν είναι τίποτα Εφαρμογή.ScreenUpdating = True End Sub

απάντηση

Ανδρέας

περίπου 7 χρόνια

#15203

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Τροποποίησα τον παρακάτω κώδικα για να λειτουργεί για μένα. Αυτό διέγραψε κάθε σειρά στη στήλη C που είχε "Delete" στο κελί της στήλης C. Sub Delete_DeleteRows() Set WorkRng = Range("C2:C12000") Application.ScreenUpdating = False Do Set Rng = WorkRng.Find("Delete" , LookIn:=xlValues) Εάν δεν είναι Rng Nothing Τότε Rng.EntireRow.Delete End If Loop while Not Rng is Nothing Application.ScreenUpdating = True End Sub

απάντηση

ανώνυμος Ανδρέας

περίπου 6 χρόνια

#15204

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

ευχαριστώ για την ανταπόκριση, λειτούργησε για μένα

απάντηση

Yoav Ανδρέας

περίπου 3 χρόνια

#15205

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας,
δούλεψε για μένα, ευχαριστώ πολύ.
αν έχω πολλά φύλλα; πώς μπορώ να τρέξω το σενάριο 1 φορά για όλα τα φύλλα;

απάντηση

Τζ Μέρφι

περίπου 7 χρόνια

#15486

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

τροποποιήθηκε για το σκοπό μου--ευχαριστώ για τη βοήθειά σας: Sub DeleteZeroRow() Dim Rng As Range Dim WorkRng As Range On Error Συνέχιση Επόμενο xTitleId = "" Application.Calculation = xlManual MsgBox "Ορίστε το εύρος που θέλετε να αφαιρέσετε την ποσότητα 0 που δεν χρησιμοποιείται σειρές από" Set WorkRng = Application.InputBox("Range", xTitleId, "FG93:FG500", Type:=8) Application.ScreenUpdating = False Sheets("ENTRY").Επιλέξτε 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").Επιλέξτε Selection.End(xlDown). Επιλέξτε MsgBox "Removed 0's ROWS από τη στήλη FG--υπολογισμός τώρα--παρακαλώ περιμένετε" Application.Calculation = xlAutomatic End Sub

απάντηση

R. Arunkumar

περίπου 6 χρόνια

#17439

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας αγαπητοί μου, χρειάζομαι έναν κωδικό για να κρύψω τις σειρές που έχουν την τιμή=0 στη στήλη "N" στο φύλλο 1. Η τιμή της στήλης "N" θα αλλάξει όταν ενημερώσετε τις λεπτομέρειες στο Φύλλο 2. αυτή είναι η ώρα πρέπει να καταργήσετε την απόκρυψη της σειράς. είναι δυνατόν να γίνει αυτό με τον τύπο του Excel (χωρίς φίλτρα μακροεντολής και Excel).

απάντηση

Σέρι

περίπου 6 χρόνια

#17969

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτό δεν λειτούργησε για μένα. Άλλαξε όλες τις τιμές στη στήλη που επέλεξα και στη διπλανή στήλη σε μηδενικά. Πρέπει να κάνω κάτι λάθος!

απάντηση

κρύσταλλο Σέρι

περίπου 3 χρόνια

#17970

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Sheri,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Ποια έκδοση του Excel χρησιμοποιείτε;

απάντηση

Αναφορά

Sheri Dohm κρύσταλλο

περίπου 3 χρόνια

#17971

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Crystal. Το δημοσίευσα πριν από δύο χρόνια, οπότε υποθέτω ότι το κατάλαβα. Αλλά ευχαριστώ για την απάντηση.

απάντηση

Αναφορά

Επισκέπτης

περίπου 4 χρόνια

#27975

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Εισαγάγετε αυτό στη νέα μονάδα VB.
Αυτό είναι με το InputBox για να διαγράψετε τη σειρά που περιέχει αυτήν τη λέξη.

Χαρακτηριστικό VB_Name = "FindDelRowByWord"
Sub FindDelRow()
«Ενημέρωση έως το 20140616
Dim Rng ως εμβέλεια
Dim WorkRng As Range
Dim xRep As String
On Error Συνέχιση Επόμενη
xTitleId = "Εργαλεία ZOK"
Ορισμός WorkRng = Application.Selection
Ορισμός WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRep = Application.InputBox("λέξη για διαγραφή σειράς:", "ZOK Tools", , , , , 2)
Application.ScreenUpdating = False
Do
Ορισμός Rng = WorkRng.Find(xRep, LookIn:=xlValues)
Αν δεν το Rng είναι τίποτα τότε
Rng.EntireRow.Delete
End If
Το Loop ενώ δεν το Rng δεν είναι τίποτα
Application.ScreenUpdating = True
Sub End

απάντηση

AndrewRosales Επισκέπτης

περίπου 4 χρόνια

#27976

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

ΤΙ ΓΙΝΕΤΑΙ ΑΝ έχετε ένα μεγάλο φύλλο και υπάρχουν σειρές που θέλετε να διατηρήσετε και άλλες σειρές που περιέχουν συγκεκριμένες λέξεις-κλειδιά και τις διαγράψετε; τα kutools λειτουργούν για μένα, αλλά για μια λέξη-κλειδί που πολλές σειρές έχουν αυτήν τη λέξη-κλειδί, οι σειρές διαγράφηκαν, απλώς θέλω να έχω πολλές λέξεις-κλειδιά για να κάνω το ίδιο; λειτουργεί για τον παραπάνω κώδικα;

απάντηση

κρύσταλλο AndrewRosales

περίπου 3 χρόνια

#27977

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Καλή μέρα,
Το Kutools μπορεί να αντιμετωπίσει δύο λέξεις-κλειδιά ταυτόχρονα. Πρέπει να ενεργοποιήσετε τη δεύτερη συνθήκη του με "And" ή "Or". Ελπίζω να μπορώ να βοηθήσω.

απάντηση

Αναφορά

Λουζ άριστη

περίπου 2 μήνες πριν

#41228

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?

απάντηση

Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Αφήστε τα σχόλιά σας

Δημοσίευση ως επισκέπτης

Σύνδεση

Όνομα (Απαραίτητο)

Email (απαιτείται)

Αξιολογήστε αυτήν την ανάρτηση:

Επαναφορά

0 Χαρακτήρες

συμφωνώ στο όρους και προϋποθέσεις