Vba 复制并插入X行数，其中X基于单元格值

我只是想知道是否有人知道如何复制和插入X行数，其中X是基于单元格值的？ D18有我需要插入的行数，第20行是我需要复制和插入的行数。 任何帮助都将不胜感激。 谢谢

试试这个

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

---

如果需要，可以修改它。

你能用谷歌搜索一下吗？欢迎来到S.O。！请提供一些您试图解决此问题的代码。有各种资源可供学习，我建议首先使用宏记录器解决此问题，然后查看堆栈溢出文档中的最佳实践。用您尝试过的代码更新您的问题，或者在遇到问题时可以随意提问。@TomWorfolk请将答案标记为正确，以解决此问题。这就是你在这里表达谢意的方式：）@TomWorfolk在答案的左边。。我