插入特定行数

Question

我正在尝试插入特定数量的行。现在，我正在使用下面的代码插入4行。我正在尝试编写一行代码，该代码将插入某个数字或基于某个单元格中的数字的行。例如，如果我要插入4行，而单元格A2是可以更改要添加的行数的单元格，那么根据我在单元格A2中插入的行数，我将使用什么代码添加任意数量的行。

ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown

Answer 1

您可以使用下面的代码行一次插入4行：

ActiveCell.EntireRow.Resize(4).Insert Shift:=xlDown 

或下面的行（取决于您希望添加添加的行的位置）：

ActiveCell.EntireRow.Offset(1).Resize(4).Insert Shift:=xlDown

并且无需使用ActiveCell，始终建议：

Range("A2").EntireRow.Offset(1).Resize(4).Insert Shift:=xlDown