Jak zkopírovat a vložit řádek vícekrát nebo duplikovat řádek xkrát v aplikaci Excel?

Zkoušeli jste při své každodenní práci zkopírovat řádek nebo každý řádek a poté několikrát vložit pod aktuální datový řádek do listu? Například mám řadu buněk, teď chci zkopírovat každý řádek a vložit je třikrát do dalšího řádku, jak ukazuje následující snímek obrazovky. Jak jste mohli tuto práci zvládnout v aplikaci Excel?

• Zkopírujte a vložte několikrát konkrétní řádek pomocí kódu VBA
• Zkopírujte a vložte každý řádek několikrát pomocí kódu VBA
• Zkopírujte a vložte každý řádek několikrát na základě konkrétního čísla s úžasnou funkcí

Zkopírujte a vložte několikrát konkrétní řádek pomocí kódu VBA

Pokud chcete duplikovat pouze jeden konkrétní řádek xkrát, může vám pomoci následující kód VBA, udělejte to takto:

1. Zadejte řádek, který chcete zkopírovat a vložit několikrát, a poté podržte klávesu ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Duplikujte jeden konkrétní řádek vícekrát:

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. Po vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste zadali počet opakování, které chcete duplikovat, viz screenshot:

4. Pak klikněte na tlačítko OK tlačítko a pod vybraný řádek byly vloženy tři nové zkopírované řádky, viz screenshot:

Zkopírujte a vložte každý řádek několikrát pomocí kódu VBA

Chcete-li duplikovat každý řádek několikrát v určitém rozsahu, můžete použít následující kód VBA, postupujte takto:

1. Podržte ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Duplikujte každý řádek několikrát:

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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene, abyste zadali počet opakování, které chcete duplikovat pro každý záznam, viz screenshot:

4. Pak klikněte na tlačítko OKa každý řádek byl zkopírován a vložen 3krát pod aktivní, viz screenshot:

Zkopírujte a vložte každý řádek několikrát na základě konkrétního čísla s úžasnou funkcí

Možná nejste obeznámeni s kódem VBA, nebo si děláte starosti s tím, že vám kód zhroutí data. Zde představím užitečnou funkci, Kutools for Excel's Duplikujte řádky / sloupce na základě hodnoty buňky, pomocí tohoto nástroje můžete rychle kopírovat a vkládat řádky na základě zadaného čísla.

Po instalaci Kutools for Excel, udělejte prosím toto:

1. Zadejte opakovaná čísla, která chcete duplikovat řádky v seznamu buněk vedle vašich dat, viz screenshot:

2, klikněte Kutools > Vložit > Duplikujte řádky / sloupce na základě hodnoty buňky, viz screenshot:

3. V Zkopírujte a vložte řádky a sloupce dialogové okno vyberte Zkopírujte a vložte řádky možnost v Typ část, poté vyberte rozsah dat, který chcete duplikovat, a poté zadejte čas opakování pro duplikování řádků, viz screenshot:

4. Potom klepněte na tlačítko Ok or Přihláška tlačítko, získáte podle potřeby následující výsledek:

Klikněte pro stažení Kutools for Excel a bezplatnou zkušební verzi hned teď!