Preskoči na glavno vsebino

 Kako uporabiti isti filter na več listih v Excelu?

Mogoče je enostavno uporabiti funkcijo filtriranja za filtriranje podatkov na delovnem listu, včasih pa boste morda morali filtrirati več delovnih listov, ki imajo skupno oblikovanje podatkov z enakimi kriteriji filtriranja. Če jih filtriramo enega za drugim, bomo zapravili veliko časa, tukaj lahko predstavim preprost način za njegovo reševanje naenkrat.

Uporabi isti filter na več delovnih listih s kodo VBA

puščica modri desni mehurček Uporabi isti filter na več delovnih listih s kodo VBA

Na primer, imam štiri delovne liste, saj je treba naslednji posnetek zaslona filtrirati z enakimi merili kot Product = KTE hkrati.

doc filtriraj več listov 1

Neposrednega načina filtriranja podatkov v več listih v Excelu ni, toda naslednja koda VBA vam lahko pomaga dokončati to opravilo, naredite naslednje:

1. Držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Uporabi isti filter za več delovnih listov:

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. In nato pritisnite F5 ključ za zagon te kode, vsi izdelki KTE so bili filtrirani na vseh delovnih listih hkrati, glejte posnetek zaslona:

doc filtriraj več listov 2

Opombe: Znotraj zgornje kode, v tej xWs.Range ("A1"). AutoFilter 1, "= KTE" skripta, A1 in = KTE označuje stolpec in merila, na podlagi katerih želite filtrirati, številka 1 je številka stolpca, na podlagi katere ste filtrirali, lahko jih spremenite po svoji potrebi. Če želite na primer filtrirati vrstni red, večji od 50, morate samo spremeniti ta skript, kot sledi: xWs.Range ("B1"). AutoFilter 2, "> 50".

Filtrirajte podatke po več merilih ali drugih posebnih pogojih, na primer po dolžini besedila, občutljivosti na male črke itd.

Kutools za ExcelJe Super filter Funkcija je zmogljiv pripomoček, ki jo lahko uporabite za dokončanje naslednjih postopkov:

  • Filtriranje podatkov z več merili; Filtriranje podatkov po dolžini besedila;
  • Filtriraj podatke po velikih / malih črkah; Filtriraj datum po letu / mesecu / dnevu / tednu / četrtletju

Doc-Super-Filter1

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup  |   Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule   |  Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic   |  Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij:  12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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