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

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

Διαγραφή φίλτρων από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας με κωδικό VBA

Διαγραφή φίλτρων από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας με κωδικό VBA

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

1. Στο βιβλίο εργασίας από το οποίο πρέπει να διαγράψετε τα φίλτρα, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε το παρακάτω σενάριο VBA στο παράθυρο Module. Δείτε παρακάτω το στιγμιότυπο οθόνης:

Κωδικός VBA: Διαγραφή φίλτρων από όλα τα φύλλα εργασίας στο ενεργό βιβλίο εργασίας

Sub Clear_fiter()()
'Updated by Extendoffice 20210625
    Dim xAF As AutoFilter
    Dim xFs As Filters
    Dim xLos As ListObjects
    Dim xLo As ListObject
    Dim xRg As Range
    Dim xWs As Worksheet
    Dim xIntC, xF1, xF2, xCount As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each xWs In Application.Worksheets
        xWs.ShowAllData
        Set xLos = xWs.ListObjects
        xCount = xLos.Count
        For xF1 = 1 To xCount
         Set xLo = xLos.Item(xF1)
         Set xRg = xLo.Range
         xIntC = xRg.Columns.Count
         For xF2 = 1 To xIntC
            xLo.Range.AutoFilter Field:=xF2
         Next
        Next
    Next
    Application.ScreenUpdating = True

End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα. Στη συνέχεια, όλα τα φίλτρα σε όλα τα φύλλα εργασίας στο τρέχον βιβλίο εργασίας διαγράφονται αμέσως.

Σχετικά Άρθρα:

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