Πώς να διαγράψετε φύλλα στο Excel (Συντομεύσεις + VBA)

Όταν εργάζεστε με το Excel, περνάτε τον περισσότερο χρόνο σας στο φύλλο εργασίας (που είναι η περιοχή που έχει όλα τα κελιά και όλα όσα συμβαίνουν εκεί).

Η αποτελεσματική εργασία με το Excel σημαίνει επίσης ότι πρέπει να εργαστείτε με πολλά φύλλα εργασίας στο ίδιο βιβλίο εργασίας.

Το Excel σας επιτρέπει να προσθέσετε εύκολα πολλά φύλλα εργασίας στο βιβλίο εργασίας, ενώ μπορείτε επίσης εύκολα να διαγράψετε αυτά τα φύλλα εργασίας.

Σε αυτό το σεμινάριο του Excel, θα σας δείξω πώς να το κάνετε γρήγορα διαγραφή φύλλων εργασίας στο Excel. Θα καλύψω πολλές μεθόδους, όπως τη χρήση συντομεύσεων πληκτρολογίου, επιλογές στην κορδέλα και VBA για τη διαγραφή φύλλων στο Excel.

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

Διαγραφή φύλλων χρησιμοποιώντας τις επιλογές δεξιού κλικ

Ο ευκολότερος τρόπος για να διαγράψετε ένα φύλλο εργασίας στο Excel είναι χρησιμοποιώντας αυτήν την απλή τεχνική ποντικιού με δύο κλικ.

Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας που έχει τρία φύλλα όπως φαίνεται παρακάτω και θέλετε να διαγράψετε το Sheet1.

Παρακάτω είναι τα βήματα για να το κάνετε αυτό:

1. Κάντε δεξί κλικ στο φύλλο που θέλετε να διαγράψετε
2. Κάντε κλικ στην επιλογή διαγραφής
3. Στην προτροπή που εμφανίζεται, κάντε κλικ στο κουμπί Διαγραφή

Μπορείτε επίσης να χρησιμοποιήσετε την παραπάνω τεχνική σε φύλλα που δεν είναι καν το ενεργό φύλλο. Για παράδειγμα, εάν βρίσκομαι αυτήν τη στιγμή στο Sheet1 και θέλω να διαγράψω το Shee3, τότε μπορώ απλά να κάνω δεξί κλικ στο Sheet3 και να το διαγράψω.

Μπορείτε επίσης να χρησιμοποιήσετε την ίδια τεχνική για διαγράψτε πολλά φύλλα ταυτόχρονα.

Για παράδειγμα, εάν θέλω να διαγράψω το Sheet2 και το Sheet3 με τη μία, μπορώ να κρατήσω το πλήκτρο ελέγχου και να κάνω κλικ στο Sheet2 και το Sheet3 ένα προς ένα (ενώ κρατάω ακόμα το κλειδί ελέγχου).

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

Θυμηθείτε ότι δεν μπορείτε να διαγράψετε όλα τα φύλλα εργασίας σε ένα βιβλίο εργασίας στο Excel. πρέπει πάντα να υπάρχει τουλάχιστον ένα φύλλο στο τετράδιο εργασίας. αν προσπαθήσετε να διαγράψετε όλα τα φύλλα εργασίας (ή το μόνο ενεργό φύλλο), θα δείτε μια προτροπή που θα σας πει ότι δεν επιτρέπεται να το κάνετε αυτό

Συντομεύσεις πληκτρολογίου για διαγραφή των φύλλων εργασίας

Δεν υπάρχουν μία αλλά δυόμισι συντομεύσεις πληκτρολογίου που μπορείτε να χρησιμοποιήσετε για να διαγράψετε φύλλα εργασίας στο Excel.

Λέω δυόμισι επειδή μία από τις συντομεύσεις που χρησιμοποιεί το ποντίκι καθώς και το πληκτρολόγιο (και εξακολουθεί να είναι ένας πιο γρήγορος τρόπος για να το κάνει)

Συνδυασμός υβριδικού πληκτρολογίου για διαγραφή φύλλου

Κάντε δεξί κλικ + D

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

Προσωπικά, το βρίσκω πολύ πιο γρήγορα από το να χρησιμοποιώ το ποντίκι για να διαγράψω ένα φύλλο εργασίας (όπως ανέφερα στην παραπάνω ενότητα)

Κανονική συντόμευση πληκτρολογίου για διαγραφή φύλλου

ALT + H + D + S

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

