Cum se șterg filtrele din toate foile de lucru din registrul de lucru activ în Excel?
Presupunând că ați creat mai multe filtre în diferite foi de lucru într-un registru de lucru Excel și acum doriți să ștergeți toate aceste filtre simultan. În mod normal, trebuie să treceți la foaia de lucru unul câte unul pentru a verifica filtrul și apoi ștergeți-l manual. Există vreo metodă convenabilă pentru a șterge filtrele din toate foile de lucru dintr-un registru de lucru activ? Vă rugăm să încercați metoda din acest articol.
Ștergeți filtrele din toate foile de lucru din registrul de lucru activ cu cod VBA
Ștergeți filtrele din toate foile de lucru din registrul de lucru activ cu cod VBA
Rulați scriptul VBA de mai jos pentru a șterge filtrele din toate foile de lucru din registrul de lucru activ.
1. În registrul de lucru de care trebuie să ștergeți filtrele, apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți scriptul VBA de mai jos în fereastra Module. Vedeți mai jos captura de ecran:
Cod VBA: ștergeți filtrele din toate foile de lucru din registrul de lucru activ
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. apasă pe F5 tasta pentru a rula codul. Apoi, toate filtrele din toate foile de lucru din registrul de lucru curent sunt șterse imediat.
Articole pe aceeași temă:
- Cum se șterge memoria cache a filtrului (elemente vechi) din tabelul pivot în Excel?
- Cum se șterg filtrele la deschiderea, salvarea sau închiderea registrului de lucru în Excel?
- Cum se filtrează datele pe baza casetei de selectare din Excel?
- Cum se completează seriile de numere dintr-o coloană listă filtrată în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
