插入特定行數

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