Gegevens opsplitsen in meerdere werkbladen op basis van rijentelling in Excel

Het efficiënt verdelen van een groot gegevensbereik in meerdere Excel-werkbladen op basis van een specifieke rijtelling kan de gegevensbeheer stroomlijnen. Bijvoorbeeld, het splitsen van een dataset elke 5 rijen in meerdere werkbladen kan het overzichtelijker en georganiseerder maken. Deze handleiding biedt twee praktische methoden om deze taak snel en gemakkelijk uit te voeren.

Gegevens opsplitsen in meerdere werkbladen op basis van rijentelling met VBA-code

Gegevens opsplitsen in meerdere werkbladen op basis van rijentelling met Kutools voor Excel

Gegevens opsplitsen in meerdere werkbladen op basis van rijentelling met VBA-code

De volgende VBA-code kan u helpen bij het opsplitsen van de rijen in meerdere werkbladen op basis van de rijentelling, doe het als volgt:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA: Gegevens opsplitsen in werkbladen op basis van rijentelling 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 vervolgens op de F5-toets, selecteer in het pop-up dialoogvenster de koptekstrij, zie screenshot:

4. Klik vervolgens op OK, en selecteer in het tweede venster het gegevensbereik dat u wilt opsplitsen op basis van de rijentelling, zie screenshot:

5. Ga door met klikken op de knop OK, voer in het derde venster het aantal rijen in waarop u wilt splitsen, zie screenshot:

6. Klik vervolgens op de knop OK, de gegevens zijn nu gesplitst in meerdere werkbladen op basis van het aantal rijen, zie screenshot:

Gegevens opsplitsen in meerdere werkbladen op basis van rijentelling met Kutools voor Excel

Als u vindt dat de VBA-code complex is, biedt Kutools voor Excel een snelle en intuïtieve oplossing om het probleem van het splitsen van gegevens efficiënt aan te pakken. Deze functie Gegevens Opsplitsen vereenvoudigt het bewerkingsproces, waardoor gebruikers van elk vaardigheidsniveau grote datasets gemakkelijk kunnen verdelen in meerdere werkbladen zonder diepgaande programmeerkennis, wat effectief gegevensbeheer mogelijk maakt.

Als u Kutools voor Excel heeft geïnstalleerd, doe dan het volgende:

1. Selecteer het bereik van gegevens dat u wilt splitsen. Klik vervolgens op Kutools Plus > Gegevens Opsplitsen, zie screenshot:

3. In het dialoogvenster Gegevens Opsplitsen in Meerdere Werkbladen:

• Selecteer Vaste waarde van de optie Opsplitsingsbasis, en voer het aantal rijen in dat u wilt splitsen voor elk werkblad.
• Als uw gegevens koppen bevatten en u deze wilt invoegen in elk nieuw gesplitst werkblad, vink dan de optie Mijn gegevens bevatten koppen aan. (Tip: u kunt het aantal koptekstrijken invoeren op basis van uw gegevens.)
• U kunt vervolgens de namen van de gesplitste werkbladen specificeren, onder de Naam nieuwe werkbladen sectie, selecteer de regels voor de werkbladnamen uit de vervolgkeuzelijst Regels, u kunt ook een Voorvoegsel of Achtervoegsel toevoegen aan de bladnamen.

4. Nadat u de instellingen hebt gespecificeerd, klik dan op OK, en de geselecteerde gegevens zijn gesplitst in meerdere werkbladen van een nieuw werkboek per elke 5 rijen. En de koppen zijn ingevoegd voor elk nieuw werkblad. Zie screenshot:

Gerelateerde artikelen: