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

Registerkarte "Office" Aktivieren Sie das Bearbeiten und Durchsuchen von Registerkarten in Office und vereinfachen Sie Ihre Arbeit erheblich ...
Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%
  • Alles wiederverwenden: Fügen Sie die am häufigsten verwendeten oder komplexesten Formeln, Diagramme und andere Elemente zu Ihren Favoriten hinzu und verwenden Sie sie in Zukunft schnell wieder.
  • Mehr als 20-Textfunktionen: Extrahiere die Zahl aus der Zeichenkette. Teile von Texten extrahieren oder entfernen; Zahlen und Währungen in englische Wörter umrechnen.
  • Tools zusammenführen: Mehrere Arbeitsmappen und Blätter in einer; Mehrere Zellen / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren; Doppelte Zeilen und Summe zusammenführen.
  • Geteilte Werkzeuge: Aufteilen von Daten in mehrere Blätter basierend auf dem Wert; Eine Arbeitsmappe in mehrere Excel-, PDF- oder CSV-Dateien; Eine Spalte zu mehreren Spalten.
  • Einfügen überspringen Versteckte / Gefilterte Zeilen; Zählung und Summe nach Hintergrundfarbe; Senden Sie personalisierte E-Mails in großen Mengen an mehrere Empfänger.
  • Super Filter: Erstellen Sie erweiterte Filterschemata und wenden Sie diese auf alle Blätter an. Art nach Woche, Tag, Häufigkeit und mehr; Filtern durch Fettdruck, Formeln, Kommentar ...
  • Mehr als 300 leistungsstarke Funktionen; Funktioniert mit Office 2007-2019 und 365; Unterstützt alle Sprachen; Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation.

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?


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
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.
    eve · 3 months ago
    Minmatar detected :O
  • To post as a guest, your comment is unpublished.
    ali · 6 months ago
    thank you. saved a lot of my time.
  • To post as a guest, your comment is unpublished.
    DragonKing · 6 months ago
    Years later, and this still holds up excellently. Thanks!
  • To post as a guest, your comment is unpublished.
    Max · 1 years 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?
  • To post as a guest, your comment is unpublished.
    Gunesh Chandran · 2 years ago
    Thanks a lot for this tutorial. It is working fine.
  • To post as a guest, your comment is unpublished.
    Adam Dicker · 3 years ago
    Is there a way to split and then exp[ort to multiple HTML files?
  • To post as a guest, your comment is unpublished.
    Amy Takers · 3 years ago
    We can increase rankings of your website in all major search engines at a very affordable price. Email us back to get a full proposal.
  • To post as a guest, your comment is unpublished.
    MattG · 4 years ago
    I've searched endlessly for this. Thank you so much for this tutorial!!!!
  • To post as a guest, your comment is unpublished.
    John Boyd · 4 years ago
    Works great coupled with this one as necessary: http://www.extendoffice.com/documents/excel/628-excel-split-workbook.html
  • To post as a guest, your comment is unpublished.
    Teri · 4 years ago
    It works with one row of column headers. I use multiple rows that include averages and totals. Plus, I have a distribution chart at the bottom. How can I keep these intact? Currently this info is not transferring over to the new worksheets it creates.
  • To post as a guest, your comment is unpublished.
    Teri · 4 years ago
    I have multiple rows of column headers containing averages and totals at the top of each sheet. I have a distribution chart at the bottom. This needs to be kept on each new sheet split out. How do I make this happen with the tool?
  • To post as a guest, your comment is unpublished.
    joms · 5 years ago
    hello,

    its not working for me. my data is coming from a pivot table and it has header. this vba can export some data but not all... pls assist
  • To post as a guest, your comment is unpublished.
    Lijesh · 5 years ago
    Great . It is awesome ...

    Thanks