復制並插入 X 行，其中 X 基於單元格值

Question

我只是想知道是否有人知道如何復制和插入 X 行，其中 X 基於單元格值？ D18 有我需要插入的行數，第 20 行是我需要多次復制和插入的行。 任何幫助，將不勝感激。 謝謝

Answer 1

試試這個，

Sub insertRow()
Dim i As Long
For i = 1 To Range("D18").Value
    Range("A20").EntireRow.Insert
Next i
End Sub

如果需要，請修改它..