Während Sie die üblichen langweiligen Aufgaben von Excel in VBA automatisieren, müssen Sie jedes Blatt durchlaufen. Und deshalb sind Sie natürlich hier.
Sehen wir uns den Code zum Durchlaufen von Blättern in einer Arbeitsmappe an.
VBA-Code zum Schleifen in allen Blättern in Activeworkbook und Drucken von Blättern Name
Sub loopSheets() For Each ws In ActiveWorkbook.Worksheets Debug.Print ws.Name Next ws End Sub
Der obige VBA-Code durchläuft jedes Blatt in der aktiven Arbeitsmappe und druckt den Blattnamen
Wie es funktioniert?
Es ist ganz einfach. Wir weisen VBA an, jedes Arbeitsblatt in der aktiven Arbeitsmappe in ws zu speichern und dann seinen Namen mit der Methode name auszugeben.
Durchlaufen aller Blätter außer einem
Wenn Sie also mehrere Blätter in einem Masterblatt zusammenführen möchten, müssen Sie jedes Blatt durchlaufen. Kopieren Sie die Daten jedes Blatts in das Masterblatt. Sie möchten jedoch das Masterblatt von der Schleife ausnehmen. Angenommen, Sie haben das Master-Blatt als "Master" bezeichnet. Verwenden Sie in diesem Fall diese Methode:
Sub loopSheets() For Each ws In ActiveWorkbook.Worksheets Wenn ws.Name "Master" Then Debug.Print ws.Name & "Coped" End If Next ws End Sub
Es ist fast dasselbe wie der obige Code, nur mit der zusätzlichen If-Anweisung.
Wenn ws.Name "Master" Then
Diese Zeile prüft, ob der Name des aktuellen Arbeitsblatts „Master“ ist. Wenn nicht, wird der Code zwischen dem if-Block ausgeführt. Andernfalls der darin enthaltene Code, wenn der Block übersprungen wird.
Also ja, Leute, so können Sie Arbeitsblätter in Excel durchlaufen. Als Nächstes erfahren Sie, wie Sie mit vba mehrere Blätter zu einem zusammenfassen.
Download-Datei
So durchlaufen Sie Blätter in Excel mit VBAIn Verbindung stehende Artikel:
Löschen Sie Blätter ohne Bestätigungsaufforderung mit VBA in Microsoft Excel
Hinzufügen und Speichern einer neuen Arbeitsmappe mit VBA in Microsoft Excel 2016
Anzeigen einer Nachricht in der Excel VBA-Statusleiste
Deaktivieren Sie Warnmeldungen mit VBA in Microsoft Excel 2016
Populäre Artikel:
Die SVERWEIS-Funktion in Excel
ZÄHLENWENN in Excel 2016
So verwenden Sie die SUMIF-Funktion in Excel