2024年6月14日发(作者：)

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填充公式时还可以根据具体需求进行拓展，例如结合循

环或条件语句来实现更复杂的公式填充逻辑，或者使用其他相关属性

和方法来实现更多功能。这只是一个基本的示例，可以根据具体情况

进行调整和扩展。