Excel

Question

目前在我的 excel 电子表格中，我无法在所选行下方插入一行。新票被添加到电子表格的末尾，所以当我想添加新票时，我单击 TOTALS 行之前的行并单击插入，但它会在所选行上方输入新行。

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

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

但是，新行的格式未匹配 table。我想调整我的宏以根据 table 格式格式化新行（在这种情况下，它应该以蓝色突出显示并具有正确的行）。双上单元格线也应该贴在总行上。

下面是我的微博：

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

如果我不清楚，请告诉我。任何 tips/guides/tutorials 都会有所帮助。

Answer 1

如果您只想向 table 添加新行，请使用：

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

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

Excel - Insert row macro to include table format

vba

excel-2007

excel-2010