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

我试图插入一个特定数量的行到另一个工作表的行数基于条件的表中。 我想要做的是在表格顶部的行下面插入行。 我正在尝试各种各样的代码，但无济于事，这是我已经和我已经尝试的底部的一些代码。

'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，您只能通过VBA一次插入ListRows。

以下将工作。

 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