Wie erstelle ich neue Blätter für jede Zeile in Excel?
Angenommen, Sie haben eine Ergebnistabelle mit den Namen aller Schüler in Spalte A. Jetzt möchten Sie neue Blätter basierend auf diesen Namen in Spalte A erstellen, und jedes Blatt erstellen enthält die Daten eines einzelnen Schülers. Oder erstellen Sie einfach nur für jede Zeile in der Tabelle ein neues Blatt, ohne die Namen in Spalte A zu berücksichtigen. In diesem Video erhalten Sie Methoden, um dies zu erreichen.
Erstellen Sie neue Blätter für jede Zeile mit VBA-Code
Erstellen Sie mit dem Dienstprogramm "Daten teilen" von Kutools for Excel neue Blätter für jede Zeile
Erstellen Sie neue Blätter für jede Zeile mit VBA-Code
Mit den folgenden Codes können Sie ein neues Blatt basierend auf Spaltenwerten erstellen oder einfach neue Blätter für jede Zeile in Excel erstellen.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Fügen Sie dann den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Erstellen Sie ein neues Blatt für jede Zeile basierend auf der Spalte
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
Note: A1: C1 ist der Titelbereich Ihrer Tabelle. Sie können es je nach Bedarf ändern.
3. Drücken Sie F5 Wenn Sie den Code zum Ausführen des Codes eingeben, werden nach allen Arbeitsblättern der aktuellen Arbeitsmappe neue Arbeitsblätter erstellt (siehe Abbildung unten):
Wenn Sie direkt neue Blätter für jede Zeile erstellen möchten, ohne den Spaltenwert zu berücksichtigen, können Sie den folgenden Code verwenden.
VBA-Code: Erstellen Sie direkt ein neues Blatt für jede Zeile
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
Nach dem Ausführen des Codes wird jede Zeile im aktiven Arbeitsblatt in ein neues Arbeitsblatt eingefügt.
Note: Die Überschriftenzeile wird ebenfalls in ein neues Blatt mit diesem VBA-Code eingefügt.
Erstellen Sie mit dem Dienstprogramm "Daten teilen" von Kutools for Excel neue Blätter für jede Zeile
Tatsächlich ist die obige Methode kompliziert und schwer zu verstehen. In diesem Abschnitt stellen wir Ihnen die vor Daten teilen Nutzen von Kutools for Excel.
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
1. Wählen Sie die Tabelle aus, die Sie zum Erstellen neuer Blätter verwenden möchten, und klicken Sie dann auf Kutoolen Plus> Daten spucken. Siehe Screenshot:
2. In dem Daten in mehrere Arbeitsblätter aufteilen Dialogfeld, bitte gehen Sie wie folgt vor.
A. Zum Erstellen neuer Blätter basierend auf dem Spaltenwert:
B. Zum direkten Erstellen neuer Blätter für jede Zeile:
Es wird eine neue Arbeitsmappe mit allen neuen Blättern erstellt. Siehe Screenshots unten.
Erstellen neuer Blätter für jede Zeile basierend auf dem Spaltenwert:
Erstellen eines neuen Blattes für jede Zeile ohne Berücksichtigung des Spaltenwerts:
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
Erstellen Sie mit dem Dienstprogramm "Daten teilen" von Kutools for Excel neue Blätter für jede Zeile
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!