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

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

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

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

Διαγράψτε όλα τα κενά φύλλα εργασίας με το Kutools για Excel

Office Tab Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Office και κάντε την εργασία σας πολύ πιο εύκολη ...
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
  • Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
  • Περισσότερα από 20 χαρακτηριστικά κειμένου: Εξαγωγή αριθμού από συμβολοσειρά κειμένου. Εξαγωγή ή κατάργηση μέρους των κειμένων. Μετατροπή αριθμών και νομισμάτων σε αγγλικές λέξεις.
  • Συγχώνευση εργαλείων: Πολλαπλά βιβλία εργασίας και φύλλα σε ένα. Συγχώνευση πολλαπλών κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων. Συγχώνευση διπλών σειρών και αθροίσματος.
  • Διαχωριστικά εργαλεία: Διαχωρίστε δεδομένα σε πολλαπλά φύλλα με βάση την τιμή. Ένα βιβλίο εργασίας για πολλαπλά αρχεία Excel, PDF ή CSV. Μία στήλη σε πολλές στήλες.
  • Επικόλληση παράλειψης Κρυφές / φιλτραρισμένες σειρές; Καταμέτρηση και άθροισμα ανά χρώμα φόντου; Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες μαζικά.
  • Σούπερ φίλτρο: Δημιουργήστε προηγμένα σχήματα φίλτρων και εφαρμόστε σε οποιοδήποτε φύλλο. Είδος ανά εβδομάδα, ημέρα, συχνότητα και άλλα. Φίλτρο με έντονη γραφή, φόρμουλες, σχόλια ...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Λειτουργεί με το Office 2007-2021 και το 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας.

βέλος μπλε δεξιά φούσκα Διαγράψτε όλα τα κενά φύλλα εργασίας με κωδικό 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. Κλίκ Εταιρεία > Εργαλεία φύλλου εργασίας > Διαγραφή κενών φύλλων εργασίας, δείτε το στιγμιότυπο οθόνης:

doc-delete-blank-sheets1

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

doc-delete-blank-sheets2

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

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

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


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

Πώς να διαγράψετε κρυμμένα φύλλα εργασίας στο 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (3)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το δημόσιο μέλος "WorksheetFunction" στον τύπο "WorkbookClass" δεν βρέθηκε.
Χρησιμοποιώ το Interop.Excel
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
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 ως ακέραιος αριθμός
Dim i ως ακέραιο

On Error Συνέχιση Επόμενη
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Φύλλα.Αριθμός

Για i = 1 To Nhojas

Αν Φύλλο εργασίαςFunction.CountA(Φύλλα(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Τότε

Φύλλα(i).Διαγραφή

Αλλού
«Νάντα
End If
Επόμενο i

Στο σφάλμα GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

Sub End

Gracias, espero sus commentarios.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν μπορώ να μιλήσω τη γλώσσα σας, αλλά βλέπω ένα ελάττωμα στον κώδικά σας.
Το πρόβλημα είναι >> Nhojas = Sheets.Count
Και μετά εξαρτάσαι από το Nhojas αλλά όταν διαγράφεις ένα φύλλο δεν μειώνεις το Nhoja κατά 1

Επομένως, απλώς προσθέστε αυτή τη γραμμή στον κώδικά σας μετά το "Φύλλα(i).Delete" και πριν το "Else":
Nhojas = Nhojas - 1

Δωρεά :)

Ωστόσο, έχετε κάνει καλή δουλειά, αλλά πρέπει να εκτελέσετε στεγνό τον κώδικα όταν προσπαθείτε να διορθώσετε τον κώδικα.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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