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

Βιβλίο ασκήσεων

Κατεβάστε το ακόλουθο βιβλίο εργασίας και την άσκηση.

4 εύκολοι τρόποι διαγραφής πολλαπλών φύλλων στο Excel

1. Χρησιμοποιήστε την επιλογή Κορδέλα για να διαγράψετε πολλαπλά φύλλα στο Excel

Από το Κορδέλα μπορούμε να διαγράψουμε πολλά φύλλα.

ΒΗΜΑΤΑ:

• Επιλέξτε τα φύλλα που θέλουμε να διαγράψουμε πατώντας παρατεταμένα το πλήκτρο Εναλλαγή κλειδί.

• Τώρα πηγαίνετε στο Αρχική σελίδα και επιλέξτε Διαγραφή >, Διαγραφή φύλλου .

• Θα ανοίξει ένα παράθυρο διαλόγου.
• Κάντε κλικ στο OK .

• Στη συνέχεια βλέπουμε ότι τα επιλεγμένα φύλλα διαγράφονται.

2. Χρήση της επιλογής φύλλου για τη διαγραφή πολλαπλών φύλλων στο Excel

2.1 Για γειτονικό φύλλο εργασίας

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

ΒΗΜΑΤΑ:

• Πατώντας και κρατώντας πατημένο το Εναλλαγή επιλέγουμε το πρώτο φύλλο και το τελευταίο φύλλο με το ποντίκι που θέλουμε να διαγράψουμε.

• Κάντε δεξί κλικ στο το κουμπί του ποντικιού σας στην καρτέλα Sheet και επιλέξτε Διαγραφή .

• Τέλος, τα φύλλα διαγράφονται.

2.2 Για μη γειτονικό φύλλο εργασίας

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

ΒΗΜΑΤΑ:

• Επιλέξτε τα κελιά που θέλουμε να διαγράψουμε πατώντας το πλήκτρο Ctrl κλειδί.

• Τώρα στην καρτέλα Φύλλο, Κάντε δεξί κλικ στο στο ποντίκι και επιλέξτε Διαγραφή .

• Εμφανίζεται ένα παράθυρο διαλόγου.
• Κάντε κλικ στο OK και δείτε το αποτέλεσμα.

3. Διαγραφή πολλαπλών φύλλων εργασίας με υβριδικό πληκτρολόγιο

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

4. Εισαγωγή κωδικών VBA για τη διαγραφή πολλαπλών φύλλων του Excel

4.1 Διαγραφή όλων των φύλλων που διατηρούν το ενεργό φύλλο

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

ΒΗΜΑΤΑ:

• Από την καρτέλα φύλλο, επιλέξτε το ενεργό φύλλο, Κάντε δεξί κλικ στο στο ποντίκι και επιλέξτε Προβολή κωδικού .

• Τώρα αντιγράψτε τους ακόλουθους κώδικες και επικολλήστε τους στην ενότητα VBA.

 Option Explicit Sub deletemultiplesheets() Dim spreadsheet As Worksheet Application.DisplayAlerts = False For Each spreadsheet In Sheets If spreadsheet.Name ActiveSheet.Name Then spreadsheet.Delete End If Next spreadsheet Application.DisplayAlerts = True End Sub 

• Πατήστε το Εκτέλεση και θα δούμε ότι όλα τα φύλλα διαγράφονται εκτός από το ενεργό.

Διαβάστε περισσότερα: Πώς να διαγράψετε το φύλλο του Excel χρησιμοποιώντας το VBA (10 μακροεντολές VBA)

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

Μπορούμε εύκολα να διαγράψουμε όλα τα φύλλα με μια συγκεκριμένη συμβολοσειρά κειμένου.

ΒΗΜΑΤΑ:

• Επιλέξτε το φύλλο από την καρτέλα φύλλο.
• Τώρα Κάντε δεξί κλικ στο στο ποντίκι και επιλέξτε Προβολή κωδικού .

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

 Option Explicit Sub DeleteSheetWithSameName() Dim spreadsheet As Worksheet Application.DisplayAlerts = False For Each spreadsheet In sheets If spreadsheet.Name Like "*" & "Sales1" & "*" Then MsgBox spreadsheet.Name spreadsheet.Delete End If Next spreadsheet Application.DisplayAlerts = True End Sub 

• Θα εμφανιστεί ένα παράθυρο διαλόγου για την επιβεβαίωση και επιλέξτε OK .

• Τέλος, βλέπουμε ότι τα επιλεγμένα φύλλα με τις επιλεγμένες συμβολοσειρές κειμένου έχουν διαγραφεί.

Συμπέρασμα

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