复制并插入 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

如果需要，请修改它..