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
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.
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:
Bemærk: Indenfor ovenstående kode, i dette xWs.Range ("A1"). AutoFilter 1, "= KTE" manuskript, A1 , = 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:
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! |
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!