Jak použít stejný filtr na více listů v aplikaci Excel?
Může být pro nás snadné použít funkci Filtr k filtrování dat v listu, ale někdy budete možná muset filtrovat přes více listů, které mají společné formátování dat se stejnými kritérii filtru. Chcete-li je filtrovat jeden po druhém, ztratíte spoustu času, zde mohu představit snadný způsob, jak to vyřešit najednou.
Použijte stejný filtr na více listů s kódem VBA
Použijte stejný filtr na více listů s kódem VBA
Například mám čtyři pracovní listy, protože následující snímek obrazovky je třeba filtrovat se stejnými kritérii, že produkt = KTE najednou.
Neexistuje žádný přímý způsob, jak filtrovat data ve více listech v aplikaci Excel, ale následující kód VBA vám může pomoci dokončit tuto úlohu, postupujte takto:
1. Podržte ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Použijte stejný filtr na více listů:
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("A1").AutoFilter 1, "=KTE"
Next
End Sub
3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, všechny produkty KTE byly filtrovány ve všech pracovních listech najednou, viz screenshot:
Poznámka: Ve výše uvedeném kódu, v tomto xWs.Range ("A1"). AutoFilter 1, "= KTE" skript, A1 a = KTE označuje sloupec a kritéria, podle kterých chcete filtrovat, číslo 1 je číslo sloupce, podle kterého jste filtrovali, můžete je podle potřeby změnit. Například pokud chcete filtrovat pořadí větší než 50, stačí tento skript upravit takto: xWs.Range ("B1"). AutoFilter 2, "> 50".
Filtrování dat podle více kritérií nebo jiných konkrétních podmínek, například podle délky textu, rozlišování malých a velkých písmen atd.
Kutools pro ExcelJe Super filtr feature je mocný nástroj, můžete použít tuto funkci k dokončení následujících operací:
Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď! |
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!