Πώς να διαγράψετε όλα τα κενά φύλλα εργασίας στο Excel;
Εάν έχετε ένα βιβλίο εργασίας που έχει πολλά φύλλα εργασίας, εν τω μεταξύ, υπάρχουν μερικά κενά φύλλα εργασίας σε αυτό. Και τώρα θέλετε να διαγράψετε τα κενά φύλλα εργασίας για να αποθηκεύσετε ή να αρχειοθετήσετε το αρχείο. Πώς θα μπορούσατε να αναζητήσετε τα κενά φύλλα από πολλά φύλλα εργασίας και να τα διαγράψετε αυτόματα;
Διαγράψτε όλα τα κενά φύλλα εργασίας με κωδικό VBA
Διαγράψτε όλα τα κενά φύλλα εργασίας με το Kutools για Excel
Διαγράψτε όλα τα κενά φύλλα εργασίας με κωδικό VBA
Είναι ενοχλητικό να ελέγχετε τα κενά φύλλα εργασίας και να τα καταργείτε ένα προς ένα, αλλά με τον ακόλουθο κώδικα VBA, μπορείτε εύκολα να διαγράψετε όλα τα κενά φύλλα εργασίας ταυτόχρονα.
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο Module.
VBA: διαγράψτε όλα τα κενά φύλλα εργασίας
Sub DeleteBlankWorksheets () 'Ενημέρωση 20130830 Dim Ws ως φύλλο εργασίας Συνέχιση σφάλματος Επόμενη εφαρμογή.ScreenUpdating = False Application.DisplayAlerts = False For Every Ws in Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Στη συνέχεια Ws.Delete End Εάν Επόμενη εφαρμογή.ScreenUpdating = True Application.DisplayAlerts = True End Sub
3. Στη συνέχεια πατήστε F5 κλειδί και όλα τα κενά φύλλα εργασίας διαγράφονται ταυτόχρονα.
Διαγράψτε όλα τα κενά φύλλα εργασίας με το Kutools για Excel
Εάν δεν είστε εξοικειωμένοι με τον κωδικό VBA, μπορώ να σας παρουσιάσω ένα εύκολο εργαλείο- Kutools για Excel, Με τους Διαγραφή κενών φύλλων εργασίας λειτουργία, μπορείτε να αφαιρέσετε όλα τα κενά φύλλα εργασίας με ένα κλικ.
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.
Όταν εγκαταστήσετε το Kutools για Excel, κάντε τα ακόλουθα βήματα:
1. Κλίκ Εταιρεία > Εργαλεία φύλλου εργασίας > Διαγραφή κενών φύλλων εργασίας, δείτε το στιγμιότυπο οθόνης:
2. Και θα εμφανιστεί ένα πλαίσιο προτροπής που θα σας υπενθυμίζει εάν θέλετε να διαγράψετε όλα τα κενά φύλλα εργασίας ή όχι, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια κάντε κλικ στο κουμπί Ναικαι τα κενά φύλλα εργασίας διαγράφηκαν με επιτυχία. Δείτε στιγμιότυπα οθόνης:
 |
 |
 |
Εάν θέλετε να μάθετε περισσότερα σχετικά με αυτήν τη λειτουργία, κάντε κλικ Διαγραφή κενών φύλλων εργασίας.
Σχετικό άρθρο:
Πώς να διαγράψετε κρυμμένα φύλλα εργασίας στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
