Come eliminare i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva in Excel?

Supponiamo che tu abbia creato più filtri su diversi fogli di lavoro in una cartella di lavoro Excel, e ora desideri eliminare tutti questi filtri contemporaneamente. Normalmente, devi passare da un foglio di lavoro all'altro per controllare il filtro ed eliminarlo manualmente. Esiste un metodo conveniente per eliminare i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva? Prova il metodo descritto in questo articolo.

Elimina i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva con il codice VBA

Elimina i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva con il codice VBA

Esegui lo script VBA seguente per eliminare i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva.

1. Nella cartella di lavoro in cui è necessario eliminare i filtri, premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Dopodiché, copia e incolla lo script VBA seguente nella finestra Modulo. Vedi sotto screenshot:

Codice VBA: Elimina i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva

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. Premi il tasto F5 per eseguire il codice. Tutti i filtri presenti nei fogli di lavoro della cartella di lavoro corrente verranno immediatamente eliminati.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come eliminare la cache dei filtri (vecchi elementi) da una tabella pivot in Excel?
• Come eliminare i filtri all'apertura, salvataggio o chiusura di una cartella di lavoro in Excel?
• Come filtrare i dati in base alla casella di controllo in Excel?
• Come riempire una serie di numeri in una colonna di una lista filtrata in Excel?