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

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

bugetTable.ListRows.Add AlwaysInsert:=True 

到目前为止这么好，但是期望的结果是整行需要移动而不仅仅是表中的行。 我的意思是，表范围是四列宽，所以我需要插入的行超过四列。 对于技术要求，我正在使用表而不是范围行方法。

我正在使用Office 2010，Windows 8.1。

Answer 1

 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 2

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

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

Answer 3

可能是这样的？

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