Hoe kopieer en voeg je een rij meerdere keren in of dupliceer je de rij x keer in Excel?

In je dagelijkse werk, heb je ooit geprobeerd om een rij of elke rij te kopiëren en vervolgens meerdere keren onder de huidige datarij in een werkblad in te voegen? Bijvoorbeeld, ik heb een bereik van cellen, nu wil ik elke rij kopiëren en ze 3 keer in de volgende rij plakken zoals in de volgende schermafbeelding te zien is. Hoe zou je deze taak in Excel kunnen uitvoeren?

• Kopieer en voeg een specifieke rij meerdere keren in met VBA-code
• Kopieer en voeg elke rij meerdere keren in met VBA-code
• Kopieer en voeg elke rij meerdere keren in op basis van een specifiek aantal met een geweldige functie

Kopieer en voeg een specifieke rij meerdere keren in met VBA-code

Als je slechts één specifieke rij x keer wilt dupliceren, kan de volgende VBA-code je helpen. Doe het volgende:

1. Specificeer een rij die je meerdere keren wilt kopiëren en invoegen, en houd dan de toetsen ALT + F11 ingedrukt, waarna het venster Microsoft Visual Basic for Applications wordt geopend.

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

VBA-code: Dupliceer één specifieke rij meerdere keren:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. Nadat je de code hebt geplakt, druk dan op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster waarin je wordt gevraagd om het aantal keren in te voeren dat je wilt dupliceren, zie onderstaande schermafbeelding:

4. Klik dan op de knop OK, en drie nieuwe gekopieerde rijen zijn ingevoegd onder de geselecteerde rij, zie onderstaande schermafbeelding:

Kopieer en voeg elke rij meerdere keren in met VBA-code

Om elke rij meerdere keren in een bereik te dupliceren, kun je de volgende VBA-code gebruiken. Doe het volgende:

1. Houd de toetsen ALT + F11 ingedrukt, waarna het venster Microsoft Visual Basic for Applications wordt geopend.

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

VBA-code: Dupliceer elke rij meerdere keren:

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster waarin je wordt gevraagd om het aantal keren in te voeren dat je elke record wilt dupliceren, zie onderstaande schermafbeelding:

4. Klik dan op OK, en elke rij is gekopieerd en 3 keer onder de actieve rijen ingevoegd, zie onderstaande schermafbeelding:

Kopieer en voeg elke rij meerdere keren in op basis van een specifiek aantal met een geweldige functie

Misschien ben je niet bekend met de VBA-code of maak je je zorgen dat de code je gegevens zal beschadigen. Hier introduceer ik een nuttige functie, Rijen/Kolommen kopiëren of invoegen op basis van celwaarde van Kutools voor Excel. Met dit hulpmiddel kun je snel rijen kopiëren en invoegen op basis van het door jou gespecificeerde aantal.

Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:

1. Voer de herhaalaantallen in die je wilt gebruiken om rijen te dupliceren in een lijst met cellen naast je gegevens, zie onderstaande schermafbeelding:

2. Klik op Kutools > Invoegen > Rijen/Kolommen kopiëren of invoegen op basis van celwaarde, zie onderstaande schermafbeelding:

3. Selecteer in het dialoogvenster Rijen en kolommen kopiëren en invoegen de optie Rijen kopiëren en invoegen in de sectie Type, selecteer vervolgens het gegevensbereik dat je wilt dupliceren, en specificeer dan het aantal keren om de rijen te dupliceren, zie onderstaande schermafbeelding:

4. Klik dan op de knop Oké of Toepassen, en je krijgt het volgende resultaat zoals je nodig hebt:

Klik hier om Kutools voor Excel te downloaden en probeer het nu gratis!