使用'Table.ListRows.Add'在表格边界之外插入整行

Question

我必须在Excel表中插入一个空行。要在我正在使用的表中插入行：

bugetTable.ListRows.Add AlwaysInsert:=True

到目前为止一切顺利，但是期望的结果是整个行不仅需要移动而不仅仅是表中的行。我的意思是，表范围是四列宽，所以我需要插入的行占用超过四列。我正在使用表而不是范围行方法来满足技术要求。

我正在使用Office 2010，Windows 8.1。

Answer 1

如果必须使用该表，则可能必须为其余列添加单独的单元格插入。假设x是您可能知道的当前行。

Cells(x,5).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Answer 2

Dim b As Integer
Dim b As Integer

另外3个步骤：

获取表格的最后一行：

a = ListObjects(YourTable).Range.Rows.Count

获取表格开始的行：

b = ListObjects(YourTable).Range.Cells(1).Row

在表格末尾插入行：

Rows(a + b - 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Answer 3

可能是这样的吗？

Sub InsertRows()

With Sheet1
    .Range("1:4").EntireRow.Insert
End With

End Sub