Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie teilt man Daten in mehrere Arbeitsblätter nach Zeilen in Excel?

Zum Beispiel habe ich eine Reihe von Datenlisten, jetzt möchte ich sie in mehrere Arbeitsblätter nach Zeilenanzahl aufteilen, in diesem Beispiel werde ich sie nach jeder 5-Zeile aufteilen (siehe folgende Screenshots). Gibt es Möglichkeiten, uns zu helfen, dieses Problem schnell zu lösen? Hier stelle ich Ihnen zwei Tricks vor, damit Sie es leicht machen können.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

Teilen von Daten in mehrere Arbeitsblätter nach Zeilen zählt mit VBA-Code

Teilen Sie Daten in mehreren Arbeitsblättern nach Zeilen mit Kutools für Excel


Pfeil blaue rechte Blase Teilen von Daten in mehrere Arbeitsblätter nach Zeilen zählt mit VBA-Code


Der folgende VBA-Code kann Ihnen dabei helfen, die Zeilen nach Zeilenanzahl in mehrere Arbeitsblätter aufzuteilen:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen des Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Teilen Sie Daten in Blätter nach Anzahl der Zeilen in Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie einen Bereich auswählen können, der geteilt werden soll. Klicken Sie dann auf OK OKund einen weiteren Dialog, in dem Sie die Anzahl der Zeilen angeben können. Siehe Screenshot:

4. Drücken Sie OKund der Bereich wird durch die Anzahl der Zeilen in mehrere Blätter aufgeteilt.

Text: Die geteilten Arbeitsblätter befinden sich auf der Rückseite des Master-Arbeitsblatts.


Pfeil blaue rechte Blase Teilen Sie Daten in mehreren Arbeitsblättern nach Zeilen mit Kutools für Excel

Der obige Code kann die Daten nur nach der angegebenen Zeilenanzahl aufteilen, und der Titel wird nicht für die einzelnen Arbeitsblattdaten hinzugefügt, wenn Ihre Daten den Titel haben.

Aber mit Kutools for Excel Daten teilenSie können nicht nur die Kopfzeilen für die einzelnen Arbeitsblattdaten einfügen, sondern auch die neuen geteilten Arbeitsblattnamen angeben.

Kutools for Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos zu testen, ohne Einschränkung in 30 Tagen. Get it Now

Wenn Sie Kutools für Excel installiert haben, gehen Sie wie folgt vor:

1. Wählen Sie den Datenbereich aus, den Sie teilen möchten.

2. Klicken Sie Unternehmen > Arbeitsblatt-Tools > Daten teilen (oder Unternehmen > Daten teilen ), siehe Screenshot:

doc-split-data-by-rows6

3. In dem Teilen Sie Daten in mehrere Arbeitsblätter Dialogbox:

  • Auswählen Feste Zeilen ab Teilen basierend auf und geben Sie die Anzahl der Zeilen ein, die Sie für jedes Arbeitsblatt teilen möchten. (Wenn Ihre Daten über Kopfzeilen verfügen und Sie sie in jedes neue Arbeitsblatt einfügen möchten, überprüfen Sie dies bitte Meine Daten haben Kopfzeilen Möglichkeit.)
  • Dann können Sie die geteilten Arbeitsblattnamen unter dem Namen angeben Neuer Arbeitsblattname Abschnitt, wählen Sie die Regeln für die Arbeitsblattnamen aus Regeln Dropdown-Liste, können Sie die hinzufügen Vorsilbe or Suffix für die Blattnamen auch. Siehe Screenshot:

doc-split-data-by-rows7

4. Nachdem Sie die Einstellungen festgelegt haben, klicken Sie auf OKund die ausgewählten Daten wurden von jeder 5-Zeile in mehrere Arbeitsblätter einer neuen Arbeitsmappe aufgeteilt. Und die Header werden für jedes neue Arbeitsblatt eingefügt. Siehe Screenshot:

doc-split-data-by-rows8

Klicken Sie hier, um mehr über diese Funktion zum Teilen von Daten zu erfahren.

In Verbindung stehender Artikel:

Wie teilt man Daten in mehrere Arbeitsblätter basierend auf einer Spalte in Excel auf?



Empfohlene Produktivitätswerkzeuge

Office Tab

Goldstern1 Bringen Sie praktische Tabs zu Excel und anderer Office-Software, genau wie Chrome, Firefox und den neuen Internet Explorer.

Kutools for Excel

Goldstern1 Tolle! Steigern Sie Ihre Produktivität in 5 Minuten. Brauche keine besonderen Fähigkeiten, spare zwei Stunden pro Tag!

Goldstern1 300 Neue Funktionen für Excel, machen Excel viel einfacher und leistungsfähiger:

  • Zelle / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren.
  • Kombinieren und konsolidieren Sie mehrere Arbeitsblätter und Arbeitsmappen.
  • Bereiche vergleichen, Mehrere Bereiche kopieren, Text in Datum umwandeln, Einheit und Währungsumrechnung.
  • Zählen nach Farben, Paging-Zwischensummen, Erweiterte Sortierung und Super-Filter,
  • Mehr Auswählen / Einfügen / Löschen / Text / Formatieren / Verknüpfen / Kommentieren / Arbeitsmappen / Arbeitsblätter Werkzeuge ...

Screenshot von Kutools für Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 10 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?