插入新行并复制公式

Question

我在 Excel 中有这张表：

我在 N 列中有以下公式：

在名为Adauga 的按钮下，我有一个在第 5 行之前添加新行的子例程：

Sub Button3_Click()

    Sheets("Sheet1").Range("A5").Select
    ActiveCell.EntireRow.Insert Shift:=xlDown

End Sub

但公式不会复制到新行中。如何修改我的代码以复制公式？我尝试了一些方法，但最终我也复制了这些值。在第 5 行之前插入该行很重要。

Answer 1

Excel 不维护正在使用的公式除非您设置了table。因此，您只需在流程中添加一个额外的步骤：

Sub Button3_Click()

    With Sheets("Sheet1")
        .Rows("5").Insert xlDown, xlFormatFromLeftOrAbove
        .Range("N5").FillDown
    End With

End Sub

这将在第 5 行插入一行，然后从上面复制公式。