Jak duplikovat řádky na základě hodnoty buňky ve sloupci?
Například mám rozsah dat, který obsahuje seznam čísel ve sloupci D, a teď chci duplikovat celé řádky několikrát na základě číselných hodnot ve sloupci D, abych získal následující výsledek. Jak mohu zkopírovat řádky vícekrát na základě hodnot buněk v aplikaci Excel?
 |
 |
 |
Duplikujte řádky několikrát na základě hodnot buněk pomocí kódu VBA
Duplikujte řádky několikrát na základě hodnot buněk pomocí kódu VBA
Chcete-li zkopírovat a duplikovat celé řádky vícekrát na základě hodnot buňky, může vám pomoci následující kód VBA, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření 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 řádky několikrát na základě hodnoty buňky:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, byly všechny řádky duplikovány několikrát na základě hodnoty buňky ve sloupci D, jak potřebujete.
Kopírujte a vkládejte řádky na základě zadaného počtu opakování pomocí praktického nástroje - Kutools pro Excel
Pokud nejste obeznámeni s kódem VBA a nejste schopni sami správně změnit parametry v kódu. V tomto případě je Kutools pro Excel's Duplikovat řádky/sloupce na základě hodnoty buňky Funkce vám pomůže zkopírovat a vložit řádky vícekrát na základě hodnot buněk pouze třemi kliknutími.
- klikněte Kutools > Vložit > Duplikovat řádky/sloupce na základě hodnoty buňky aktivovat tuto funkci;
- Potom zvolte Zkopírujte a vložte řádky a zadejte buňky Vložte rozsah a Opakujte časy samostatně v dialogovém okně.
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!
