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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
