Kako podvojiti vrstice na podlagi vrednosti celice v stolpcu?

Na primer, imam obseg podatkov, ki vsebuje seznam števil v stolpcu D, zdaj pa želim večkrat podvojiti celotne vrstice na podlagi številskih vrednosti v stolpcu D, da dobim naslednji rezultat. Kako lahko večkrat kopiram vrstice na podlagi vrednosti celic v Excelu?

Večkrat podvojite vrstice na podlagi vrednosti celic s kodo VBA

Kopirajte in vstavite vrstice glede na določeno število krat s priročnim orodjem - Kutools za Excel

Večkrat podvojite vrstice na podlagi vrednosti celic s kodo VBA

Če želite večkrat kopirati in podvojiti celotne vrstice na podlagi vrednosti celic, vam bo morda v pomoč naslednja koda VBA, naredite tako:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Podvoji vrstice večkrat na podlagi vrednosti celice:

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. Nato pritisnite F5 Če želite zagnati to kodo, so bile celotne vrstice večkrat podvojene glede na vrednost celice v stolpcu D, kot jo potrebujete.

Kopirajte in vstavite vrstice glede na določeno število krat s priročnim orodjem - Kutools za Excel

Če niste seznanjeni s kodo VBA in ne morete sami pravilno spremeniti parametrov v kodi. V tem primeru je Kutools za Excel's Podvojene vrstice/stolpci na podlagi vrednosti celice funkcija vam lahko pomaga večkrat kopirati in vstaviti vrstice na podlagi vrednosti celic s samo tremi kliki.

1. klik Kutools > Vstavi > Podvojene vrstice/stolpci na podlagi vrednosti celice da omogočite to funkcijo;
2. Nato izberite Kopirajte in vstavite vrstice možnost in določite celice Vstavi obseg in Ponovi čas ločeno v pogovornem oknu.