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

Πώς να διαγράψετε όλα τα κενά φύλλα εργασίας στο Excel;

Εάν έχετε ένα βιβλίο εργασίας που έχει πολλά φύλλα εργασίας, εν τω μεταξύ, υπάρχουν μερικά κενά φύλλα εργασίας σε αυτό. Και τώρα θέλετε να διαγράψετε τα κενά φύλλα εργασίας για να αποθηκεύσετε ή να αρχειοθετήσετε το αρχείο. Πώς θα μπορούσατε να αναζητήσετε τα κενά φύλλα από πολλά φύλλα εργασίας και να τα διαγράψετε αυτόματα;

Διαγράψτε όλα τα κενά φύλλα εργασίας με κωδικό VBA

Διαγράψτε όλα τα κενά φύλλα εργασίας με Kutools for 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 for Excel

Εάν δεν είστε εξοικειωμένοι με τον κωδικό VBA, μπορώ να σας παρουσιάσω ένα εύκολο εργαλείο- Kutools for Excel, Με τους Διαγραφή κενών φύλλων εργασίας λειτουργία, μπορείτε να αφαιρέσετε όλα τα κενά φύλλα εργασίας με ένα κλικ.

Kutools for Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.

Όταν έχετε εγκαταστήσει Kutools for Excel, κάντε τα ακόλουθα βήματα:

1. Κλίκ Εταιρεία > Εργαλεία φύλλου εργασίας > Διαγραφή κενών φύλλων εργασίας, δείτε το στιγμιότυπο οθόνης:

doc-delete-blank-sheets1

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

doc-delete-blank-sheets2

3. Στη συνέχεια κάντε κλικ στο κουμπί Ναικαι τα κενά φύλλα εργασίας διαγράφηκαν με επιτυχία. Δείτε στιγμιότυπα οθόνης:

doc-delete-blank-sheets3
-1
doc-delete-blank-sheets4

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

Σχετικό άρθρο:

Πώς να διαγράψετε κρυμμένα φύλλα εργασίας στο Excel;

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

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

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

kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (3)
No ratings yet. Be the first to rate!
Salvador Sánchez
Salvador Sánchez
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Reply
0
0
SD
SD     Salvador Sánchez
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
Reply
0
0
Ems
Ems
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations