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

 Hvordan anvendes det samme filter på flere ark i Excel?

Det kan være let for os at anvende filterfunktionen til at filtrere data i et regneark, men nogle gange kan det være nødvendigt at filtrere på tværs af flere regneark, der har fælles dataformatering med de samme filterkriterier. At filtrere dem en efter en spilder masser af tid, her kan jeg introducere en nem måde at løse det på én gang.

Anvend samme filter på flere regneark med VBA-kode


pil blå højre boble Anvend samme filter på flere regneark med VBA-kode

For eksempel har jeg fire regneark, da følgende skærmbillede skal filtreres med de samme kriterier som Produktet = KTE på én gang.

doc filter flere ark 1

Der er ingen direkte måde at filtrere data på flere ark i Excel på, men følgende VBA-kode kan hjælpe dig med at afslutte dette job, skal du gøre som følger:

1. Hold nede ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Anvend samme filter på flere regneark:

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. Og tryk derefter på F5 nøgle til at køre denne kode, alle KTE-produkter er blevet filtreret i alle regneark på én gang, se skærmbillede:

doc filter flere ark 2

Bemærk: Indenfor ovenstående kode, i dette xWs.Range ("A1"). AutoFilter 1, "= KTE" manuskript, A1 og = KTE angiver kolonnen og kriterierne, som du vil filtrere ud fra, tallet 1 er det kolonnenummer, du har filtreret ud fra, du kan ændre dem til dit behov. For eksempel, hvis du vil filtrere ordren større end 50, skal du bare ændre dette script som dette: xWs.Range ("B1"). AutoFilter 2, "> 50".


Filtrer data efter flere kriterier eller andre specifikke betingelser, såsom tekstlængde, efter store bogstaver osv.

Kutools til Excel's Superfilter funktion er et kraftfuldt værktøj, kan du anvende denne funktion til at afslutte følgende handlinger:

  • Filtrer data med flere kriterier; Filtrer data efter tekstlængde;
  • Filtrer data efter store / små bogstaver; Filtrer dato efter år / måned / dag / uge / kvartal

doc-super-filter1

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (41)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan anvender du denne filterformel: på en række ark? jeg har en projektmappe, der har data på de første 5 ark, og projektmappen har 200 ark, jeg skal kun bruge filteret til ark 6-200. Sub application_autofilter_across_worksheets() 'Opdater af Extendoffice 20160623 Dim xWs Som regneark ved fejl Genoptag næste for hver xWs i regneark xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Sub application_autofilter_across_worksheets() Dim J Som heltal Ved fejl Genoptag Næste For J = 6 til Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Kære, jeg vil filtrere mere end én værdi, jeg brugte denne xWs.Range("B1"). AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", og det virkede, men da jeg øge de ønskede værdier til >2, opstår der en fejl. denne kommando bruger jeg xWs.Range("B1"). AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" tak,
Denne kommentar blev minimeret af moderatoren på webstedet
mens du filtrerer et enkelt ord i flere ark, viser det ikke filtrerede data .... alle data er skjult. Venligst løs dette.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,


Mine data er i kolonne E, og når jeg anvender dette filter med Range("E1"), filtrerer det stadig kolonne A


Hvordan kan jeg fejlfinde?
Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Du skal bare skrive kolonnenummeret i AutoFilter, i dette tilfælde: xWs.Range("E1").AutoFilter 5,
Denne kommentar blev minimeret af moderatoren på webstedet
TAK SKAL DU HAVE!!!!
Denne kommentar blev minimeret af moderatoren på webstedet
SLET KOLONNEN A LOL
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan udføres det, hvis filteret er på en anden kolonne på hvert ark?
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan kan du bruge resultatet af auto-filteret til at indstille filteret for hvert andet ark i stedet for at bruge =(specifikt navn)
Denne kommentar blev minimeret af moderatoren på webstedet
Kan jeg bruge dette til at filtrere pivottabeller i flere ark, hvis alle pivottabellerne er fra samme datakilde og er sat op efter samme kriterier?
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogen mulighed for at filtrere efter farver?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Mahesh,
Hvis du vil filtrere data efter farve, kan de følgende to artikler måske hjælpe dig! Se dem, håber det kan hjælpe dig!

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
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,


Hvordan fungerer det, hvis produktkolonnen vises forskellige steder i andre ark?


I ark1 er det A1 i ark2 er det i B1 og i ark3 er det A1 igen ?

Tak,
Monika
Denne kommentar blev minimeret af moderatoren på webstedet
Er der en måde at ændre "=KTE"-delen for hvert ark med et indholdsfilter, der er baseret på arkets navn?
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for koden!! er der en måde at ændre "=KTE" til at bruge en værdi fra en liste eller rulleliste?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, genanvender superfilteret på tværs af hele projektmappen automatisk, når der er en opdatering af filen?
Denne kommentar blev minimeret af moderatoren på webstedet
Kan vi bruge cellenavn som Product i stedet for A1 i: xWs.Range("A1"). AutoFilter 1, "=KTE"
Jeg har en anden kolonne, og nogle navne kommer i en anden kolonne.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har brugt filter i hvert ark. Og jeg vil ændre s.nr. fra 1 2 3 serielt i hvert ark efter filter.


Lad mig venligst vide, hvis du har vba-kode til det
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan bruger man funktionen "Filter mellem" til de samme flere ark?

(Eksempel: Tidsinterval)
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan fjerner man filtrerede rækker?
Denne kommentar blev minimeret af moderatoren på webstedet
Kære,

Hvordan filtreres med flere betingelser?
For eksempel vil jeg filtrere i rækkefølge over 50 men kun KTE-produkter.

Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Pedjaa,
For at filtrere på tværs af flere ark baseret på to betingelser skal du anvende følgende kode:
Sub application_autofilter_across_worksheets()

'Opdatering af Extendoffice

Dim xWs Som arbejdsark

On Error Resume Next

For hver xWs i arbejdsark

Med xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Kolonne A er lig med "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Kolonne B større end 500

Slut med

Næste

End Sub

Prøv venligst, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
selvom jeg erstatter A1 med G1, sætter det filteret på A1-kolonnen
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Tan,
Du erstatter bare A1 med G1, samtidig skal du ændre kolonne nummer 1 til kolonne nummer 7, som nedenstående kode:
xWs.Range("G1").AutoFilter 7, "=KTE"
Prøv venligst, tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
er det muligt at filtrere baseret på kolonnenavn frem for antal (da mine data er i forskellige kolonner i de forskellige regneark)?
Tak Manuela
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ønsker at filtrere med den samme betingelse "KTE", men hvis det ikke vises i et ark for ikke at vise nogen data.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Jeg vil have filterkriterier baseret på en celleværdi i stedet for "KTE" er det muligt ???
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Hemraj, For at filtrere data baseret på en specifik celleværdi i stedet for den faste tekst, skal du anvende nedenstående kode: Sub application_autofilter_across_worksheets()
'Opdatering af Extendoffice
Dim xWs Som arbejdsark
On Error Resume Next
For hver xWs i arbejdsark
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Næste
End SubBemærk: Skift venligst Sheet1 og E2 inden for dette Ark1.Range("E2") script til dit eget ark og celleværdi. Prøv venligst, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Skyyang,
Tak for din værdifulde og fantastiske støtte, jeg prøvede at bruge de samme formler, men det virkede ikke, for hvad der kunne være årsagen. Følgende er koden, som jeg bruger til mit excel-ark.
Sub application_autofilter_across_worksheets()
'Opdatering af Extendoffice
Dim xWs Som arbejdsark
On Error Resume Next
For hver xWs i arbejdsark
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Næste
End Sub
Der er endnu ingen kommentarer her
Load More
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL