时间戳

首页 > 解决方案 > VBA添加一个按钮，添加一行，从活动单元格上方复制公式，不起作用

vba - VBA添加一个按钮，添加一行，从活动单元格上方复制公式，不起作用

问题描述

我想制作一个按钮来复制某个范围内的某些公式，并将其插入到活动单元格的下方。它可以工作，但现在公式参考一直链接到它上面的公式，我需要它像自动填充一样，

Sub Rijen_Toevoegen()

ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
Range("B" & ActiveCell.Row + 1 & ":H" & ActiveCell.Row + 1).Formula = Range("B" & ActiveCell.Row & ":H" & ActiveCell.Row).Formula


End Sub

标签： vbainsertrow

解决方案

您可以像这样使用自动填充：

Sub Rijen_Toevoegen()

    ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown
    Range("B" & ActiveCell.Row & ":H" & ActiveCell.Row).AutoFill Destination:=Range("B" & ActiveCell.Row & ":H" & ActiveCell.Row + 1)

End Sub

查看目标范围必须包括 ActiveCell 的行"B" & ActiveCell.Row以及您要填充的行":H" & ActiveCell.Row + 1（加 1）

让我知道它是否有效

推荐阅读