如何在 Excel 中的当前行*下方*添加新行？

Question

Excel 中的“插入”>“插入工作表行”命令始终在当前行上方插入一行。然而，对于我来说，想要在当前行下方插入一行是很常见的情况，如下所示：

重要的细节是边框被下推，并且公式被更新为包含 3 个单元格，而不是原来的 2 个。当我天真地这样做时，通过将光标放在总计行并在那里添加一行，我得到：

边框和公式在这里“损坏”，我需要手动修复它们。我有什么选择？

注意：“表”（Ctrl+T）将对此有所帮助，但就我而言，我需要一个不依赖于表中的行的通用解决方案。

Answer 1

如果将光标放在要在下面插入的行上，则会执行此操作并复制该行的格式：

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