Note: The other languages of the website are Google-translated. Back to English

 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


nyíl kék jobb buborék 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.

doc több lap szűrése 1

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:

doc több lap szűrése 2

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 az Excel számára'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:

  • Adatok szűrése több kritériummal; Szűrje az adatokat a szöveg hossza szerint;
  • Szűrje az adatokat nagy / kis betűk szerint; A dátum szűrése év / hónap / nap / hét / negyedév szerint

doc-szuper-szűrő1

Kutools az Excel számára: 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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (41)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan alkalmazza ezt a szűrőképletet: egy sor lapra? Van egy munkafüzetem, amiben az első 5 lapon vannak adatok, és a munkafüzetben 200 lap van, csak a szűrőt kell alkalmazni a 6-200 lapra. Sub apply_autofilter_across_worksheets() 'Frissítés által Extendoffice 20160623 Dim xWs munkalapként hiba esetén Folytatás minden xWs munkalapon xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Sub apply_autofilter_across_worksheets() Dim J Egész számként Hiba esetén Folytatás J = 6 esetén Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves, egynél több értéket szeretnék szűrni, ezt az xWs.Range("B1").AutoFilter 2-t használtam, "=223AM", xlOr, "=113IR", xlOr, "=003IR" és működött, de amikor a kívánt értékeket >2-re növeli, hiba történik. ezt a parancsot az xWs.Range("B1") használom. AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" köszönöm,
A weboldal moderátora ezt a megjegyzést minimalizálta
miközben egyetlen szót több lapon szűr, nem jeleníti meg a szűrt adatokat.... minden adat el van rejtve.kérem oldja meg.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,


Az adataim az E oszlopban vannak, és amikor alkalmazom ezt a szűrőt a Tartomány ("E1") paraméterrel, akkor is szűri az A oszlopot


Hogyan tudom elhárítani a hibát?
Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Csak be kell írnia az oszlop számát az AutoFilterbe, ebben az esetben: xWs.Range("E1").AutoFilter 5,
A weboldal moderátora ezt a megjegyzést minimalizálta
KÖSZÖNÖM!!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
TÖRLÉS AZ OSZLOPOT A LOL
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan kell végrehajtani, ha a szűrő minden lapon más oszlopban van?
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan használhatja az automatikus szűrő eredményét egymás szűrőjének beállítására a =(specifikus név) helyett?
A weboldal moderátora ezt a megjegyzést minimalizálta
Használhatom ezt a kimutatástáblázatok szűrésére több munkalapon, ha az összes kimutatástábla ugyanabból az adatforrásból származik, és ugyanazokkal a feltételekkel van beállítva?
A weboldal moderátora ezt a megjegyzést minimalizálta
Van valami lehetőség a színek szerinti szűrésre?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Mahesh,
Ha szín szerint szeretné szűrni az adatokat, a következő két cikk segíthet! Kérjük, tekintse meg őket, remélem, segíthet!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,


Hogyan működik ez, ha a Termék oszlop különböző helyeken jelenik meg más lapokon?


Az 1. lapon A1 a 2. lapon van a B1-ben és a 3. lapon ismét A1 ?

Köszönöm,
Monika
A weboldal moderátora ezt a megjegyzést minimalizálta
Van mód a "=KTE" rész megváltoztatására minden lapnál a lap nevén alapuló tartalomszűrővel?
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm a kódot!! van mód a "=KTE" módosítására úgy, hogy egy listából vagy legördülő listából származó értéket használjon?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! A szuperszűrő a teljes munkafüzetre automatikusan újra érvényesül, amikor frissítik a fájlt?
A weboldal moderátora ezt a megjegyzést minimalizálta
Használhatunk olyan cellanevet, mint a Termék az A1 helyett a következőben: xWs.Range("A1").AutoFilter 1, "=KTE"
Más oszlopom van, és néhány neve más oszlopban található.
A weboldal moderátora ezt a megjegyzést minimalizálta
Minden lapban használtam szűrőt. És az s.no-t 1 2 3-ról sorozatosan szeretném megváltoztatni minden lapon szűrő után.


Kérlek jelezd, ha van vba kódod hozzá
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan kell használni a "Szűrés között" funkciót ugyanazon több lap esetén?

(Példa: időtartomány)
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan lehet megszüntetni a szűrt sorokat?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves,

Hogyan lehet több feltétellel szűrni?
Például 50 feletti sorrendben szeretnék szűrni, de csak a KTE termékeket.

Előre is köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Pedjaa!
Ha több munkalapon szeretne szűrni két feltétel alapján, használja a következő kódot:
Sub apply_autofilter_across_worksheets()

'Frissítés által Extendoffice

Dim xWs munkalapként

On Error Resume Next

Minden xWs In Worksheets

xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Az A oszlop "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'B oszlop nagyobb, mint 500

Vége

Következő

End Sub

Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Még ha kicserélem az A1-et G1-re, akkor is az A1 oszlopon gödrözi a szűrőt
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Tan!
Csak cserélje ki az A1-et G1-re, ugyanakkor módosítsa az 1-es oszlopot a 7-es oszlopra, az alábbi kód szerint:
xWs.Range("G1").AutoFilter 7, "=KTE"
Próbáld ki, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
lehetséges-e szűrni az oszlop neve alapján, nem pedig a szám alapján (mivel az adataim különböző oszlopokban vannak a különböző munkalapokon)?
Köszönöm Manuela
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanezzel a "KTE" feltétellel szeretnék szűrni, de ha nem jelenik meg egy lapon, akkor ne mutass semmilyen adatot.
A weboldal moderátora ezt a megjegyzést minimalizálta
Привет,
A "KTE" helyett cellaérték alapján akarok szűrési feltételeket, lehetséges ???
A weboldal moderátora ezt a megjegyzést minimalizálta
Üdvözöljük, Hemraj! Ha az adatokat egy adott cellaérték alapján szeretné szűrni a rögzített szöveg helyett, használja az alábbi kódot: Sub apply_autofilter_across_worksheets()
'Frissítés által Extendoffice
Dim xWs munkalapként
On Error Resume Next
Minden xWs In Worksheets
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Következő
End SubMegjegyzések: Kérjük, változtassa meg a Sheet1 és a E2 ezen belül Lap1.Tartomány ("E2") szkriptet a saját lapjára és cellaértékére. Kérjük, próbálja meg, remélem, segíthet!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Skyyang,
Köszönöm az értékes és Fablous támogatást, megpróbáltam ugyanazokat a képleteket használni, de nem működött, mi lehet az oka. A következő az a kód, amelyet az Excel lapomhoz használok.
Sub apply_autofilter_across_worksheets()
'Frissítés által Extendoffice
Dim xWs munkalapként
On Error Resume Next
Minden xWs In Worksheets
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Következő
End Sub
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi