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

 Hur applicerar jag samma filter på flera ark i Excel?

Det kan vara lätt för oss att använda filterfunktionen för att filtrera data i ett kalkylblad, men ibland kan du behöva filtrera över flera kalkylblad som har gemensam dataformatering med samma filterkriterier. Att filtrera dem en efter en kommer att slösa mycket tid, här kan jag introducera ett enkelt sätt att lösa det på en gång.

Applicera samma filter på flera kalkylblad med VBA-kod


pil blå höger bubbla Applicera samma filter på flera kalkylblad med VBA-kod

Till exempel har jag fyra kalkylblad, eftersom följande skärmdump måste filtreras med samma kriterier som produkten = KTE på en gång.

doc-filter flera ark 1

Det finns inget direkt sätt att filtrera data i flera ark i Excel, men följande VBA-kod kan hjälpa dig att slutföra detta jobb, gör så här:

1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Använd samma filter på flera kalkylblad:

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. Och tryck sedan på F5 nyckel för att köra den här koden, alla produkter från KTE har filtrerats i alla kalkylblad samtidigt, se skärmdump:

doc-filter flera ark 2

Anmärkningar: Inom ovanstående kod, i detta xWs.Range ("A1"). AutoFilter 1, "= KTE" manus, A1 och = KTE anger kolumnen och kriterierna som du vill filtrera utifrån, siffran 1 är kolumnnumret du filtrerade utifrån, du kan ändra dem efter behov. Om du till exempel vill filtrera ordern större än 50 behöver du bara ändra detta skript så här: xWs.Range ("B1"). AutoFilter 2, "> 50".


Filtrera data efter flera kriterier eller andra specifika villkor, till exempel efter textlängd, efter skiftlägeskänsla, etc.

Kutools för ExcelÄr Superfilter funktionen är ett kraftfullt verktyg, du kan använda den här funktionen för att slutföra följande åtgärder:

  • Filtrera data med flera kriterier; Filtrera data efter textlängd;
  • Filtrera data efter stora / små bokstäver; Filtrera datum efter år / månad / dag / vecka / kvartal

doc-super-filter1

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (41)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
hur tillämpar du denna filterformel: på en rad ark? Jag har en arbetsbok som har data på de första 5 arken, och arbetsboken har 200 ark. Jag behöver bara filtret för att tillämpas på blad 6-200. Sub application_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs Som kalkylblad vid fel Återuppta nästa för varje xWs i kalkylblad xWs.Range("A1"). AutoFilter 1, "=KTE" Next End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Sub application_autofilter_across_worksheets() Dim J Som heltal Vid fel Fortsätt Nästa För J = 6 till Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag vill filtrera mer än ett värde, jag använde detta xWs.Range("B1"). AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" och det fungerade men när jag öka de önskade värdena till >2 ett fel uppstår. det här kommandot använder jag xWs.Range("B1"). AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" tack,
Denna kommentar minimerades av moderatoren på webbplatsen
medan du filtrerar ett ord i flera ark visar det inte filtrerad data ... alla data är gömda. lös detta.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,


Mina data finns i kolumn E och när jag tillämpar detta filter med Range("E1") filtrerar det fortfarande kolumn A


Hur kan jag felsöka?
Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Du behöver bara skriva kolumnnumret i AutoFilter, i det här fallet: xWs.Range("E1").AutoFilter 5,
Denna kommentar minimerades av moderatoren på webbplatsen
TACK!!!!
Denna kommentar minimerades av moderatoren på webbplatsen
TA BORT KOLUMNEN A LOL
Denna kommentar minimerades av moderatoren på webbplatsen
Hur kör man om filtret finns på en annan kolumn på varje ark?
Denna kommentar minimerades av moderatoren på webbplatsen
Hur kan du använda resultatet av autofiltret för att ställa in filtret för varje annat ark istället för att använda =(specifikt namn)
Denna kommentar minimerades av moderatoren på webbplatsen
Kan jag använda detta för att filtrera pivottabeller i flera ark om alla pivottabeller är från samma datakälla och konfigurerade med samma kriterier?
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något alternativ att filtrera efter färger?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Mahesh,
Om du vill filtrera data efter färg, kanske följande två artiklar kan hjälpa dig! Se dem, hoppas det kan hjälpa 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
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,


Hur fungerar detta om produktkolumnen visas på olika ställen i andra blad?


I ark1 är det A1 i ark2 är det i B1 och i ark3 är det A1 igen ?

Tack,
monika
Denna kommentar minimerades av moderatoren på webbplatsen
Finns det något sätt att ändra "=KTE"-delen för varje ark med ett innehållsfilter som är baserat på arkets namn?
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för koden!! finns det något sätt att ändra "=KTE" för att använda ett värde från en lista eller rullgardinslista?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, appliceras superfiltret över hela arbetsboken automatiskt igen när det kommer en uppdatering av filen?
Denna kommentar minimerades av moderatoren på webbplatsen
Kan vi använda cellnamn som Product istället för A1 i : xWs.Range("A1"). AutoFilter 1, "=KTE"
Jag har en annan kolumn och några namn kommer i en annan kolumn.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har använt filter i varje ark. Och jag vill byta s.nr från 1 2 3 seriellt i varje ark efter filter.


Vänligen meddela mig om du har vba-kod för det
Denna kommentar minimerades av moderatoren på webbplatsen
Hur använder man funktionen "Filter mellan" för samma flera ark?

(Exempel: Tidsintervall)
Denna kommentar minimerades av moderatoren på webbplatsen
hur eliminerar man filtrerade rader?
Denna kommentar minimerades av moderatoren på webbplatsen
Kära,

Hur filtrerar man med flera villkor?
Jag vill till exempel filtrera i ordning över 50 men bara KTE-produkter.

Tack på förhand.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Pedjaa,
För att filtrera över flera ark baserat på två villkor, använd följande kod:
Sub application_autofilter_across_worksheets()

'Uppdatering av Extendoffice

Dim xWs Som arbetsblad

On Error Resume Next

För varje xWs i arbetsblad

Med xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Kolumn A är lika med "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Kolumn B större än 500

Sluta med

Nästa

End Sub

Försök gärna, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
även om jag ersätter A1 med G1, placerar det filtret på A1-kolumnen
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Tan,
Du ersätter bara A1 med G1, samtidigt bör du ändra kolumnnummer 1 till kolumnnummer 7, enligt nedanstående kod:
xWs.Range("G1").AutoFilter 7, "=KTE"
Försök, tack!
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,
är det möjligt att filtrera baserat på kolumnnamn snarare än nummer (eftersom mina data finns i olika kolumner i de olika kalkylbladen)?
Tack Manuela
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vill filtrera med samma villkor "KTE", men om det inte visas i ett ark för att inte visa några data.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Jag vill ha filterkriterier baserade på ett cellvärde istället för "KTE" är det möjligt ???
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Hemraj, För att filtrera data baserat på ett specifikt cellvärde istället för den fasta texten, använd koden nedan: Sub application_autofilter_across_worksheets()
'Uppdatering av Extendoffice
Dim xWs Som arbetsblad
On Error Resume Next
För varje xWs i arbetsblad
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Nästa
End SubAnmärkningar: Vänligen ändra Sheet1 och E2 inom detta Sheet1.Range("E2") skript till ditt eget ark och cellvärde. Försök, hoppas det kan hjälpa dig!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Skyyang,
Tack för ditt värdefulla och fantastiska stöd, jag försökte använda samma formler men det fungerade inte av vad som kan vara anledningen. Följande är koden som jag använder för mitt excelark.
Sub application_autofilter_across_worksheets()
'Uppdatering av Extendoffice
Dim xWs Som arbetsblad
On Error Resume Next
För varje xWs i arbetsblad
xWs.Range("A1"). AutoFilter 1, Sheet2.Range("C4")
Nästa
End Sub
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL