Wie teile ich eine große Tabelle in Excel in mehrere kleine Tabellen auf?
Wenn Sie ein großes Arbeitsblatt haben, das mehrere Spalten und Hunderte oder Tausende von Zeilendaten enthält, möchten Sie diese große Tabelle jetzt basierend auf dem Spaltenwert oder der Anzahl der Zeilen in mehrere kleine Tabellen aufteilen, um die folgenden Ergebnisse zu erhalten. Wie können Sie mit dieser Aufgabe in Excel umgehen?
| Haupttisch | Teilen Sie die Tabelle nach Spaltenwert in mehrere Tabellen auf | Teilen Sie die Tabelle nach Zeilenanzahl in mehrere Tabellen auf | |
 |
 |
 |
 |
Teilen Sie eine große Tabelle basierend auf dem Spaltenwert mit VBA-Code in mehrere Tabellen auf
Teilen Sie eine große Tabelle basierend auf dem Spaltenwert mit VBA-Code in mehrere Tabellen auf
Um diese große Tabelle basierend auf einem bestimmten Spaltenwert in mehrere Tabellen aufzuteilen, kann Ihnen der folgende VBA-Code einen Gefallen tun. Bitte machen Sie Folgendes:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Teilen Sie eine große Tabelle nach Schlüsselspalten in mehrere Tabellen auf:
Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub
3. Drücken Sie nach dem Einfügen des Codes F5 Wählen Sie die Kopfzeile aus Ihren Daten aus, siehe Abbildung:
4. Dann klick OKWenn ein weiteres Dialogfeld angezeigt wird, wählen Sie die Spaltendaten aus, auf die Sie die Tabelle aufteilen möchten (siehe Abbildung):
5. Klicken Sie OKDiese große Tabelle wurde durch den Spaltenwert, der sich hinter dem Masterblatt befindet, in mehrere Arbeitsblätter aufgeteilt. Und die neuen Arbeitsblätter werden mit dem Spaltenwert benannt. Siehe Screenshot:
Teilen Sie eine große Tabelle basierend auf der spezifischen Anzahl von Zeilen mit VBA-Code in mehrere Tabellen auf
Wenn Sie die Tabelle basierend auf der Anzahl der Zeilen in mehrere Tabellen aufteilen müssen, kann Ihnen der folgende VBA-Code helfen.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Teilen Sie eine große Tabelle nach Anzahl der Zeilen in mehrere Tabellen 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. Und dann 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 Schaltfläche, wurde die Master-Tabelle basierend auf der Anzahl der Zeilen in mehrere Arbeitsblätter aufgeteilt, wie im folgenden Screenshot gezeigt:
Teilen Sie eine große Tabelle basierend auf dem Spaltenwert oder der Anzahl der Zeilen mit einer erstaunlichen Funktion in mehrere Tabellen auf
Möglicherweise sind die oben genannten Codes für die meisten Benutzer schwierig. Hier werde ich eine erstaunliche Funktion vorstellen.Daten teilen of Kutools for Excel. Mit diesem Dienstprogramm können Sie eine große Tabelle schnell und einfach nach Schlüsselspalten oder Anzahl der Zeilen in mehrere Tabellen aufteilen.
Tipps:Um dies anzuwenden Daten teilen Funktion sollten Sie zunächst die herunterladen Kutools for Excelund wenden Sie die Funktion dann schnell und einfach an.
Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:
1. Wählen Sie den Datenbereich aus, den Sie teilen möchten, und klicken Sie dann auf Kutoolen Plus > Daten teilen, siehe Screenshot:
2. In dem Daten in mehrere Arbeitsblätter aufteilen Geben Sie im Dialogfeld die Einstellungen an, die Sie benötigen:
(1.) Wählen Sie Spezifische Spalte or Feste Zeilen von dem Aufteilen basierend auf Abschnitt nach Bedarf;
(2.) Geben Sie den neuen Arbeitsblattnamen aus dem an Regeln Dropdown-Liste, können Sie die hinzufügen Vorsilbe or Suffix auch zu den Blattnamen.
3. Dann klick Ok Klicken Sie auf die Schaltfläche, und jetzt wurde die große Tabelle in einer neuen Arbeitsmappe in mehrere kleine Tabellen aufgeteilt. Siehe Screenshots:
| Teilen Sie die Tabelle nach Spaltenwert in mehrere Tabellen auf | Teilen Sie die Tabelle nach Zeilenanzahl in mehrere Tabellen auf |
 |
 |
Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!
Weitere relative Artikel:
- Teilen Sie eine Arbeitsmappe, um Excel-Dateien in Excel zu trennen
- Möglicherweise müssen Sie eine große Arbeitsmappe aufteilen, um Excel-Dateien zu trennen, und jedes Arbeitsblatt der Arbeitsmappe als einzelne Excel-Datei speichern. Sie können beispielsweise eine Arbeitsmappe in mehrere einzelne Excel-Dateien aufteilen und dann jede Datei an eine andere Person senden, um sie zu verarbeiten. Auf diese Weise können Sie bestimmte Personen dazu bringen, mit bestimmten Daten umzugehen, und Ihre Daten schützen. In diesem Artikel werden Möglichkeiten zum Aufteilen einer großen Arbeitsmappe in separate Excel-Dateien basierend auf jedem Arbeitsblatt vorgestellt.
- Teilen Sie den vollständigen Namen in Vor- und Nachnamen in Excel auf
- Angenommen, Sie haben eine Namensliste, wie der erste Screenshot in einer Spalte unten zeigt, und Sie müssen den vollständigen Namen in die Spalte Vorname ， Spalte zweiter Name und Spalte Nachname aufteilen, wie im folgenden Screenshot gezeigt. Hier sind einige knifflige Methoden, mit denen Sie dieses Problem lösen können.
- Teilen Sie eine lange Spalte in Excel in mehrere Spalten auf
- Wenn Sie lange Spaltendaten in Excel haben, die beim Anzeigen problematisch sind. Wenn Sie jetzt eine so lange Liste in Excel in mehrere Spalten aufteilen können, wird die Anzeige bequemer.
- Teilen Sie Wort oder Zahl in Excel in separate Zellen
- Wenn Sie eine Liste mit Zahlen oder Wörtern in einem Arbeitsblatt haben und nun den Zelleninhalt in Buchstaben auf verschiedenen Zellen aufteilen müssen (siehe Abbildung unten), wie können Sie mit diesem Job in Excel umgehen?
- Teilen Sie eine lange Liste in Excel in gleiche Gruppen auf
- Wenn Sie eine lange Liste von Daten haben, die wie im folgenden Screenshot gezeigt in mehrere gleiche Gruppen aufgeteilt werden müssen, wie können Sie diese Aufgabe in Excel schnell und einfach erledigen?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen und Speichern von Daten; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen und Summe / Durchschnitt... 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; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Lieblingsformeln und schnell einfügen, Bereiche, Diagramme und Bilder; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Pivot-Tabellengruppierung nach Wochennummer, Wochentag und mehr ... Entsperrte, gesperrte Zellen anzeigen durch verschiedene Farben; Markieren Sie Zellen mit Formel / Name...
- 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!
