插入新行并复制公式

Question

我在 Excel 中有这个 table:

我在 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 行插入一行，然后只需复制上面的公式即可。

插入新行并复制公式

Insert new row and copy formula

excel

vba

rows