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 eenvoudig meerdere keren in op basis van een specifiek nummer
Normaal gesproken is er geen goede methode om rijen meerdere keren te kopiëren en in te voegen, behalve handmatig kopiëren en invoegen. Maar met Kutools for Excel's Dubbele rijen / kolommen op basis van celwaarde functie, kunt u dit probleem gemakkelijk oplossen. Klik om Kutools voor Excel te downloaden!
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. Download en probeer nu gratis!
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:
Note: In de bovenstaande code, de A geeft aan dat het gegevensbereik wordt gestart bij kolom A, als uw gegevens beginnen bij kolom K, verander alsjeblieft A naar K als uw behoefte.
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.
Tips:Om dit toe te passen Dubbele rijen / kolommen op basis van celwaarde -functie, ten eerste moet u de Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.
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 Kutools voor Excel en nu gratis uit te proberen!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!