vba 单元格 填充公式

vba 单元格填充公式
在VBA中使用单元格填充公式，可以通过使用Range对象的Formula属性来实现。

通过将需要填充公式的单元格或范围指定为Range对象，然后使用Formula属性将所需的公式分配给该Range对象。

下面是一个示例，演示如何在VBA中使用单元格填充公式（将A2
单元格的公式填充到A3:A10单元格）：
```vba
Sub FillFormula()
Range("A3:A10").Formula = Range("A2").Formula
End Sub
```
此示例中，使用Range("A3:A10")指定了要填充公式的单元格范围，并使用Range("A2").Formula指定了要填充的公式。

如果要在填充公式之前将公式中的引用更改为适应新的单元格位置，则可以使用FormulaR1C1属性。

例如，如果要将A2单元格中的公
式填充到A3:A10单元格，但是公式中使用到了A1单元格，并且要动
态调整为新的单元格位置，则可以使用FormulaR1C1属性。

下面是一
个示例：
```vba
Sub FillFormula()
Range("A3:A10").FormulaR1C1 =
Replace(Range("A2").FormulaR1C1, "R1C1", "R2C1")
End Sub
```
此示例中，使用Range("A3:A10")指定了要填充公式的单元格范围，并使用Range("A2").FormulaR1C1指定了要填充的公式。

Replace函数用于将公式中的R1C1引用修改为R2C1，以适应新的单元格位置。

需要注意的是，填充公式时最好使用绝对引用，以确保公式适应
新位置。

如果使用相对引用，填充后的公式可能会自动调整为新位置，而不是保持原始的相对引用。

使用VBA填充公式时还可以根据具体需求进行拓展，例如结合循
环或条件语句来实现更复杂的公式填充逻辑，或者使用其他相关属性
和方法来实现更多功能。

这只是一个基本的示例，可以根据具体情况
进行调整和扩展。