Wie wende ich denselben Filter auf mehrere Blätter in Excel an?
Es mag für uns einfach sein, die Filterfunktion zum Filtern von Daten in einem Arbeitsblatt anzuwenden, aber manchmal müssen Sie möglicherweise über mehrere Arbeitsblätter filtern, die eine gemeinsame Datenformatierung mit denselben Filterkriterien aufweisen. Das Filtern nacheinander wird viel Zeit verschwenden. Hier kann ich einen einfachen Weg vorstellen, um es sofort zu lösen.
Wenden Sie denselben Filter auf mehrere Arbeitsblätter mit VBA-Code an
Wenden Sie denselben Filter auf mehrere Arbeitsblätter mit VBA-Code an
Zum Beispiel habe ich vier Arbeitsblätter, da der folgende Screenshot nach denselben Kriterien gefiltert werden muss wie das Produkt = KTE auf einmal.
Es gibt keine direkte Möglichkeit, Daten in mehreren Arbeitsblättern in Excel zu filtern. Der folgende VBA-Code kann Ihnen jedoch dabei helfen, diesen Auftrag abzuschließen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Wenden Sie denselben Filter auf mehrere Arbeitsblätter an:
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. Und dann drücken F5 Schlüssel zum Ausführen dieses Codes, alle Produkte von KTE wurden in allen Arbeitsblättern gleichzeitig gefiltert, siehe Screenshot:
Note: Innerhalb des obigen Codes in diesem xWs.Range ("A1"). AutoFilter 1, "= KTE" Skript, A1 und = KTE Gibt die Spalte und die Kriterien an, nach denen Sie filtern möchten. Die Nummer 1 ist die Spaltennummer, nach der Sie gefiltert haben. Sie können sie nach Bedarf ändern. Wenn Sie beispielsweise die Reihenfolge größer als 50 filtern möchten, müssen Sie dieses Skript nur folgendermaßen ändern: xWs.Range ("B1"). AutoFilter 2, "> 50".
Filtern Sie Daten nach mehreren Kriterien oder anderen spezifischen Bedingungen, z. B. nach Textlänge, Groß- und Kleinschreibung usw.
Kutools for Excel Superfilter Die Funktion ist ein leistungsstarkes Dienstprogramm. Sie können diese Funktion anwenden, um die folgenden Vorgänge abzuschließen:
Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen! |
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!