插入新行和复制公式

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行插入一行，然后从上面复制公式。