Wie erstellt man neue Blätter für jede Zeile in Excel?

Stellen Sie sich vor, Sie haben eine Tabelle mit Schüler*innennamen in Spalte A und möchten für jeden Schüler ein separates Blatt mit seinen individuellen Daten erstellen. Alternativ möchten Sie möglicherweise einfach für jede Zeile in Ihrer Tabelle ein neues Blatt erstellen, unabhängig von den Daten in einer bestimmten Spalte. Dieser Leitfaden zeigt Ihnen zwei Methoden, um dies zu erreichen.

Neue Blätter für jede Zeile mit VBA-Code erstellen
Neue Blätter für jede Zeile mit der Funktion „Daten aufteilen“ von Kutools für Excel erstellen

Neue Blätter für jede Zeile mit VBA-Code erstellen

Mit den folgenden Codes können Sie neue Blätter basierend auf Spaltenwerten erstellen oder einfach neue Blätter für jede Zeile in Excel anlegen.

1. Drücken Sie gleichzeitig die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie im Fenster „Microsoft Visual Basic for Applications“ auf „Einfügen“ > „Modul“. Fügen Sie dann den folgenden Code in das Modulfenster ein.

VBA-Code: Neues Blatt für jede Zeile basierend auf Spalte erstellen

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Hinweis: A1:C1 ist der Kopfbereich Ihrer Tabelle. Sie können ihn je nach Bedarf ändern.

3. Drücken Sie die Taste „F5“, um den Code auszuführen. Danach werden neue Arbeitsblätter nach allen Arbeitsblättern der aktuellen Arbeitsmappe erstellt, wie im folgenden Screenshot dargestellt:

Wenn Sie direkt neue Blätter für jede Zeile erstellen möchten, ohne die Spaltenwerte zu berücksichtigen, können Sie den folgenden Code verwenden.

VBA-Code: Direkt ein neues Blatt für jede Zeile erstellen

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Nachdem Sie den Code ausgeführt haben, wird jede Zeile im aktiven Arbeitsblatt in einem neuen Arbeitsblatt platziert.

Hinweis: Die Kopfzeile wird ebenfalls mit diesem VBA-Code in ein neues Blatt eingefügt.

Neue Blätter für jede Zeile mit der Funktion „Daten aufteilen“ von Kutools für Excel erstellen

Tatsächlich ist die oben genannte Methode kompliziert und schwer verständlich. In diesem Abschnitt stellen wir die Funktion „Daten aufteilen“ von „Kutools für Excel“ vor.

1. Wählen Sie die Tabelle aus, die Sie zum Erstellen neuer Blätter verwenden möchten, und klicken Sie auf „Kutools Plus“ > „Daten aufteilen“. Siehe Screenshot:

2. Im Dialogfeld „Daten in mehrere Arbeitsblätter aufteilen“ gehen Sie wie folgt vor:

A. Für das Erstellen neuer Blätter basierend auf Spaltenwerten:

B. Für das direkte Erstellen neuer Blätter für jede Zeile:

Eine neue Arbeitsmappe wird mit allen neuen Blättern darin erstellt. Siehe Screenshots unten.

Erstellen neuer Blätter für jede Zeile basierend auf Spaltenwerten:

Erstellen eines neuen Blatts für jede Zeile ohne Berücksichtigung der Spaltenwerte:

Demo: Neue Blätter für jede Zeile mit der Funktion „Daten aufteilen“ von Kutools für Excel erstellen