Hoe rij meerdere keren kopiëren en invoegen of de rij x keer dupliceren in Excel?

Heeft u in uw dagelijkse werk ooit geprobeerd een rij of elke rij te kopiëren en vervolgens meerdere keren onder de huidige gegevensrij in een werkblad in te voegen? Ik heb bijvoorbeeld een celbereik, nu wil ik elke rij kopiëren en ze 3 keer in de volgende rij plakken zoals in het volgende screenshot. Hoe kon je deze klus in Excel afhandelen?

• 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 nummer met een geweldige functie

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

Als u slechts één specifieke rij x keer wilt dupliceren, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Geef een rij op die u meerdere keren wilt kopiëren en invoegen, en houd vervolgens de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

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

VBA-code: dupliceer een 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. Druk na het plakken van de code op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het aantal keren dat u wilt dupliceren in te voeren, zie screenshot:

4. Dan klikken OK knop, en drie nieuwe gekopieerde rijen zijn ingevoegd onder de geselecteerde rij, zie screenshot:

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

Om elke rij meerdere keren in een bereik te dupliceren, kunt u de volgende VBA-code toepassen, doe dit als volgt:

1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

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

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. En druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het aantal keren in te voeren dat u voor elke record wilt dupliceren, zie screenshot:

4. Dan klikken OK, en elke rij is gekopieerd en 3 keer onder de actieve ingevoegd, zie screenshot:

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

Misschien bent u niet bekend met de VBA-code, of maakt u zich zorgen dat de code uw gegevens crasht. Hier zal ik een handige functie introduceren, Kutools for Excel's Dubbele rijen / kolommen op basis van celwaardeMet dit hulpprogramma kunt u snel de rijen kopiëren en invoegen op basis van het door u opgegeven aantal.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Voer de herhalingsnummers in die u rijen wilt dupliceren in een lijst met cellen naast uw gegevens, zie screenshot:

2. Klikken Kutools > Invoegen > Dubbele rijen / kolommen op basis van celwaarde, zie screenshot:

3. In de Kopieer en voeg rijen en kolommen in dialoogvenster, selecteer Kopieer en voeg rijen in optie in het Type sectie, selecteer vervolgens het gegevensbereik dat u wilt dupliceren en specificeer vervolgens de herhalingstijd om de rijen te dupliceren, zie screenshot:

4. Dan klikken Ok or Solliciteer knop, krijg je het volgende resultaat als je nodig hebt:

Klik om te downloaden Kutools for Excel en gratis proef Nu!

---

De beste tools voor kantoorproductiviteit

Kutools for Excel Lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!

Lees verder... Gratis download... Aankoop...