Hur rensar jag filter från alla kalkylblad i aktiv arbetsbok i Excel?
Antag att du har skapat flera filter över olika kalkylblad i en Excel-arbetsbok och nu vill du rensa alla dessa filter på en gång. Normalt måste du flytta till kalkylbladet en efter en för att kontrollera filtret och sedan rensa det manuellt. Finns det någon lämplig metod för att rensa filter från alla kalkylblad i en aktiv arbetsbok? Försök metoden i den här artikeln.
Rensa filter från alla kalkylblad i aktiv arbetsbok med VBA-kod
Rensa filter från alla kalkylblad i aktiv arbetsbok med VBA-kod
Kör nedanstående VBA-skript för att rensa filter från alla kalkylblad i aktiv arbetsbok.
1. I arbetsboken du behöver rensa filter från, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan och klistra in nedanstående VBA-skript i modulfönstret. Se skärmdump nedan:
VBA-kod: Rensa filter från alla kalkylblad i aktiv arbetsbok
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. tryck på F5 för att köra koden. Sedan rensas alla filter i alla kalkylblad i aktuell arbetsbok omedelbart.
Relaterade artiklar:
- Hur rensar jag filtercache (gamla objekt) från pivottabellen i Excel?
- Hur rensar jag filter när man öppnar, sparar eller stänger arbetsbok i Excel?
- Hur filtrerar jag data baserat på kryssrutan i Excel?
- Hur fyller jag siffror i en filtrerad listkolumn i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
