☰

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

tag-icon • tag-icon microsoft-excel microsoft-excel-2013
如何在 Excel 中在当前行下方添加新行？

这插入 > 插入工作表行Excel 中的命令总是插入一行多于当前行。但是，对于我来说，插入一行是很常见的情况以下当前行，如下所示：

在此处输入图片描述

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

在此处输入图片描述

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

笔记：一个“表格”（Ctrl+T）可以解决这个问题，但是就我而言，我需要一个不依赖于行作为表格一部分的通用解决方案。

答案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

相关内容