Jak vymazat filtry ze všech listů v aktivním sešitu v aplikaci Excel?

Předpokládejme, že jste v sešitu aplikace Excel vytvořili více filtrů napříč různými listy a nyní chcete všechny tyto filtry vymazat najednou. Za normálních okolností musíte list posunout jeden po druhém, abyste zkontrolovali filtr a poté jej ručně vymazali. Existuje nějaká pohodlná metoda k vymazání filtrů ze všech listů v aktivním sešitu? Vyzkoušejte metodu v tomto článku.

Vymažte filtry ze všech listů v aktivním sešitu pomocí kódu VBA

Vymažte filtry ze všech listů v aktivním sešitu pomocí kódu VBA

Spuštěním níže uvedeného skriptu VBA vymažte filtry ze všech listů v aktivním sešitu.

1. V sešitu, ze kterého musíte vymazat filtry, stiskněte tlačítko Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený skript VBA do okna modulu. Viz níže uvedený snímek obrazovky:

Kód VBA: Vymazání filtrů ze všech listů v aktivním sešitu

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. zmáčkni F5 klíč ke spuštění kódu. Poté jsou všechny filtry napříč všemi listy v aktuálním sešitu okamžitě vymazány.

Související články:

• Jak vymazat mezipaměť filtru (staré položky) z kontingenční tabulky v aplikaci Excel?
• Jak vymazat filtry při otevírání, ukládání nebo zavírání sešitu v aplikaci Excel?
• Jak filtrovat data na základě zaškrtávacího políčka v aplikaci Excel?
• Jak vyplnit řadu čísel ve sloupci filtrovaného seznamu v aplikaci Excel?