Come cancellare i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva in Excel?
Supponendo di aver creato più filtri su diversi fogli di lavoro in una cartella di lavoro di Excel e ora si desidera cancellare tutti questi filtri contemporaneamente. Normalmente, è necessario passare al foglio di lavoro uno per uno per controllare il filtro e quindi cancellarlo manualmente. Esiste un metodo conveniente per cancellare i filtri da tutti i fogli di lavoro in una cartella di lavoro attiva? Prova il metodo in questo articolo.
Cancella i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva con codice VBA
Cancella i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva con codice VBA
Si prega di eseguire lo script VBA di seguito per cancellare i filtri da tutti i fogli di lavoro nella cartella di lavoro attiva.
1. Nella cartella di lavoro da cui è necessario eliminare i filtri, premere il pulsante altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla lo script VBA sottostante nella finestra del modulo. Vedi lo screenshot qui sotto:
Codice VBA: cancella 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 F5 chiave per eseguire il codice. Quindi tutti i filtri in tutti i fogli di lavoro nella cartella di lavoro corrente vengono cancellati immediatamente.
Articoli correlati:
- Come cancellare la cache dei filtri (vecchi elementi) dalla tabella pivot in Excel?
- Come cancellare i filtri durante l'apertura, il salvataggio o la chiusura della 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 elenco filtrata in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!