Excel - 插入行宏以包含表格式

Question

目前在我的Excel电子表格中，我无法在所选行下方插入一行。新票证将添加到电子表格的末尾，因此当我想要添加新票证时，我会单击TOTALS行之前的行并单击插入，但它会进入所选行上方的新行。

此处的屏幕截图显示我选择了单元格33并单击了插入，但上面添加了新行：

当我使用宏代码时，它会完美地添加行：

但是，新行未格式化为与表匹配。我想调整我的宏来格式化基于表格格式的新行（在这种情况下，它应该以蓝色突出显示并具有正确的行）。双上部细胞系也应该坚持总行。

以下是我的mecro：

Sub InsertRowBelow()

    Application.ScreenUpdating = False

    ActiveCell.Offset(1, 0).EntireRow.Insert
    ActiveCell.EntireRow.Copy
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

如果我不清楚，请告诉我。任何提示/指南/教程都会有所帮助。

Answer 1

如果您只想在表格中添加新行，请使用：

ActiveWorkbook.Worksheets(1).ListObjects(1).ListRows.Add