根据另一个工作表中的行数在表中插入行

Question

我想根据另一个工作表中的行数标准将特定数量的行插入表中。我想要做的是在表格顶部行的下方插入行。我正在尝试各种代码，但无济于事，这就是我所拥有的和我试过的底部代码。

'Counts number of rows 
Int_rows = Range("m7:y7").End(xlDown).Row - 6 
Windows("Sheet2").Activate 
ActiveSheet.ListObjects("Table").Resize (Int_rows), (0) 
'ActiveSheet.ListObjects("APR_Table").ListRows.Add (2) 
'Range("Table").Resize(Int_Rows).EntireRow.Insert 

Answer 1

请考虑使用以下代码：

Sub AddRows() 
    Dim Int_rows As Integer 
    Int_rows = Sheets("Sheet1").Range("m7:y7").End(xlDown).Row - 6 

    Sheets("Sheet2").Rows("2:" & (Int_rows + 1)).Select 
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
End Sub 

问候，

Answer 2

AFAIK，你只能插入ListRows设为一个在通过VBA的时间。

以下将工作。

Int_rows = Range("m7:y7").End(xlDown).Row - 6 

Dim LO as ListObject 
Set LO = Worksheets("Sheet2").ListObjects("Table") 

For x = 1 to Int_rows 
    LO.ListRows.Add , AlwaysInsert:=True 
    x = x +1 
Next