Přejít k hlavnímu obsahu

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

Autor: Xiaoyang Naposledy změněno: 2024-11-13

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?

původní data šipka vpravo zkopírujte a vložte řádek vícekrát

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:

zadejte, kolikrát chcete duplikovat

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:

konkrétní počet nových zkopírovaných řádků se vloží pod vybraný řádek


Zkopírujte a vložte každý řádek vícekrát na základě konkrétního čísla snadno

Normálně neexistuje dobrá metoda pro vícekrát kopírování a vkládání řádků kromě vyjednávání s ručním kopírováním a vkládáním. Ale s Kutools for Excel's Duplikujte řádky / sloupce na základě hodnoty buňky můžete tento problém snadno vyřešit. Klikněte pro stažení Kutools for Excel!

Kutools for Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 60 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!


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:

zadejte, kolikrát chcete pro každý záznam duplikovat

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

původní data šipka vpravo každý řádek je zkopírován a vložen určitý počet opakování

Pozor: Ve výše uvedeném kódu je A označuje, že rozsah dat začíná ve sloupci A, pokud vaše data začínají ve sloupci K, prosím změňte A na K jako svou potřebu.


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.

Kutools for Excel nabízí více než 300 pokročilých funkcí pro zefektivnění složitých úkolů, zvýšení kreativity a efektivity. Itegarujte se schopnostmi AI, Kutools automatizuje úkoly s přesností, čímž usnadňuje správu dat. Podrobné informace o Kutools for Excel...         Zkušební verze zdarma...

Tip:Použít toto Duplikujte řádky / sloupce na základě hodnoty buňky funkce, za prvé, měli byste si stáhnout Kutools for Excela poté tuto funkci rychle a snadno aplikujte.

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:

Zadejte čísla opakování pro duplikování řádků v seznamu buněk vedle dat

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

klikněte na Duplikovat řádky / sloupce na základě funkce hodnoty buňky kutools

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:

určete možnosti v dialogovém okně

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:

původní data šipka vpravo řádky se opakují o konkrétní číslo

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

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  vzývat Kutools Funkce...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více
Použijte Kutools ve vašem preferovaném jazyce – podporuje angličtinu, španělštinu, němčinu, francouzštinu, čínštinu a více než 40 dalších!

Vylepšete si své excelové dovednosti s Kutools for Excela zažijte efektivitu jako nikdy předtím. Kutools for Excel Nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...


Office Tab Přináší do Office rozhraní s kartami a výrazně vám usnadňuje práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!