插入特定行数

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