Hoe dupliceer ik rijen op basis van de celwaarde in een kolom?

Ik heb bijvoorbeeld een gegevensbereik dat een lijst met getallen in kolom D bevat, en nu wil ik de hele rijen een aantal keer dupliceren op basis van de numerieke waarden in kolom D om het volgende resultaat te krijgen. Hoe kan ik de rijen meerdere keren kopiëren op basis van de celwaarden in Excel?

Dubbele rijen meerdere keren op basis van celwaarden met VBA-code

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

Dubbele rijen meerdere keren op basis van celwaarden met VBA-code

Om de volledige rijen meerdere keren te kopiëren en te dupliceren op basis van de celwaarden, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: dubbele rijen 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 F5 sleutel om deze code uit te voeren, zijn de volledige rijen meerdere keren gedupliceerd op basis van de celwaarde in kolom D zoals je nodig hebt.

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

Als u niet bekend bent met de VBA-code en de parameters in de code niet zelf correct kunt wijzigen. In dit geval de Kutools for Excel's Dupliceer rijen / kolommen op basis van celwaarde functie kan u helpen om rijen meerdere keren te kopiëren en in te voegen op basis van de celwaarden met slechts drie klikken.

1. Klik Kutools > Invoegen > Dubbele rijen/kolommen op basis van celwaarde om deze functie in te schakelen;
2. Kies dan Kopieer en voeg rijen in optie en specificeer de cellen van het Bereik invoegen en Herhaal tijden afzonderlijk in het dialoogvenster.