Hur kopierar och infogar jag rad flera gånger eller duplicerar raden x gånger i Excel?

Har du någonsin försökt kopiera en rad eller varje rad i ditt dagliga arbete och sedan infoga flera gånger under den aktuella dataraden i ett kalkylblad? Till exempel har jag ett antal celler, nu vill jag kopiera varje rad och klistra in dem tre gånger till nästa rad enligt följande skärmdump. Hur kan du hantera det här jobbet i Excel?

• Kopiera och infoga en specifik rad flera gånger med VBA-kod
• Kopiera och sätt in varje rad flera gånger med VBA-kod
• Kopiera och sätt in varje rad flera gånger baserat på ett visst nummer med en fantastisk funktion

Kopiera och infoga en specifik rad flera gånger med VBA-kod

Om du bara vill kopiera en specifik rad x gånger kan följande VBA-kod hjälpa dig, gör så här:

1. Ange en rad som du vill kopiera och infoga flera gånger och håll sedan ned ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Duplicera en specifik rad flera gånger:

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. När du har klistrat in koden, tryck F5 nyckel för att köra den här koden och en snabbruta visas för att påminna dig om att ange antalet gånger som du vill kopiera, se skärmdump:

4. Klicka sedan OK och tre nya kopierade rader har infogats under vald rad, se skärmdump:

Kopiera och sätt in varje rad flera gånger med VBA-kod

För att duplicera varje rad flera gånger i ett intervall kan du använda följande VBA-kod, gör så här:

1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Duplicera varje rad flera gånger:

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. Och tryck sedan på F5 nyckel för att köra den här koden och en snabbruta visas för att påminna dig om att ange antalet gånger som du vill kopiera för varje post, se skärmdump:

4. Klicka sedan OK, och varje rad har kopierats och infogats tre gånger under de aktiva, se skärmdump:

Kopiera och sätt in varje rad flera gånger baserat på ett visst nummer med en fantastisk funktion

Kanske är du inte bekant med VBA-koden, eller oroar dig för att koden kommer att krascha dina data. Här kommer jag att presentera en användbar funktion, Kutools för Excel's Duplicera rader / kolumner baserat på cellvärde, med det här verktyget kan du snabbt kopiera och infoga raderna baserat på det nummer du angav.

När du har installerat Kutools för Excel, gör så här:

1. Ange de upprepande siffrorna som du vill duplicera rader i en lista med celler bredvid dina data, se skärmdump:

2. Klicka Kutools > Insert > Duplicera rader / kolumner baserat på cellvärde, se skärmdump:

3. I Kopiera och infoga rader och kolumner dialogrutan väljer du Kopiera och infoga rader alternativet i Typ markera sedan det dataintervall du vill kopiera och ange sedan upprepningstiden för att duplicera raderna, se skärmdump:

4. Klicka sedan Ok or Ansök -knappen får du följande resultat efter behov:

Klicka för att ladda ner Kutools för Excel och gratis testversion nu!