如何在VBA中自动填充功能？

Question

我正在尝试自动填充并找到了解决该问题的代码，但是，自动填充完成其操作后，所有单元格都会产生与原始单元格相同的结果。

Sub Button2_Click()


Range("P2").Value = Application.Sum(Range(Cells(2, 18), Cells(2, 40)))

Range("P2").Select
Selection.AutoFill Destination:=Range("P2:P5"), Type:=xlFillDefault

End Sub

Answer 1

我不确定您要查找的是什么，但是如果您要使用SUM函数，也许这是一句话：

Range("P2:P5").Formula = "=SUM(Q2:AN2)"

您可以一口气将公式写入范围，而无需AutoFill。

如果只需要这些值，则添加第二行以将公式转换为值：

Range("P2:P5").Value = Range("P2:P5").Value