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，您只能通过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

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

2 个答案: