在Excel中使用xlDown插入的附加行

我定义了以下宏,它将行插入到工作表中。在指定的起始地址插入行之后,各种范围将转换为表。我最初的想法是,问题在于 xlDown

目前,我有7个这样的范围,但问题是,前三个总是有一个额外的行插入-这是以前没有问题的工作,所以事实上,它的行为不端是一个谜我。

其余范围正确。这个 tableStartAdress rowsToInsert 这个例子总是38。

Sub InsertTableRows(tableStartAdress As String, rowsToInsert As Integer)
    Dim i As Integer
    Dim rowToCopy As String

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Application.DisplayAlerts = False
    Range(tableStartAdress).Offset(1, 0).Rows.Copy

    rowToCopy = Range(tableStartAdress).Offset(1, 0).row & ":" & _           
                   Range(tableStartAdress).Offset(1, 0).row

    Rows(rowToCopy).Select
    Selection.Copy

    Range(tableStartAdress).Offset(1, 0).Select
    ActiveCell.Resize(rowsToInsert, 1).Select

    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

下面的图片描述了我的意思。

.

填充数据后,前三个范围/表有一个额外的行

,

其余的都是对的