Διαγραφή ή εκκαθάριση φύλλου εργασίας VBA

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

Διαγραφή φύλλου εργασίας

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

Διαγραφή φύλλου εργασίας κατά όνομα

1 Φύλλα ("Φύλλο1"). Διαγραφή

Διαγραφή φύλλου εργασίας κατά αριθμό ευρετηρίου

Αυτός ο κώδικας διαγράφει το πρώτο φύλλο εργασίας στο βιβλίο εργασίας:

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

Αυτός ο κώδικας διαγράφει το τελευταίο φύλλο εργασίας στο βιβλίο εργασίας:

1 Φύλλα (Sheets.Count). Διαγραφή

Διαγραφή φύλλου εργασίας χωρίς προτροπή

Όταν επιχειρείτε να διαγράψετε ένα φύλλο εργασίας, το Excel θα σας ζητήσει να επιβεβαιώσετε την ενέργειά σας:

Μπορείτε να απενεργοποιήσετε αυτές τις προτροπές (ειδοποιήσεις) εναλλάσσοντας DisplayAlerts:

123 Application.DisplayAlerts = ΛάθοςΦύλλα ("Φύλλο1"). ΔιαγραφήApplication.DisplayAlerts = True

Διαγραφή φύλλου εάν υπάρχει

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

123 Στο Σφάλμα Συνέχιση ΕπόμενοΦύλλα ("Φύλλο1"). ΔιαγραφήΣφάλμα GoTo 0

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

123 Εάν RangeExists ("Sheet1") ΤότεΦύλλα ("Φύλλο1"). ΔιαγραφήΤέλος εαν

Διαγραφή φύλλου

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

1 Φύλλα ("Sheet1"). Cells.Clear

Διαγραφή περιεχομένου φύλλου

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

1 Φύλλα ("Sheet1"). Cells.ClearContents

Διαγραφή φύλλου UsedRange

Τα παραπάνω παραδείγματα θα καθαρίσουν ΟΛΑ τα κελιά σε ένα φύλλο εργασίας. Αυτό μπορεί να είναι πολύ χρονοβόρο σε μεγάλα φύλλα. Εάν χρησιμοποιείτε το UsedRange αντ 'αυτού, το VBA θα διαγράψει μόνο τα "χρησιμοποιημένα" κελιά που περιέχουν τιμές, μορφές κ.

1 Φύλλα ("Sheet1"). UsedRange.Clear
wave wave wave wave wave