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

Multifunktionsleiste von Excel (mit installierten Kutools für Excel)

300 + Advanced Features Steigern Sie Ihre Produktivität um 71% und helfen Sie, sich von der Masse abzuheben!

Möchten Sie Ihre tägliche Arbeit schnell und perfekt erledigen? Kutools für Excel bringt 300 + coole und leistungsstarke erweiterte Funktionen (Kombinieren Sie Arbeitsmappen, summieren Sie nach Farbe, teilen Sie den Zellinhalt auf, konvertieren Sie Datum usw.) 1500 + Arbeitsszenarienhilft beim Lösen 82% Excel-Probleme.

  • Erledigen Sie alle komplizierten Aufgaben in Sekundenschnelle und verbessern Sie so Ihre ArbeitsfähigkeitHolen Sie sich Erfolg von der harten Konkurrenz, und machen Sie sich keine Sorgen, gefeuert zu werden.
  • Sparen Sie viel Arbeitszeit, lassen Sie viel Zeit, um die Familie zu lieben und zu pflegen und ein komfortables Leben zu genießen.
  • Reduzieren Sie täglich Tausende von Tastatur- und Mausklicks und entlasten Sie Ihre müden Augen und Händeund geben Ihnen einen gesunden Körper.
  • Werden Sie ein Excel-Experte in 3-Minuten und erhalten Sie einen bewundernden Blick von Ihren Kollegen oder Freunden.
  • Sie müssen sich keine schmerzhaften Formeln und VBA-Codes mehr merkenhaben Sie einen entspannten und angenehmen Geist, geben Sie einen Nervenkitzel, den Sie nie zuvor hatten.
  • Geben Sie nur $ 39 aus, aber mehr als $ 4000 für das Training anderer. Wird von 110,000-Eliten und bekannten 300 + -Unternehmen eingesetzt.
  • 60-Tag unbegrenzte kostenlose Testversion. Geld-zurück-Garantie für 60-Tage. Kostenloses Upgrade und Support für 2-Jahre. Einmal kaufen, für immer verwenden.
  • Ändern Sie Ihre Arbeitsweise jetzt und geben Sie sofort ein besseres Leben!

Office Tab bringt effiziente und praktische Tabs in Office (einschließlich Excel), genau wie Chrome, Firefox und New IE

  • Steigert Ihre Produktivität um 50% beim Anzeigen und Bearbeiten mehrerer Dokumente.
  • Reduzieren Sie täglich Hunderte von Mausklicks, verabschieden Sie sich von der Maushand.
  • Öffnen und erstellen Sie Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Helfen Sie, schneller zu arbeiten und sich von der Masse abzuheben! Eine Sekunde, um zwischen Dutzenden geöffneter Dokumente zu wechseln!
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.
    ali · 3 days ago
    thank you. saved a lot of my time.
  • To post as a guest, your comment is unpublished.
    DragonKing · 9 days ago
    Years later, and this still holds up excellently. Thanks!
  • To post as a guest, your comment is unpublished.
    Max · 11 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',