Πρέπει να πατήσετε διαδοχικά αυτά τα πλήκτρα (δηλαδή, το ένα μετά το άλλο)

Παρόλο που μπορεί να μοιάζει με ελαφρώς μεγαλύτερη συντόμευση πληκτρολογίου, μόλις το συνηθίσετε είναι εξίσου γρήγορο με οποιαδήποτε άλλη τεχνική που καλύπτεται σε αυτό το σεμινάριο

Συντόμευση πληκτρολογίου παλαιού τύπου για διαγραφή φύλλων εργασίας

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

Για λόγους συμβατότητας, το Excel εξακολουθεί να επιτρέπει σε μερικές από αυτές τις παλιές συντομεύσεις πληκτρολογίου να λειτουργούν στις νεότερες εκδόσεις. και σε πολλές περιπτώσεις, αυτές οι προηγούμενες συντομεύσεις είναι μικρότερες και καλύτερες.

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

ALT + E + L

Διαγραφή του ActiveSheet χρησιμοποιώντας VBA

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

Ενώ το VBA μπορεί να αυτοματοποιήσει τη διαδικασία, η χρησιμότητα έρχεται όταν πρέπει να επαναλάβετε την εργασία πολλές φορές.

Όπως θα δείτε, με το VBA μπορείτε να κάνετε πολύ περισσότερα όταν πρόκειται για τη διαγραφή φύλλων εργασίας στο Excel.

Θα σας μεταφέρω σε πιο προηγμένες περιπτώσεις χρήσης, αλλά πριν από αυτό ας δούμε πώς να διαγράψουμε απλά το ενεργό φύλλο εργασίας χρησιμοποιώντας το VBA.

Παρακάτω είναι ο κώδικας VBA που θα διαγράψει το ενεργό φύλλο:

Sub DeleteSheet () ActiveSheet.Delete End Sub

Εάν το χρησιμοποιείτε στο άμεσο παράθυρο, μπορείτε απλά να χρησιμοποιήσετε την παρακάτω γραμμή:

ActiveSheet.Delete

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

Διαγραφή του φύλλου χωρίς εμφάνιση της προτροπής επιβεβαίωσης

Το πλαίσιο μηνυμάτων προτροπής επιβεβαίωσης είναι μια χρήσιμη δυνατότητα που διασφαλίζει ότι έχετε την ευκαιρία να ακυρώσετε τη διαγραφή του φύλλου σε περίπτωση που έχετε εκτελέσει τον κωδικό κατά λάθος/λάθος

Αλλά αν γνωρίζετε ήδη τι κάνετε, η λήψη αυτής της προτροπής μπορεί να είναι αρκετά εκνευριστική.

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

Sub DeleteSheet () Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = True End Sub

Στον παραπάνω κώδικα, έχω ορίσει την ιδιότητα Application.DisplayAlerts σε false, πράγμα που σημαίνει ότι το Excel δεν θα σας εμφανίζει ειδοποιήσεις οθόνης ενώ εκτελείται ο κώδικας.

Είναι επίσης πολύ σημαντικό να βεβαιωθείτε ότι το επιστρέφετε στο true στο τέλος του κώδικα για να επαναφέρετε τη λειτουργικότητα (όπως μπορείτε να δείτε ότι έχω κάνει στον παραπάνω κώδικα).

Προσοχή: Όταν ορίσετε την ιδιότητα Application.DisplayAlerts σε false, το Excel απλώς θα διαγράψει το φύλλο εργασίας και δεν θα υπάρχει τρόπος ανάκτησής του. Σας συμβουλεύω να δημιουργήσετε ένα αντίγραφο ασφαλείας πριν χρησιμοποιήσετε αυτόν τον τύπο κώδικα.

Διαγραφή φύλλου κατά όνομα (εάν υπάρχει) χρησιμοποιώντας VBA

Το VBA σάς επιτρέπει να αυτοματοποιήσετε τη διαδικασία διαγραφής ενός συγκεκριμένου φύλλου εργασίας (σε πολλά φύλλα εργασίας) με βάση το όνομα του φύλλου.

Για παράδειγμα, εάν έχετε ένα φύλλο εργασίας με το όνομα «Πωλήσεις», μπορείτε να χρησιμοποιήσετε τον παρακάτω κώδικα για να τον διαγράψετε:

Sub DeleteSheetByName () Sheets ("Sales"). Delete End Sub

Αυτός ο κωδικός θα διαγράψει μόνο το φύλλο που έχει το όνομα Πωλήσεις.

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

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

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

