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

Kopírujte a vkládejte řádky na základě zadaného počtu opakování pomocí praktického nástroje - Kutools pro Excel

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ě Kutools pro Excel's Duplikovat řádky/sloupce na základě hodnoty buňky Funkce může zjednodušit vícenásobné kopírování a vkládání řádků na základě hodnot buněk pouhými třemi kliknutími.

1. klikněte Kutools > Vložit > Duplikovat řádky/sloupce na základě hodnoty buňky aktivovat tuto funkci;
2. Potom zvolte Zkopírujte a vložte řádky a zadejte buňky Vložte rozsah si Opakujte časy samostatně v dialogovém okně.