Gegevens opsplitsen naar meerdere werkbladen op rijenaantal in Excel
Een grote Gegevensbereik efficiënt verdelen over meerdere Excel-werkbladen op basis van een specifiek rijenaantal kan het beheer van gegevens stroomlijnen. Bijvoorbeeld: het splitsen van een dataset om de 5 rijen over meerdere bladen maakt het overzichtelijker en beter georganiseerd. Deze handleiding biedt twee praktische methoden om deze taak snel en eenvoudig uit te voeren.
Gegevens opsplitsen naar meerdere werkbladen op rijenaantal met VBA-code
Gegevens opsplitsen naar meerdere werkbladen op rijenaantal met Kutools voor Excel
Gegevens opsplitsen naar meerdere werkbladen op rijenaantal met VBA-code
De volgende VBA-code helpt u rijen te splitsen over meerdere werkbladen op basis van het aantal rijen. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het modulevenster.
VBA: Gegevens opsplitsen splitsen in werkbladen op rijenaantal in Excel
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 pop-upvenster de koptekstrij, zie de schermafbeelding:
4. Klik daarna op OK en selecteer in het tweede dialoogvenster het gegevensbereik dat u wilt splitsen op rijenaantal, zie schermafbeelding:
5. Klik nogmaals op de knop OK. Voer in het derde dialoogvenster het aantal rijen in waarmee u wilt splitsen, zie schermafbeelding:
6. Klik daarna op de knop OK. De gegevens zijn nu gesplitst over meerdere werkbladen op basis van het opgegeven aantal rijen, zie schermafbeelding:
Gegevens opsplitsen naar meerdere werkbladen op rijenaantal met Kutools voor Excel
Als u de VBA-code te complex vindt, biedt Kutools voor Excel een snelle en intuïtieve oplossing om het splitsen van gegevens efficiënt aan te pakken. Met de Gegevens opsplitsen-functie wordt het proces vereenvoudigd, zodat gebruikers op elk niveau grote datasets eenvoudig kunnen verdelen over meerdere werkbladen—zonder uitgebreide programmeerkennis. Zo wordt effectief gegevensbeheer kinderspel!
Als u Kutools voor Excelhebt geïnstalleerd, volgt u deze stappen:
1. Selecteer het gegevensbereik dat u wilt splitsen. Klik vervolgens op KUTOOLS PLUS > Gegevens opsplitsen. Zie schermafbeelding:
3. In het dialoogvenster Gegevens opsplitsen naar meerdere werkbladen:
- Selecteer Vaste waarde uit de optie Opsplitsingsbasis en voer het aantal rijen in dat u per werkblad wilt splitsen.
- Als uw gegevens koppen bevatten en u wilt dat deze in elk nieuw gesplitst werkblad worden opgenomen, vink dan de Titels opnemen-optie aan. ()Tip: u kunt het aantal rijen met koppen instellen op basis van uw gegevens.)
- Vervolgens kunt u de splitsregels voor werkbladnaam instellen. Selecteer onder het gedeelte Naam van aangemaakte werkbladen de gewenste regels voor de werkbladnaam uit de Regels-keuzelijst. U kunt ook een Voorvoegsel of Achtervoegsel toevoegen aan de bladnamen.
4. Nadat u de instellingen hebt opgegeven, klikt u op OK. De geselecteerde gegevens zijn nu gesplitst over meerdere werkbladen van een nieuw werkmapbestand, met om de 5 rijen. Bovendien zijn de koppen toegevoegd aan elk nieuw werkblad. Zie schermafbeelding:
Gerelateerde artikelen:
- Gegevens opsplitsen naar meerdere werkbladen op basis van kolom
- Stel dat u een werkblad hebt met enorme hoeveelheden rijen gegevens die u moet splitsen in meerdere werkbladen op basis van de kolom *Naam* (zie onderstaande schermafbeelding), waarbij de namen willekeurig zijn ingevoerd. U zou ze eerst kunnen sorteren en vervolgens één voor één kopiëren en plakken naar nieuwe werkbladen — maar dat kost veel tijd en geduld door het eindeloze herhalen van kopiëren en plakken. Vandaag bespreek ik enkele snelle trucs om deze taak efficiënt aan te pakken.
- Combineer Dubbele rij en som de waarden op in Excel
- In Excel komt het vaak voor dat u te maken krijgt met een dataset met dubbele vermeldingen. Vaak beschikt u dan over een reeks gegevens waarbij de grootste uitdaging is om die dubbele rijen efficiënt samen te voegen, terwijl tegelijkertijd de waarden in een bijbehorende kolom worden opgeteld — zoals in de onderstaande schermafbeelding wordt weergegeven. In dit artikel gaan we dieper in op verschillende praktische methoden om dubbele gegevens te consolideren en hun bijbehorende waarden te aggregeren, zodat zowel de duidelijkheid als het nut van uw Excel-werkboek aanzienlijk toenemen.
- Voeg twee of meer tabellen samen tot één op basis van Sleutelkolom
- Stel dat u drie tabellen hebt in een werkmap en deze wilt samenvoegen tot één tabel op basis van de overeenkomstige sleutelkolom, zoals te zien is in de onderstaande schermafbeelding. Voor veel gebruikers is dit een lastige klus — maar maak u geen zorgen: in dit artikel bespreek ik enkele methoden om dit probleem eenvoudig op te lossen.
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