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

Πώς να διαγράψετε ολόκληρη τη σειρά εάν το κελί περιέχει μηδέν στο 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


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


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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (15)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν μια ζωή που σώζει!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός VB σας δεν λειτουργεί. Διαγράφει όλες τις σειρές με μηδέν στη θέση 10s. Ελπίζω να μην το χρησιμοποιήσει κανείς πραγματικά καθώς θα διαγράψει δεδομένα...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τροποποίησα τον παραπάνω κώδικα για να λειτουργεί για μένα. Ήθελα να διαγράψω κάθε σειρά που είχε "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
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τροποποίησα τον παρακάτω κώδικα για να λειτουργεί για μένα. Αυτό διέγραψε κάθε σειρά στη στήλη 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
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ για την ανταπόκριση, λειτούργησε για μένα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
δούλεψε για μένα, ευχαριστώ πολύ.
αν έχω πολλά φύλλα; πώς μπορώ να τρέξω το σενάριο 1 φορά για όλα τα φύλλα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
τροποποιήθηκε για το σκοπό μου--ευχαριστώ για τη βοήθειά σας: 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
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας αγαπητοί μου, χρειάζομαι έναν κωδικό για να κρύψω τις σειρές που έχουν την τιμή=0 στη στήλη "N" στο φύλλο 1. Η τιμή της στήλης "N" θα αλλάξει όταν ενημερώσετε τις λεπτομέρειες στο Φύλλο 2. αυτή είναι η ώρα πρέπει να καταργήσετε την απόκρυψη της σειράς. είναι δυνατόν να γίνει αυτό με τον τύπο του Excel (χωρίς φίλτρα μακροεντολής και Excel).
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό δεν λειτούργησε για μένα. Άλλαξε όλες τις τιμές στη στήλη που επέλεξα και στη διπλανή στήλη σε μηδενικά. Πρέπει να κάνω κάτι λάθος!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Sheri,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Ποια έκδοση του Excel χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Crystal. Το δημοσίευσα πριν από δύο χρόνια, οπότε υποθέτω ότι το κατάλαβα. Αλλά ευχαριστώ για την απάντηση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εισαγάγετε αυτό στη νέα μονάδα 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
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΤΙ ΓΙΝΕΤΑΙ ΑΝ έχετε ένα μεγάλο φύλλο και υπάρχουν σειρές που θέλετε να διατηρήσετε και άλλες σειρές που περιέχουν συγκεκριμένες λέξεις-κλειδιά και τις διαγράψετε; τα kutools λειτουργούν για μένα, αλλά για μια λέξη-κλειδί που πολλές σειρές έχουν αυτήν τη λέξη-κλειδί, οι σειρές διαγράφηκαν, απλώς θέλω να έχω πολλές λέξεις-κλειδιά για να κάνω το ίδιο; λειτουργεί για τον παραπάνω κώδικα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Το Kutools μπορεί να αντιμετωπίσει δύο λέξεις-κλειδιά ταυτόχρονα. Πρέπει να ενεργοποιήσετε τη δεύτερη συνθήκη του με "And" ή "Or". Ελπίζω να μπορώ να βοηθήσω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Despues de utilizar subtotal Como hacer para eliminar las filas involucradas que en el subtotal es igual a 0?
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL