首页 文章

插入新行和复制公式

提问于
浏览 次
1

我在Excel中有这个表：

enter image description here

我在N栏中有以下公式：

enter image description here

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

Sub Button3_Click()

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

End Sub

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

excel vba excel-vba rows

1 回答

  • 1

    除非您设置 table ，否则Excel不会维护正在使用的公式 . 因此，您只需要为流程添加额外的步骤：

    Sub Button3_Click()

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

End Sub

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

    回复于

相关问题