Note: The other languages of the website are Google-translated. Back to English
English English

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

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 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 pro Excel's Duplikujte řádky / sloupce na základě hodnoty buňky můžete tento problém snadno vyřešit. Klikněte a stáhněte si Kutools pro Excel!

Kutools pro 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:

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

Poznámka: 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 pro 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.

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

Po instalaci Kutools pro 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 aplikovat tlačítko, získáte podle potřeby následující výsledek:

Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (31)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Úžasné makro - Ušetřilo mi tolik času!
Tento komentář byl moderátorem webu minimalizován
fakt pěkné makro kamaráde!
Tento komentář byl moderátorem webu minimalizován
chci náhodně generovat duplicitní řádky,

pro např. vygenerovat náhodné duplicitní řádky mezi 20 až 80.


co bude aktualizován kód pro následující


Dílčí vkládání()
'Aktualizovat Extendoffice 2016616
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Počet řádků", "Kutools pro Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "zadaný počet řádků je chyba, zadejte prosím znovu", vbInformation, "Kutools pro Excel"
Přejít na LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
Řádky(I).Kopírovat
Řádky(I).Změnit velikost(xPočet).Vložit
další
Application.CutCopyMode = False
End Sub
Tento komentář byl moderátorem webu minimalizován
Chci duplikovat řádky na základě parametru. Mám například sloupec s názvem doba trvání schůzky. Pokud je tento sloupec více než 1, chci duplikovat řádky ID schůzky na základě tohoto čísla. Pokud je délka schůzky 2 hodiny, duplikujte ID schůzky dvakrát. Pokud je schůzka 3 hodiny, duplikujte třikrát.
půlhodinové přírůstky lze zaokrouhlit na hodinu.

ID schůzky Čas začátku Čas konce Trvání schůzky
43117 9:00 11:00 02:00
43580 9:30 11:00 01:30
42699 10:00 11:30 01:30
12345 01:00 2:00 01:00
Tento komentář byl moderátorem webu minimalizován
Mám stejný problém. Našli jste řešení?
Tento komentář byl moderátorem webu minimalizován
Ahoj kluci,
Následující kód VBA vám může udělat laskavost, použijte jej:
Dílčí vkládání()
Dim I As Long
Dim xRg jako rozsah
Dim xHour, xMin As Long
On Error Resume Next
Application.ScreenUpdating = False
For I = Range("D" & Rows.CountLarge).End(xlUp).Row To 1 Step -1
x hodina = 0
Nastavit xRg = Range("D" & I)
xHour = Hour(xRg.Value) + 1
xMin = Minuta (xRg.Value)
Pokud xMin < 30, pak xHour = xHour - 1
Řádky(I).Kopírovat
Řádky(I).Změnit velikost(xHour).Vložit
další
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

Zkuste to prosím. Doufám, že vám to může pomoci!
Tento komentář byl moderátorem webu minimalizován
Tato makra jsem používal v minulosti a až donedávna to vždy fungovalo. Nějaký nápad, proč by to duplikovalo pouze horní řádek, i když používáte makra s více řádky? Odstranil jsem všechny filtry/zamrzlé panely.
Tento komentář byl moderátorem webu minimalizován
Ahoj, jak mohu změnit kód, aby zahrnoval následující

1. duplikát na základě počtu dní
2. změňte sloupec EOM z konce měsíce na denní datum
Tento komentář byl moderátorem webu minimalizován
Opravdu děkuji za vaši podporu!!!!
Tento komentář byl moderátorem webu minimalizován
Milujte kód! jak nastavím počáteční rozsah tak, aby přeskočil první řádek (záhlaví sloupců) a začal na řádku 2?
Tento komentář byl moderátorem webu minimalizován
Ahoj, Devine,
Chcete-li přeskočit první řádek záhlaví, použijte následující kód VBA:

Dílčí vkládání()
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Počet řádků", "Kutools pro Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "zadaný počet řádků je chyba, zadejte prosím znovu", vbInformation, "Kutools pro Excel"
Přejít na LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Řádky(I).Kopírovat
Řádky(I).Změnit velikost(xPočet).Vložit
další
Application.CutCopyMode = False
End Sub

Zkuste to, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Dobrý den, potřebuji pomoc, takto vypadá moje tabulka, například když přidám 2 řádek na konec své 1. tabulky, chci, aby mi vba pomohl udělat to samé pro tabulku níže (přidat 2 řádky na konec tabulky). Mým úkolem tedy bude, pouze přidávat řádky v 1. tabulce, tabulka pod všemi vygeneruje řádky automaticky na základě počtu řádků v 1. tabulce. toto jsou kódování, které jsem nyní použil k přidání řádku pro 1. tabulku. Doufám, že někdo může vyřešit tento problém za mě, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng As Long

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox("Zadejte požadovaný počet řádků.")
Při chybě GoTo 0
Application.DisplayAlerts = True

Pokud Rng = 0 Pak
MsgBox "Nezadali jste rozsah!"
Konec Sub

Jiný
Rozsah(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Vybrat
Select.EntireRow.Insert Shift: = xlDown
End If

End Sub
Tento komentář byl moderátorem webu minimalizován
Miluji to! Funguje to pokaždé! Moc ti za to děkuji :)
Tento komentář byl moderátorem webu minimalizován
jak to udělám pro sloupce?
Tento komentář byl moderátorem webu minimalizován
Jak to mohu udělat pro sloupce?
Tento komentář byl moderátorem webu minimalizován
jak provést stejnou akci s vybranými buňkami pomocí VB,


Potřebuji zopakovat několik vybraných buněk (řádků a sloupců) x kolikrát na stejném listu a ve stejném pořadí jako:

line1
line2
line3

line1
line2
line3
Tento komentář byl moderátorem webu minimalizován
ahoj, fungovalo to skvěle, jen potřebuji zkopírovat dva řádky N kolikrát. Můžete prosím upravit kód, takže když vyberu dva řádky, zkopíruje tyto dva řádky dolů Nkrát? díky za vaši pomoc
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Sal,
Pokud potřebujete zkopírovat pouze dva řádky dolů vícekrát, stačí použít kód VBA 1 v tomto článku, dvakrát použít kód vyřeší váš problém. Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Zkopírujte a vložte každý řádek vícekrát pomocí kódu VBA

Jak mohu v kódu VBA vybrat počáteční řádek
Tento komentář byl moderátorem webu minimalizován
Žádná funkce se systémem Windows 2019, není k dispozici žádná funkce pro jednoduché ovládání
Tento komentář byl moderátorem webu minimalizován
ahoj všichni.. Předem děkuji za pomoc!!

Kód VBA pro vícenásobné duplikování jednoho konkrétního řádku funguje perfektně, dokud nepoužijete filtr. Zajímalo by mě, jestli mi někdo může pomoci vyřešit tento problém. Potřebuji kód, který funguje, i když máte nějaké hodnoty filtrované. Používám velké množství dat, která jsou řazena podle umístění. Kód částečně funguje, vloží požadovaný počet řádků, ale žádná data ani formát, když jsem použil filtr.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, je možné použít různé velikosti (hodnoty) pro každý řádek? Snažím se použít vektor, ale nefunguje to.
Například :
Řádky(I).Změnit velikost(xPočet(y) ).Vložit

Kde jsou hodnoty uložené v xCount(y) načteny z tabulky.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Gussi,
Může vám pomoci následující článek, zkontrolujte jej:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Tento komentář byl moderátorem webu minimalizován
U druhého kódu VBA (kód VBA: Duplikujte každý řádek vícekrát) stále dostávám chybu běhu: 1004
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění