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

 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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (41)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
kako uporabite to formulo filtra: na vrsto listov? imam delovni zvezek, ki ima podatke na prvih 5 listih, delovni zvezek pa ima 200 listov, potrebujem samo filter za uporabo na listu 6-200. Sub apply_autofilter_across_worksheets() 'Posodobiti Extendoffice 20160623 Dim xWs As Worksheet On Error Nadaljuj naprej za vsak xWs v delovnih listih xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Sub apply_autofilter_across_worksheets() Dim J Kot celo število Ob napaki Nadaljuj Naprej Za J = 6 do Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovani, želim filtrirati več kot eno vrednost, uporabil sem to xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" in je deloval, vendar ko sem povečati želene vrednosti na >2 pride do napake. ta ukaz uporabljam xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" hvala,
Ta komentar je moderator na spletnem mestu minimiziral
med filtriranjem ene besede na več listih ne prikaže filtriranih podatkov .... vsi podatki so skriti. prosimo, rešite to.
Ta komentar je moderator na spletnem mestu minimiziral
Hi,


Moji podatki so v stolpcu E in ko uporabim ta filter z obsegom ("E1"), še vedno filtrira stolpec A


Kako lahko odpravim težave?
Hvala
Ta komentar je moderator na spletnem mestu minimiziral
V samodejni filter morate samo vpisati številko stolpca, v tem primeru: xWs.Range("E1").AutoFilter 5,
Ta komentar je moderator na spletnem mestu minimiziral
HVALA VAM!!!!
Ta komentar je moderator na spletnem mestu minimiziral
IZBRIŠI STOLPEC A LOL
Ta komentar je moderator na spletnem mestu minimiziral
Kako se izvede, če je filter na drugem stolpcu na vsakem listu?
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko uporabite rezultat samodejnega filtra, da nastavite filter za drug list, namesto da uporabite =(določeno ime)
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko s tem filtriram vrtilne tabele na več listih, če so vse vrtilne tabele iz istega vira podatkov in so nastavljene z istimi merili?
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja možnost filtriranja po barvah?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Mahesh,
Če želite podatke filtrirati po barvah, vam lahko pomagata naslednja dva članka! Prosimo, oglejte si jih, upam, da vam lahko pomagajo!

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
Ta komentar je moderator na spletnem mestu minimiziral
Hi,


Kako to deluje, če je stolpec Product predstavljen na različnih mestih na drugih listih?


Na listu 1 je A1 na listu 2 je v B1 in na listu 3 je spet A1?

Hvala,
Monika
Ta komentar je moderator na spletnem mestu minimiziral
Ali obstaja način, da spremenite del "=KTE" za vsak list s filtrom za vsebino, ki temelji na imenu lista?
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za kodo!! ali obstaja način za spreminjanje "=KTE" za uporabo vrednosti s seznama ali spustnega seznama?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, ali se super filter v celotnem delovnem zvezku samodejno znova uporabi, ko je datoteka posodobljena?
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko uporabimo ime celice, kot je Product namesto A1 v: xWs.Range("A1").AutoFilter 1, "=KTE"
Imam drugačen stolpec in nekatera imena so v drugem stolpcu.
Ta komentar je moderator na spletnem mestu minimiziral
Na vsakem listu sem uporabil filter. In želim spremeniti s.no iz 1 2 3 serijsko v vsakem listu po filtru.


Sporočite mi, če imate vba kodo za to
Ta komentar je moderator na spletnem mestu minimiziral
Kako uporabiti funkcijo "Filter med" za iste več listov?

(Primer: časovni razpon)
Ta komentar je moderator na spletnem mestu minimiziral
kako odstraniti filtrirane vrstice?
Ta komentar je moderator na spletnem mestu minimiziral
Dragi,

Kako filtrirati z več pogoji?
Na primer, želim filtrirati v vrstnem redu nad 50, vendar samo izdelke KTE.

Hvala vnaprej.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Pedjaa,
Če želite filtrirati več listov na podlagi dveh pogojev, uporabite naslednjo kodo:
Sub apply_autofilter_across_worksheets()

'Posodobitev Extendoffice

Dim xWs kot delovni list

On Error Resume Next

Za vsak xWs v delovnih listih

Z xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Stolpec A je enak "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Stolpec B večji od 500

Končaj s

Naslednji

End Sub

Prosim poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
tudi če zamenjam A1 z G1, filter postavi na stolpec A1
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Tan,
Samo zamenjate A1 z G1, hkrati pa morate spremeniti stolpec številka 1 v stolpec številka 7, kot je spodnja koda:
xWs.Range("G1").Samodejni filter 7, "=KTE"
Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
ali je mogoče filtrirati na podlagi imena stolpca in ne števila (ker so moji podatki v različnih stolpcih na različnih delovnih listih)?
Hvala Manuela
Ta komentar je moderator na spletnem mestu minimiziral
Želim filtrirati z istim pogojem "KTE", vendar če se ne prikaže na listu, ne prikaže nobenih podatkov.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo,
Želim filtrirne kriterije, ki temeljijo na vrednosti celice namesto "KTE" ali je to mogoče???
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Hemraj, če želite filtrirati podatke na podlagi določene vrednosti celice namesto fiksnega besedila, uporabite spodnjo kodo: Sub apply_autofilter_across_worksheets()
'Posodobitev Extendoffice
Dim xWs kot delovni list
On Error Resume Next
Za vsak xWs v delovnih listih
xWs.Range("A1").Samodejni filter 1, Sheet1.Range("E2")
Naslednji
End SubOpombe: Prosimo, spremenite Sheet1 in E2 znotraj tega Sheet1.Range("E2") skript na vaš lasten list in vrednost celice. Poskusite, upam, da vam lahko pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Skyyang,
Hvala za vašo dragoceno in čudovito podporo, poskušal sem uporabiti iste formule, vendar ni delovalo zaradi tega, kar bi lahko bil razlog. Sledi koda, ki jo uporabljam za svoj Excelov list.
Sub apply_autofilter_across_worksheets()
'Posodobitev Extendoffice
Dim xWs kot delovni list
On Error Resume Next
Za vsak xWs v delovnih listih
xWs.Range("A1").Samodejni filter 1, Sheet2.Range("C4")
Naslednji
End Sub
Tu še ni objavljenih komentarjev
Obremenitev Več
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL