vba - 插入特定的行数

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