Σε περίπτωση που θέλετε να διαγράψετε πολλά φύλλα με βάση το όνομά τους, μπορείτε να το κάνετε επίσης.

Για παράδειγμα, ο παρακάτω κώδικας θα διαγράψει τα φύλλα με το όνομα Πωλήσεις, Μάρκετινγκ, Οικονομικά:

Sub DeleteSheetsByName () Sheets ("Sales"). Delete Sheets ("Marketing"). Delete Sheets ("Finance"). Delete End End

Διαγραφή όλων των φύλλων εκτός από το ενεργό φύλλο χρησιμοποιώντας VBA

Εάν έχετε ένα βιβλίο εργασίας με πολλά φύλλα εργασίας σε αυτό και θέλετε να διαγράψετε όλα τα φύλλα εργασίας εκτός από το ενεργό φύλλο, το VBA είναι πιθανώς μια από τις καλύτερες μεθόδους για να το κάνετε αυτό.

Παρακάτω είναι ο κώδικας VBA που θα διαγράψει όλα τα φύλλα εκτός από το ενεργό φύλλο στο βιβλίο εργασίας.

Sub DeleteSheetByName () Dim ws As Worksheet Application.DisplayAlerts = False For Every ws In Sheets If ws.Name ActiveSheet.Name Then ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Σημειώστε ότι έχω πει ότι η ιδιότητα Application.DisplayAlerts πέφτει στην αρχή του κώδικα, καθώς δεν θέλω να βλέπω μια προτροπή για κάθε φύλλο που διαγράφεται.

Διαγραφή όλων των φύλλων με μια συγκεκριμένη συμβολοσειρά κειμένου στο όνομα

Αυτή είναι μια ελαφρώς πιο προηγμένη περίπτωση χρήσης της αποτελεσματικής χρήσης του VBA κατά τη διαγραφή φύλλων εργασίας.

Ας υποθέσουμε ότι έχετε ένα βιβλίο εργασίας με πολλά διαφορετικά φύλλα εργασίας και θέλετε να διαγράψετε όλα τα φύλλα εργασίας που έχουν μια συγκεκριμένη συμβολοσειρά κειμένου, τότε μπορείτε εύκολα να το κάνετε χρησιμοποιώντας το VBA.

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

Παρακάτω είναι ο κώδικας VBA που θα το έκανε αυτό:

Sub DeleteSheetByName () Dim ws As Worksheet Application.DisplayAlerts = False For Every ws In Sheets If ws.Name Like "*" & "Sales" & "*" Then MsgBox ws.Name ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Ο παραπάνω κώδικας χρησιμοποιεί τη δήλωση if-then για να περάσει από όλα τα φύλλα εργασίας στο βιβλίο εργασίας. Ελέγχει το όνομα όλων αυτών των φύλλων εργασίας και εάν το όνομα περιέχει τη λέξη "Πωλήσεις", τότε αυτό το φύλλο εργασίας διαγράφεται.

Εάν θέλετε να αλλάξετε τον κώδικα και να αναζητήσετε οποιαδήποτε άλλη συμβολοσειρά κειμένου, μπορείτε να την αλλάξετε στην πέμπτη γραμμή του παραπάνω κώδικα.

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

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

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

Εάν ws.Name Like "*" & "Sales" & "*" Τότε

Εδώ, έχω χρησιμοποιήσει τον χαρακτήρα wild card μόνο μετά το ποτό κειμένου και όχι πριν από αυτό. Αυτό θα διασφαλίσει ότι κατά τον έλεγχο των ονομάτων του φύλλου εργασίας, μόνο αυτά θα ικανοποιούσαν τα κριτήρια όπου ο όρος «Πωλήσεις» βρίσκεται στην αρχή του ονόματος.

Αυτές είναι λοιπόν μερικές από τις μεθόδους που μπορείτε να χρησιμοποιήσετε όταν θέλετε να διαγράψετε φύλλα στο Excel. Στις περισσότερες περιπτώσεις, μπορείτε εύκολα να το κάνετε αυτό μέσα στο φύλλο εργασίας χρησιμοποιώντας το ποντίκι ή τη συντόμευση πληκτρολογίου.

Αλλά σε περίπτωση που έχετε ένα βαρύ βιβλίο εργασίας με πολλά φύλλα εργασίας και θέλετε να διαγράψετε γρήγορα συγκεκριμένα είδη φύλλων, μπορείτε επίσης να χρησιμοποιήσετε το VBA.

Ελπίζω να βρήκατε χρήσιμο αυτό το σεμινάριο.