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.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

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?