Hvordan ryddes filtre fra alle regneark i aktiv projektmappe i Excel?
Antag at du har oprettet flere filtre på tværs af forskellige regneark i en Excel-projektmappe, og nu vil du rydde alle disse filtre på én gang. Normalt skal du skifte til regnearket en efter en for at kontrollere filteret og derefter rydde det manuelt. Er der nogen praktisk metode til at rydde filtre fra alle regneark i en aktiv projektmappe? Prøv metoden i denne artikel.
Ryd filtre fra alle regneark i aktiv projektmappe med VBA-kode
Ryd filtre fra alle regneark i aktiv projektmappe med VBA-kode
Kør nedenstående VBA-script for at rydde filtre fra alle regneark i den aktive projektmappe.
1. I den projektmappe, du skal rydde filtre fra, skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-script i modulvinduet. Se nedenstående skærmbillede:
VBA-kode: Ryd filtre fra alle regneark i den aktive projektmappe
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. Tryk på F5 nøgle for at køre koden. Derefter ryddes alle filtre på tværs af alle regneark i den aktuelle projektmappe med det samme.
Relaterede artikler:
- Hvordan ryddes filtercache (gamle emner) fra pivottabel i Excel?
- Sådan ryddes filtre, når du åbner, gemmer eller lukker projektmappe i Excel?
- Sådan filtreres data baseret på afkrydsningsfelt i Excel?
- Hvordan udfyldes række numre i en filtreret listekolonne i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!