Hoe maakt u in Excel een nieuw blad voor elke rij?
Bij gegevensbeheer of rapportagetaken moet u soms elk record uit een tabel naar een afzonderlijk werkblad verplaatsen. Stel dat u bijvoorbeeld een lijst met studentgegevens in Excel beheert, waarbij elke rij informatie bevat over een andere student: dan wilt u wellicht voor elke student automatisch een eigen werkblad genereren met hun specifieke gegevens. U kunt ook eenvoudigweg elke rij splitsen—ongeacht de inhoud—zodat elk record op een nieuw werkblad terechtkomt. Handmatig nieuwe bladen aanmaken en gegevens kopiëren is echter tijdrovend en foutgevoelig, vooral bij grote datasets. Door dit proces te automatiseren bespaart u aanzienlijk tijd én vermindert u de kans op fouten. Deze handleiding leidt u stap voor stap door twee praktische oplossingen om voor elke rij in Excel een nieuw werkblad te maken, en legt de voor- en nadelen van elke methode uit—zodat u de beste aanpak voor uw situatie kunt kiezen.
Maak nieuwe bladen voor elke rij met VBA-code
Maak nieuwe bladen voor elke rij met de Gegevens opsplitsen-functie van Kutools voor Excel
Maak nieuwe bladen voor elke rij met VBA-code
Het gebruik van VBA (Visual Basic for Applications) is een krachtige manier om omslachtige en repetitieve Excel-taken te automatiseren. Met VBA kunt u razendsnel een nieuw werkblad maken voor elke rij in uw gegevens — ofwel door rijen te groeperen op basis van een kolom (bijvoorbeeld studentnaam), ofwel door voor elke afzonderlijke rij een apart werkblad aan te maken, ongeacht de inhoud. Deze methode is ideaal voor gebruikers die vertrouwd zijn met de VBA-editor en een hoogst aanpasbare oplossing waarderen. Houd er echter rekening mee dat u code moet bewerken en uitvoeren, waardoor deze aanpak mogelijk minder geschikt is voor gebruikers zonder VBA-ervaring of zonder toestemming om macro’s uit te voeren in hun werkomgeving.
1. Druk op "Alt" + "F11" om het venster Microsoft Visual Basic for Applications te openen, zodat u toegang krijgt tot VBA-code voor het automatiseren van Excel-bewerkingen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module om een nieuwe codemodule toe te voegen. Kopieer en plak vervolgens de volgende code in het Module-venster.
VBA-code: maak nieuw blad voor elke rij op basis van kolom
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End SubUitleg van parameters en gebruikstips:
- A1:C1 is het koptekstbereik voor uw gegevenstabel. Pas deze verwijzing zo nodig aan, zodat deze overeenkomt met uw werkelijke koptekstgebied.
- De code verzamelt unieke waarden uit de opgegeven kolom (standaard kolom A) en maakt voor elke unieke waarde een apart werkblad aan met de bijbehorende rijen.
- Als uw tabel breder is of op een andere rij begint, past u
xTitleen de celverwijzingen dienovereenkomstig aan. - Als uw werkblad formules bevat die naar andere bladen verwijzen, controleer dan na het splitsen of de verwijzingen nog correct zijn.
3. Druk op de toets F5 of klik op Uitvoeren om de code uit te voeren. Er worden nieuwe werkbladen aangemaakt na alle bestaande bladen in het huidige werkboek, elk genoemd naar de gekozen unieke kolomwaarde. Zie de onderstaande schermafbeelding voor een voorbeeldresultaat:
Als u elke rij eenvoudigweg in een afzonderlijk werkblad wilt splitsen, ongeacht de inhoud van de kolommen, kunt u de volgende alternatieve VBA-code gebruiken—zonder dat u een kolomvoorwaarde hoeft op te geven.
VBA-code: maak direct nieuw blad voor elke rij
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End SubNadat u deze code in de module hebt uitgevoerd, wordt elke rij van het actieve werkblad – inclusief de koptekstrij – gekopieerd naar een nieuw werkblad. Let op: de koptekstrij wordt hierbij ook gedupliceerd. Als u dit wilt voorkomen, dient u de gegenereerde bladen handmatig aan te passen of te verwijderen.
Probleemoplossing en praktische tips:
- Krijgt u een foutmelding zoals „Subscript out of range"? Controleer dan of uw bladnamen geen ongeldige tekens bevatten en of er geen dubbele namen voorkomen.
- Grote datasets kunnen leiden tot een groot aantal werkbladen, waardoor Excel traag kan worden of navigatie omslachtig. Overweeg goed of rij-splitsing echt nodig is bij zeer grote tabellen.
- Maak altijd eerst een back-up van uw gegevens voordat u VBA-code uitvoert, zodat u onbedoeld gegevensverlies voorkomt.
Voordelen: Gratis en zeer aanpasbaar.
Nadelen: Vereist ingeschakelde VBA/macro’s en enige bekendheid met de VBA-editor; risico op codefouten bij complexe of ongebruikelijke gegevens.
Geschikt voor: Gebruikers die flexibiliteit via scripting nodig hebben, en voor eenmalige of onregelmatige taken.
Maak nieuwe bladen voor elke rij met de Gegevens opsplitsen-functie van Kutools voor Excel
Als u liever een eenvoudige, gebruiksvriendelijke aanpak kiest zonder code te schrijven, wordt de Gegevens opsplitsen-functie van Kutools voor Excel sterk aanbevolen. Met deze functie splitst u gegevens in een handomdraai over meerdere nieuwe werkbladen — met slechts een paar klikken. Zo vereenvoudigt u het beheer van uw werkbladen aanzienlijk. Kutools is vooral handig voor gebruikers die regelmatig grote, complexe tabellen verwerken of liever werken met een grafische interface dan met handmatig coderen. Houd er rekening mee dat Kutools een Excel-invoegtoepassing is die u eerst moet installeren.
1. Selecteer de tabel met de gegevens die u wilt splitsen in afzonderlijke werkbladen. Klik vervolgens op het tabblad KUTOOLS PLUS en selecteer Gegevens opsplitsen. Zie de onderstaande schermafbeelding voor duidelijkheid:
2. Kies in het dialoogvenster Gegevens opsplitsen naar meerdere werkbladen de juiste instellingen op basis van uw splitsbehoeften.
A. Om nieuwe bladen te maken op basis van kolomwaarden:
B. Om direct nieuwe bladen te maken voor elke rij:
Na uitvoering wordt er een nieuw werkblad gegenereerd — elk gevuld volgens de instellingen die u heeft geselecteerd.
Nieuwe bladen maken voor elke rij op basis van kolomwaarden:
Nieuw blad maken voor elke rij zonder rekening te houden met kolomwaarden:
Voorzorgsmaatregelen en praktische tips:
- Zorg ervoor dat er geen lege rijen in uw tabel staan voordat u de functie Gegevens opsplitsen gebruikt, aangezien dit kan leiden tot lege werkbladen.
- Controleer de conventies voor bladnamen om dubbele of ongeldige werkbladnamen te voorkomen; Kutools past automatisch aan als zich een naamconflict voordoet.
- Het proces kan een groot aantal werkbladen genereren als uw tabel zeer uitgebreid is, dus overweeg dit goed voordat u doorgaat.
Voordelen: Eenvoudig te gebruiken, zonder coderen; ideaal voor batchverwerking en terugkerende taken.
Nadelen: Vereist dat de Kutools-invoegtoepassing is geïnstalleerd.
Geschikt voor: Excel-gebruikers van alle niveaus, vooral zij die regelmatig met repetitieve gegevenssegmentatie werken.
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
Demo: Maak nieuwe bladen voor elke rij met de Gegevens opsplitsen-functie van Kutools voor 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