Hogyan lehet ugyanazt a szűrőt alkalmazni több lapra az Excelben?
Könnyen alkalmazhatjuk a Szűrés funkciót a munkalap adatainak szűrésére, de néha előfordulhat, hogy több olyan munkalapra kell szűrnie, amelyek közös formátumúak ugyanazokkal a szűrési feltételekkel. Az egyesével történő szűrés sok időt fog pazarolni, itt bemutathatok egy egyszerű megoldási módot egyszerre.
Alkalmazza ugyanazt a szűrőt több VBA kóddal ellátott munkalapra
Alkalmazza ugyanazt a szűrőt több VBA kóddal ellátott munkalapra
Például négy munkalapom van, mivel a következő képernyőképet ugyanazokkal a kritériumokkal kell szűrni, mint a Product = KTE egyszerre.
Az Excel-ben nincs közvetlen módszer az adatok több lapra történő szűrésére, de a következő VBA-kód segíthet a munka befejezésében, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 gombokat, majd kinyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Ugyanazon szűrő alkalmazása több munkalapra:
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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, a KTE összes termékét egyszerre minden munkalapon leszűrték, lásd a képernyőképet:
Megjegyzések: A fenti kódon belül ebben xWs.Range ("A1"). 1. automatikus szűrő, "= KTE" forgatókönyv, A1 és a = KTE azt az oszlopot és kritériumokat jelöli, amelyek alapján szűrni akar, az 1-es szám az az oszlopszám, amely alapján szűrt, ezeket igény szerint módosíthatja. Például, ha 50-nél nagyobb sorrendet szeretne szűrni, akkor ezt a szkriptet csak a következőképpen kell módosítania: xWs.Range ("B1"). AutoFilter 2, "> 50".
Az adatok szűrése több szempont vagy más speciális feltétel, például szöveghossz, kis- és nagybetűk alapján stb.
Kutools for Excel'S Szuper szűrő Ez egy nagy teljesítményű segédprogram, ezt a funkciót a következő műveletek befejezéséhez alkalmazhatja:
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most! |
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!














