Skip to main content

Hoe rijen dupliceren op basis van celwaarde in een kolom?

Author: Xiaoyang Last Modified: 2025-07-21

Bij het werken met Excel-gegevenstabellen moet u soms hele rijen dupliceren op basis van een waarde in een specifieke kolom. Stel bijvoorbeeld dat u een tabel heeft waarin kolom D een getal aangeeft, en uw doel is om elke rij even vaak te kopiëren of invoegen als de waarde in de corresponderende cel in kolom D. Dit kan handig zijn voor het uitbreiden van gegevens, het voorbereiden van datasets voor testdoeleinden, het simuleren van inventaris of het genereren van herhaalde orderregels. Het efficiënt bereiken hiervan zonder handmatige herhaling helpt de integriteit van de gegevens behouden en versnelt de workflow aanzienlijk, vooral bij grotere tabellen.

Screenshot showing data table with numbers in column D before duplicating rows based on values Arrow Screenshot showing data table after duplicating rows based on column D values in Excel

Rijen meerdere keren dupliceren op basis van celwaarden met VBA-code

Kopieer en voeg rijen in op basis van een gespecificeerd aantal keer met een handig hulpmiddel - Kutools voor Excel

Rijen dupliceren via Power Query-transformatie


Rijen meerdere keren dupliceren op basis van celwaarden met VBA-code

Als u snel duplicaten moet maken van hele rijen op basis van waarden in een specifieke kolom (bijvoorbeeld in kolom D), biedt VBA een directe en efficiënte oplossing. Deze aanpak is vooral waardevol bij het verwerken van grote datasets, omdat het het proces automatiseert en helpt om nauwkeurigheid te garanderen. Het werken met VBA vereist echter enige basiskennis van het tabblad Ontwikkelaar in Excel en een begrip van hoe u macro's moet uitvoeren. Het grootste voordeel is de flexibiliteit – de code kan worden aangepast om te passen bij verschillende bereiken of doelkolommen. Aan de andere kant, als u niet bekend bent met VBA of als beveiligingsbeleid macro's blokkeert in uw omgeving, overweeg dan een van de alternatieve oplossingen hieronder.

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-code: Rijen meerdere keren dupliceren op basis van celwaarde:

Sub CopyData()
'Updateby Extendoffice
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren. De hele rijen zullen meerdere keren worden gedupliceerd op basis van de celwaarde in kolom D, overeenkomstig uw vereisten.

Opmerking: In de bovenstaande code staat de letter A voor de eerste kolom van uw geselecteerde gegevensbereik, en D is de kolomletter die wordt gebruikt voor het aantal duplicatie. Pas deze letters zo nodig aan om ze te laten overeenkomen met uw eigen werkblad. Voordat u macro's uitvoert, vergeet dan niet om uw werkboek te back-uppen, omdat macrobewerkingen niet ongedaan kunnen worden gemaakt. Als er een foutmelding verschijnt, controleer dan of uw geselecteerde gegevensbereik en doelkolommen consistent zijn.

Kopieer en voeg rijen in op basis van een gespecificeerd aantal keer met een handig hulpmiddel - Kutools voor Excel

Als u een methode zonder het gebruik van code prefereert, of als u een gebruiksvriendelijke interface wilt om batch-duplicatie te beheren, biedt Kutools voor Excel een praktische oplossing. De functie 'Rijen/Kolommen dupliceren op basis van celwaarde' stelt u in staat om rijen snel te kopiëren en in te voegen volgens het aantal dat is opgegeven in de relevante cellen. Dit is ideaal voor personen die regelmatig dergelijke herhalende rijbewerkingen uitvoeren en een meer visuele, aanpasbare procedure nodig hebben. Kutools behoudt de lay-out en opmaak van de originele tabel tijdens het dupliceren, wat het risico op onbedoelde fouten vermindert. Deze methode werkt soepel ongeacht uw VBA-ervaring en verbetert de efficiëntie aanzienlijk voor middelgrote tot grote gegevensbereiken.

Kutools voor Excel biedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden vergroot. Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, waardoor gegevensbeheer moeiteloos wordt. Gedetailleerde informatie over Kutools voor Excel...  Gratis proefversie...
  1. Klik op Kutools > Invoegen > Rijen/Kolommen dupliceren op basis van celwaarde om deze functie te activeren;
  2. Kies vervolgens de optie Rijen kopiëren en invoegen en specificeer de cellen van het Invoegbereik en Herhalingstijden apart in het dialoogvenster. Bevestig uw keuzes en klik op OK.

Screenshot of Kutools for Excel Duplicate Rows/Columns feature dialog box


Rijen dupliceren via Power Query-transformatie

Power Query biedt een robuuste, herhaalbare oplossing voor het dupliceren van rijen op basis van een kolomwaarde - ideaal voor grotere tabellen of wanneer u gegevens regelmatig moet vernieuwen. Door dit hulpmiddel te gebruiken, kunt u rijen uitbreiden op basis van numerieke indicatoren zonder formules of code. Deze methode werkt goed voor gebruikers die een visueel uitlegbaar, stapsgewijs proces willen en herhaalbaarheid nodig hebben bij toekomstige gegevensupdates.

1. Voeg uw gegevens toe aan een Excel-tabel (selecteer het bereik en druk op Ctrl+T). Ga naar Gegevens > Van Tabel/Bereik om uw tabel in Power Query te laden.

2. Selecteer in de Power Query-editor het tabblad Kolom toevoegen en klik op Aangepaste kolom.

3. Typ de volgende formule om een lijst te genereren voor elke rij op basis van de waarde in kolom D. ( Opmerking: U moet [D] vervangen door uw echte kolomkop. Bijvoorbeeld, hier selecteer ik de Herhalingstijden en klik op de knop Invoegen om het argument [D] te vervangen.)

List.Repeat({1}, [D])

set options in the Power Query Editor

4. Klik op de knop Uitvouwen naast de nieuwe aangepaste kolom en klik op Uitvouwen naar nieuwe rijen.

Click the Expand button

5. Vervolgens kunt u zien dat de gegevens zijn gedupliceerd op basis van de waarden in kolom D, zie screenshot:

the data has been duplicated based on the values

6. Verwijder indien nodig de hulpkolommen en klik op Sluiten & Laden om de gegevens terug te brengen naar Excel.

Tips: Elke keer dat uw brongegevens veranderen, kunt u eenvoudig de Power Query-uitvoer vernieuwen om de herhaalde rijen automatisch bij te werken. Dit zorgt voor efficiëntie en nauwkeurigheid bij doorlopende of geautomatiseerde gegevensprocessen. Power Query is ingebouwd in Excel 2016 en later, en is beschikbaar als een gratis invoegtoepassing in eerdere versies. Als uw Excel-versie geen Power Query heeft of u geen queries kunt maken, overweeg dan het gebruik van een van de formule- of VBA-oplossingen die hierboven zijn genoemd.

Beste Office-productiviteitstools

🤖 Kutools AI Assistent: Breng een revolutie teweeg in data-analyse Methode: Intelligente uitvoering |Code genereren |Aangepaste formules maken |Gegevens analyseren en grafieken genereren |Kutools-functies gebruiken
Populaire functies: Dubbele waarden markeren, markeren of identificeren | Verwijder lege rijen | Kolommen of cellen samenvoegen zonder gegevensverlies | Afronden ...
Super ZOEKEN: VLookup met meerdere criteria | VLookup met meerdere waarden | Meervoudig-blad opzoeken | Fuzzy Match ...
Geavanceerde keuzelijst: Snel keuzelijst maken | Afhankelijke keuzelijst | Meervoudige selectie keuzelijst ...
Kolombeheer: Specifiek aantal kolommen toevoegen | Kolommen verplaatsen | Zichtbaarheid van verborgen kolommen wisselen | Bereik & kolommen vergelijken ...
Uitgelichte functies: Rasterfocus | Ontwerpweergave | Verbeterde formulebalk | Werkboek- & Werkbladbeheer | AutoTekstbibliotheek | Datumkiezer | Gegevens samenvoegen | Cellen coderen/decoderen | E-mail verzenden per lijst | Superfilter | Speciaal filter (filter cellen met vetgedrukt/cursief/doorhalen...) ...
Top15 toolsets:12 Teksttools (Tekst toevoegen, Specifieke tekens verwijderen, ...) |50+ Grafiek type (Gantt-diagram, ...) |40+ Praktische formules (Leeftijd berekenen op basis van geboortedatum, ...) |19 Invoegtools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...) | 12 Conversietools (Omzetten naar woorden, Valutaconversie, ...) | 7 Samenvoeg- & Opsplitstools (Geavanceerd samenvoegen van rijen, Cellen splitsen, ...) | ... en meer

Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...


Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!