Hoe dubbele rijen verwijderen op basis van de celwaarde in een kolom?
Bij het werken met Excel-gegevenstabellen moet u soms een hele rij dupliceren op basis van een waarde in een opgegeven kolom. Stel bijvoorbeeld dat u een tabel hebt waarin kolom D een getal bevat, en uw doel is om elke rij precies zoveel keer te kopiëren of in te voegen als de waarde in de overeenkomstige cel in kolom D aangeeft. Dit is handig voor het uitbreiden van gegevens, het voorbereiden van datasets voor testdoeleinden, het simuleren van voorraadniveaus of het genereren van herhaalde orderregels. Dit efficiënt uitvoeren — zonder handmatige herhaling — behoudt de gegevensintegriteit en versnelt uw workflow aanzienlijk, vooral bij grotere tabellen.
 |  |  |
Dubbele rij meerdere keren op basis van celwaarden met VBA-code
Dubbele rij via Power Query-transformatie
Dubbele rij meerdere keren op basis van celwaarden met VBA-code
Als u snel duplicaten van een gehele rij wilt maken op basis van de waarden in een opgegeven kolom (bijvoorbeeld kolom D), biedt VBA een directe en efficiënte oplossing. Deze aanpak is vooral waardevol bij het verwerken van grote datasets, omdat het proces volledig wordt geautomatiseerd en de nauwkeurigheid gegarandeerd blijft. Het werken met VBA vereist echter enige basiskennis van het tabblad Ontwikkelaars in Excel en begrip van het uitvoeren van macro’s. Het grote voordeel? De flexibiliteit: u kunt de code eenvoudig aanpassen aan verschillende bereiken of doelkolommen. Bent u niet vertrouwd met VBA, of blokkeert het beveiligingsbeleid in uw omgeving macro’s? Overweeg dan één 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 Module-venster.
VBA-code: Dubbele rij meerdere keren 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 toets F5 om deze code uit te voeren. De gehele rij wordt meerdere keren gedupliceerd op basis van de celwaarde in kolom D, conform uw vereisten.
Rijen kopiëren en invoegen op basis van een opgegeven aantal keren met een handige tool – Kutools voor Excel
Als u liever een methode zonder code gebruikt of een gebruiksvriendelijke interface wilt voor batchduplicatie, biedt Kutools voor Excel een praktische oplossing. Met de functie Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens kunt u razendsnel rijen dupliceren door ze te kopiëren en in te voegen op basis van het getal in de relevante cellen. Ideaal voor gebruikers die regelmatig dergelijke herhalende rijbewerkingen uitvoeren en een visueel, aanpasbaar proces nodig hebben! Kutools behoudt tijdens het dupliceren de lay-out en opmaak van de oorspronkelijke tabel, waardoor het risico op onbedoelde fouten aanzienlijk wordt verkleind. Deze methode werkt soepel, ongeacht uw ervaring met VBA, en verhoogt de efficiëntie aanzienlijk voor middelgrote tot grote bereiken.
- Klik op Kutools>Invoegen>Dubbele rij/Kolommen op basis van celwaardeom deze functie in te schakelen;
- Kies vervolgens de optie Rijen kopiëren en invoegen en geef in het dialoogvenster de cellen van het Generatiebereik en de Herhalingstijden afzonderlijk op. Bevestig uw keuzes en klik op OK.
Dubbele rij via Power Query-transformatie
Power Query biedt een robuuste, herhaalbare oplossing om rijen te dupliceren op basis van een kolomwaarde – perfect voor grotere tabellen of wanneer u uw gegevens regelmatig vernieuwt. Met deze tool breidt u rijen eenvoudig uit aan de hand van numerieke indicatoren, zonder formules of code. Deze methode is ideaal voor gebruikers die een visueel duidelijk, stapsgewijs proces waarderen en herhaalbaarheid nodig hebben bij toekomstige gegevensupdates.
1. Zet uw gegevens in 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 Power Query Editor het tabblad Kolom toevoegen en klik op Aangepaste kolom.
3. Typ de volgende formule om voor elke rij een lijst te genereren op basis van de waarde in kolom D. ()Opmerking: vervang [D] door uw daadwerkelijke kolomkop. In dit voorbeeld selecteer ik de kolom Aantal keren dupliceren en klik op de knop Invoegen om het argument [D] te vervangen.)
List.Repeat({1}, [D])
4. Klik op de knop Uitvouwen naast de nieuwe aangepaste kolom en klik vervolgens op Uitvouwen naar nieuwe rijen.
5. U ziet nu dat de gegevens zijn gedupliceerd op basis van de waarden in kolom D. Zie screenshot:
6. Verwijder indien nodig de hulpkolommen en klik op Sluiten en laden om de gegevens terug te brengen naar 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