Teilen Sie Daten in Excel nach Zeilenanzahl in mehrere Arbeitsblätter auf
Durch die effiziente Aufteilung eines großen Datenbereichs in mehrere Excel-Arbeitsblätter basierend auf einer bestimmten Zeilenanzahl kann die Datenverwaltung optimiert werden. Wenn Sie beispielsweise einen Datensatz alle fünf Zeilen in mehrere Blätter aufteilen, können Sie ihn besser verwalten und organisieren. Dieser Leitfaden bietet zwei praktische Methoden, um diese Aufgabe schnell und einfach zu erledigen.
Aufteilen von Daten in mehrere Arbeitsblätter nach Zeilenanzahl mit VBA-Code
Teilen Sie Daten mit Kutools for Excel nach Zeilenanzahl in mehrere Arbeitsblätter auf
Aufteilen von Daten in mehrere Arbeitsblätter nach Zeilenanzahl mit VBA-Code
Der folgende VBA-Code kann Ihnen dabei helfen, die Zeilen nach Zeilenanzahl in mehrere Arbeitsblätter aufzuteilen. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen des Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.
VBA: Teilen Sie Daten in Excel nach Zeilenanzahl in Arbeitsblätter auf
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Dann drücken F5 Wählen Sie im angezeigten Dialogfeld die Kopfzeile aus, siehe Screenshot:
4. Dann klick OKWählen Sie im zweiten Eingabeaufforderungsfeld den Datenbereich aus, den Sie nach Zeilenanzahl teilen möchten (siehe Abbildung):
5. Klicken Sie weiter OK Geben Sie im dritten Eingabeaufforderungsfeld die Anzahl der Zeilen ein, nach denen Sie teilen möchten (siehe Abbildung):
6. Dann klick OK Klicken Sie auf die Schaltfläche, die Daten wurden basierend auf der Anzahl der Zeilen in mehrere Arbeitsblätter aufgeteilt, siehe Screenshot:
Teilen Sie Daten mit Kutools for Excel nach Zeilenanzahl in mehrere Arbeitsblätter auf
Wenn Sie der Meinung sind, dass der VBA-Code komplex ist, Kutools for Excel bietet eine schnelle und intuitive Lösung, um das Problem der Datenaufteilung effizient zu lösen. Das Daten teilen Die Funktion vereinfacht den Bedienungsprozess und ermöglicht es Benutzern aller Erfahrungsstufen, große Datensätze problemlos in mehrere Arbeitsblätter aufzuteilen, ohne dass tiefgreifende Programmierkenntnisse erforderlich sind, was eine effektive Datenverwaltung erleichtert.
Wenn Sie installiert haben Kutools for ExcelBitte gehen Sie wie folgt vor:
1. Wählen Sie den Datenbereich aus, den Sie aufteilen möchten. Klicken Sie dann auf Kutoolen Plus > Daten teilen, siehe Screenshot:
3. In dem Daten in mehrere Arbeitsblätter aufteilen Dialogbox:
- Auswählen Feste Zeilen für Aufteilen basierend auf Option und geben Sie die Anzahl der Zeilen ein, die Sie für jedes Arbeitsblatt aufteilen möchten.
- Wenn Ihre Daten Überschriften haben und Sie diese in jedes neue geteilte Arbeitsblatt einfügen möchten, überprüfen Sie dies bitte Meine Daten haben Kopfzeilen Möglichkeit. (Tipp: Sie können die Anzahl der Hirtenreihen basierend auf Ihren Daten eingeben.)
- Anschließend können Sie die geteilten Arbeitsblattnamen unter dem angeben Neuer Name der Arbeitsblätter Wählen Sie im Abschnitt die Regeln für Arbeitsblattnamen aus Regeln Dropdown-Liste, können Sie die hinzufügen Vorsilbe or Suffix auch für die Blattnamen.
4. Nachdem Sie die Einstellungen festgelegt haben, klicken Sie auf OKund die ausgewählten Daten wurden alle 5 Zeilen in mehrere Arbeitsblätter einer neuen Arbeitsmappe aufgeteilt. Und die Überschriften werden für jedes neue Arbeitsblatt eingefügt. Siehe Screenshot:
Weitere Artikel:
- Teilen Sie Daten basierend auf der Spalte in mehrere Arbeitsblätter auf
- Angenommen, Sie haben ein Arbeitsblatt mit riesigen Datenzeilen und müssen die Daten nun basierend auf der Spalte „Name“ in mehrere Arbeitsblätter aufteilen (siehe folgenden Screenshot), und die Namen werden zufällig eingegeben. Vielleicht können Sie sie zuerst sortieren und sie dann einzeln kopieren und in andere neue Arbeitsblätter einfügen. Das wiederholte Kopieren und Einfügen erfordert jedoch Geduld. Heute werde ich über einige schnelle Tricks sprechen, um diese Aufgabe zu lösen.
- Kombinieren Sie doppelte Zeilen und summieren Sie die Werte in Excel
- In Excel kommt es häufig vor, dass ein Datensatz doppelte Einträge enthält. Häufig stehen Sie vor einer Reihe von Daten, bei denen die größte Herausforderung darin besteht, diese doppelten Zeilen effizient zu kombinieren und gleichzeitig die Werte in einer entsprechenden Spalte zusammenzufassen, wie im folgenden Screenshot gezeigt. In diesem Zusammenhang befassen wir uns mit mehreren praktischen Methoden, die Ihnen dabei helfen können, doppelte Daten zu konsolidieren und die zugehörigen Werte zu aggregieren und so sowohl die Klarheit als auch den Nutzen Ihrer Excel-Arbeitsmappen zu verbessern.
- Führen Sie zwei oder mehr Tabellen basierend auf Schlüsselspalten zu einer zusammen
- Angenommen, Sie haben drei Tabellen in einer Arbeitsmappe. Jetzt möchten Sie diese Tabellen basierend auf den entsprechenden Schlüsselspalten zu einer Tabelle zusammenführen, um das Ergebnis wie im folgenden Screenshot zu erhalten. Dies mag für die meisten von uns eine mühsame Aufgabe sein, aber bitte machen Sie sich keine Sorgen, in diesem Artikel werde ich einige Methoden zur Lösung dieses Problems vorstellen.
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!