Ugrás a tartalomra

 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 hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup  |   Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár   |  Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása   |  E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet:  12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás

Az Office lap füles 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!
Comments (48)
Rated 5 out of 5 · 1 ratings
Giulia Simbula
Giulia Simbula
This comment was minimized by the moderator on the site
Hello, your code works really well. What about if I want to filter more than one cell value. For example: KTE and KTO? thank you for your help
Reply
0
0
Giulia Simbula
Giulia Simbula
This comment was minimized by the moderator on the site
Hello, your code works really well. What about if I want to filter more than one cell value. For example: KTE and KTO
Reply
0
0
Sheik
Sheik
This comment was minimized by the moderator on the site
Hi,
i have a work book 20+ sheets, and have to filter each sheet in different column but the same number "0 (Zero)" as in the column "P" in the attached image. along with i have to print preview the sheets which i have mentioned. How to di it sir. Each sheet has link with another or several sheets has linked to specific sheet.
View Attachments (1 / 5)
Reply
Report
0
0
richardhodgkisson@sky.com
This comment was minimized by the moderator on the site
Works a treat, thank you.
Reply
Report
0
0
Rated 5 out of 5
richardhodgkisson@sky.com
This comment was minimized by the moderator on the site
Is it possible to use the code to filter where it does not contain a zero.

I have a workbook with sheets up to 20 sometimes, where one column is always the same in each sheet, want to filter out all zeros.

Hope this makes sense.
Reply
Report
0
0
skyyang
skyyang    
This comment was minimized by the moderator on the site
Hello, Richard,
To filter the data exclude the zeros, please apply the below vba code:
Note: in the code, in this xWs.Range("C1").AutoFilter 3, "<>0" script, C1 and <>0 indicates the column and criteria which you want to filter based on, the number 3 is the column number you filtered based on, you can change them to your need.
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("c1").AutoFilter 3, "<>0"
    Next
End Sub


Please have a try, hope it can help you!
Reply
Report
1
0
richardhodgkisson@sky.com
This comment was minimized by the moderator on the site
I want to use this code to filter on a column across multiple worksheets, the column will always have numbers in it, but I want the auto filter to remove zero values, leaving just minus and plus numbers.

Is this possible?
Reply
Report
0
0
Fabio costa
Fabio costa
This comment was minimized by the moderator on the site
I have a spreadsheet with 2 tabs, I want that when I filter one tab, the other respects the filtered items and is also filtered with the same values, how to do that?
Reply
0
0
skyyang
skyyang     Fabio costa
This comment was minimized by the moderator on the site
Hello, Fabio,
To solve your problem, you can use the VBA code in this article, and please remeber to change the cell reference and criteria in the code.
Please try again, hope it can help you!
Reply
Report
0
0
paige
paige
This comment was minimized by the moderator on the site
I am copying and pasting exactly but keep getting "Compile Error: Invalid outside procedure". I have only changed the criteria to match what I need specifically.. below:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("D3").AutoFilter 1, "=Paige"
Next
End Sub
Reply
0
0
skyyang
skyyang     paige
This comment was minimized by the moderator on the site
Hello, Paige,
I have tested your code, and it works well in my workbook.
Could you upload your excel file here, so that we can check where the problem is.
Thank you!
Reply
Report
0
0
BRendan
BRendan
This comment was minimized by the moderator on the site
Amazing work! this macro is great.
Reply
0
0
Akoma Dupsy Blessing
Akoma Dupsy Blessing
This comment was minimized by the moderator on the site
Thank you skyyang Please how do i remove the hidden rows after filtering?
Reply
0
0
skyyang
skyyang     Akoma Dupsy Blessing
This comment was minimized by the moderator on the site
Hello, Akoma,
To remove all hidden rows after filtering, please apply the below code: (Note: This code will remove all hidden rows in the worksheet, and it will not undo, so you need backup your data.)
Sub DeleteHiddenRows()
Dim sht As Worksheet
Dim LastRow
Set sht = ActiveSheet
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
For i = LastRow To 1 Step -1
If Rows(i).Hidden = True Then Rows(i).EntireRow.Delete
Next
End Sub

Please try, hope it can help you!
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations