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

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.

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:

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".