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.
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?
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in