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

Answer 2

这应该有效


Sub InsertRow()

  Dim ws As Worksheet
  Dim NBOFROWS As Range
  Set ws = ThisWorkbook.ActiveSheet

  With ws
    Set NBOFROWS = .Range("A2")
    ActiveCell.EntireRow.Offset(1).Resize(NBOFROWS.Value).Insert Shift:=xlDown
  End With

End Sub

插入特定行数

2 个答案: