Hoe splitst u een grote tabel in Excel op in meerdere kleinere tabellen?
Als u een grote Excel-tabel hebt met meerdere kolommen en honderden of duizenden rijen, wilt u deze mogelijk splitsen in kleinere, beter beheersbare tabellen. Bijvoorbeeld om de gegevens te scheiden op basis van Specificeer kolom-waarden of om ze op te delen in stukken van een vast aantal rijen. Deze handleiding biedt stapsgewijze methoden om deze taak efficiënt uit te voeren.
| Hoofdtabel | Tabel splitsen in meerdere tabellen op basis van kolomwaarde | Tabel splitsen in meerdere tabellen op basis van aantal rijen | |
 |  |  |  |
Een grote tabel splitsen in meerdere tabellen op basis van kolomwaarde met VBA-code
Een grote tabel splitsen in meerdere tabellen op basis van een specifiek aantal rijen met VBA-code
Een grote tabel splitsen in meerdere tabellen op basis van kolomwaarde met VBA-code
Om deze grote tabel te splitsen in meerdere tabellen op basis van een specifieke kolomwaarde, helpt de volgende VBA-code u verder. Volg deze stappen:
1. Druk op "ALT" + "F11" om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende code in het Module-venster.
VBA-code: Een grote tabel splitsen in meerdere tabellen op basis van Sleutelkolom:
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. Nadat u de code hebt geplakt, drukt u op F5 om deze uit te voeren. Er verschijnt een dialoogvenster waarin u de koptekstrij uit uw gegevens selecteert – zie schermafbeelding:
4. Klik vervolgens op „OK". Er verschijnt een nieuw dialoogvenster waarin u de kolomgegevens selecteert waarop u de tabel wilt splitsen; zie de schermafbeelding:
5. Klik op 'OK'. De grote tabel is nu gesplitst in meerdere werkbladen op basis van de kolomwaarden, waarbij elk nieuw werkblad direct na het hoofdblad wordt geplaatst en vernoemd is naar de bijbehorende kolomwaarde. Zie schermafbeelding:
Een grote tabel splitsen in meerdere tabellen op basis van een specifiek aantal rijen met VBA-code
Wilt u de tabel splitsen in meerdere tabellen op basis van het aantal rijen? Dan helpt de volgende VBA-code u daarbij.
1. Druk op "ALT" + "F11" om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op 'Invoegen' > 'Module' en plak de volgende code in het Module-venster.
VBA-code: Een grote tabel splitsen in meerdere tabellen op basis van aantal rijen:
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. Druk daarna op de toets "F5". Selecteer in het verschijnende dialoogvenster de koptekstrij; zie de schermafbeelding:
4. Klik daarna op „OK" en selecteer in het tweede dialoogvenster het gegevensbereik waarop u wilt splitsen op basis van het aantal rijen; zie schermafbeelding:
5. Klik daarna opnieuw op de knop „OK" en voer in het derde dialoogvenster het aantal rijen in waarop u wilt splitsen; zie schermafbeelding:
6. Klik daarna op de knop **OK**. De hoofdtabel is nu, zoals in de onderstaande schermafbeelding te zien is, gesplitst in meerdere werkbladen op basis van het aantal rijen.
Een grote tabel splitsen in meerdere tabellen op basis van kolomwaarde of aantal rijen met Kutools voor Excel
De bovenstaande codes kunnen voor de meeste gebruikers lastig zijn. Daarom presenteren we hier een geweldige functie: **‘Gegevens opsplitsen’** van **Kutools voor Excel**. Met dit handige hulpmiddel splitst u een grote tabel razendsnel en eenvoudig in meerdere tabellen op basis van een sleutelkolom of een vast aantal rijen.
1. Selecteer het gegevensbereik dat u wilt splitsen en klik vervolgens op **Kutools Plus** > **Gegevens opsplitsen**; zie de schermafbeelding:
2. Geef in het dialoogvenster 'Gegevens opsplitsen naar meerdere werkbladen' de gewenste instellingen op:
(1.) Selecteer in de sectie „Opsplitsingsbasis" naar behoefte "Specificeer kolom" of „Vaste waarde";
(2.) Geef in de vervolgkeuzelijst 'Regels' de naam op voor de aangemaakte werkbladen. U kunt optioneel een voorvoegsel of achtervoegsel toevoegen aan de bladnamen.
3. Klik daarna op de knop „OK". De grote tabel is nu opgesplitst in meerdere kleinere tabellen op een nieuw werkblad. Zie de schermafbeeldingen:
| Tabel splitsen in meerdere tabellen op basis van kolomwaarde | Tabel splitsen in meerdere tabellen op basis van aantal rijen |
 |  |
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Meer gerelateerde artikelen:
- Werkmap splitsen naar afzonderlijke Excel-bestanden in Excel
- Mogelijk moet u een grote werkmap splitsen in afzonderlijke Excel-bestanden, waarbij elk werkblad van de werkmap wordt opgeslagen als een afzonderlijk Excel-bestand. U kunt bijvoorbeeld een werkmap splitsen in meerdere afzonderlijke Excel-bestanden en vervolgens elk bestand aan een andere persoon toewijzen om het te verwerken. Op deze manier kunnen specifieke personen bepaalde gegevens verwerken en blijven uw gegevens veilig. In dit artikel worden methoden beschreven om een grote werkmap te splitsen in afzonderlijke Excel-bestanden op basis van elk werkblad.
- Volledige naam splitsen in eerste en Achternaam in Excel
- Stel dat u een lijst met volledige namen hebt, zoals weergegeven in de eerste schermafbeelding hieronder, in één enkele kolom. U wilt deze namen splitsen in drie aparte kolommen: Voornaam, Tussennaam en Achternaam, zoals te zien is in de tweede schermafbeelding. Hieronder vindt u enkele handige methoden om dit probleem eenvoudig op te lossen.
- Een lange kolom splitsen in meerdere kolommen in Excel
- Als u een lange kolom met gegevens hebt in Excel die moeilijk te overzien is, verbetert het splitsen van die lijst in meerdere kolommen het overzicht aanzienlijk.
- Woorden of getallen splitsen in afzonderlijke cellen in Excel
- Als u een lijst met getallen of woorden in een werkblad hebt en de inhoud van elke cel wilt splitsen in afzonderlijke letters, elk in een eigen cel – zoals te zien is in de schermafbeelding hieronder – hoe voert u die taak dan uit in Excel?
- Een lange lijst splitsen in gelijke groepen in Excel
- Als u een lange lijst met gegevens hebt die u in meerdere gelijke groepen wilt splitsen, zoals in de volgende schermafbeelding is weergegeven, hoe doet u dat dan snel en eenvoudig in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins