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 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 Styl čá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 Podat žádost 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ší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a 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 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 snižuje stovky kliknutí myší každý den!