根據另一個工作表中的行數在表中插入行

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