Hoe past u hetzelfde filter toe op meerdere bladen in Excel?
Het kan voor ons gemakkelijk zijn om de filterfunctie toe te passen om gegevens in een werkblad te filteren, maar soms moet u mogelijk filteren op meerdere werkbladen met een gemeenschappelijke gegevensopmaak met dezelfde filtercriteria. Om ze een voor een te filteren, zal ik veel tijd verspillen, hier kan ik een eenvoudige manier introduceren om het meteen op te lossen.
Pas hetzelfde filter toe op meerdere werkbladen met VBA-code
Pas hetzelfde filter toe op meerdere werkbladen met VBA-code
Ik heb bijvoorbeeld vier werkbladen omdat de volgende schermafbeelding moet worden gefilterd met dezelfde criteria als Product = KTE tegelijk.
Er is geen directe manier om gegevens in meerdere bladen in Excel te filteren, maar de volgende VBA-code kan u helpen om deze klus te klaren, doe dit als volgt:
1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: pas hetzelfde filter toe op meerdere werkbladen:
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. En druk vervolgens op F5 sleutel om deze code uit te voeren, alle producten van KTE zijn in alle werkbladen tegelijk gefilterd, zie screenshot:
Opmerking:: Binnen bovenstaande code, hierin xWs.Range ("A1"). AutoFilter 1, "= KTE" script, A1 en = KTE geeft de kolom en criteria aan waarop u wilt filteren, het nummer 1 is het kolomnummer waarop u hebt gefilterd, u kunt ze naar wens wijzigen. Als u bijvoorbeeld de volgorde groter dan 50 wilt filteren, hoeft u dit script alleen als volgt aan te passen: xWs.Range ("B1"). AutoFilter 2, "> 50".
Filter gegevens op meerdere criteria of andere specifieke voorwaarden, zoals tekstlengte, hoofdlettergevoelig, enz.
Kutools for Excel's Super filter functie is een krachtig hulpprogramma, u kunt deze functie toepassen om de volgende bewerkingen te voltooien:
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis! |
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!














