插入新行并复制公式

我在Excel中有这个表格：

我在列N中有以下公式：

在名为Adauga的buttonAdauga ，我有一个在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行插入一行，然后从上面复制公式。