vba如何给单元格填公式

在VBA（Visual Basic for Applications）中，给单元格填充公式可以通过使用`Range`对象的`Formula`属性来实现。以下是一个简单的例子，展示了如何使用VBA给Excel工作表中的特定单元格填充公式。

假设你想要在A1单元格中填充公式`=SUM(A2:A10)`，以下是如何用VBA代码实现：

```vba

Sub FillCellWithFormula()

' 定义工作表对象

Dim ws As Worksheet

' 设置当前活动工作表

Set ws = ActiveSheet

' 设置目标单元格

Dim cell As Range

Set cell = ws.Range("A1")

' 给单元格填充公式

cell.Formula = "=SUM(A2:A10)"

End Sub

```

这段代码首先定义了一个工作表对象`ws`，并将其设置为当前活动的工作表。然后定义了一个单元格对象`cell`，指向A1单元格。使用`Formula`属性给这个单元格填充了公式`=SUM(A2:A10)`。

你可以将这段代码放入Excel的VBA编辑器中，通过以下步骤访问VBA编辑器：

1. 打开Excel。

2. 按下 `Alt + F11` 键。

3. 在打开的VBA编辑器中，右键点击工作簿名称，选择`插入` -> `模块`。

4. 在新模块窗口中粘贴上述代码。

5. 运行`FillCellWithFormula`子程序，公式就会填充到A1单元格中。

请根据你的具体需求调整工作表名称、单元格地址和公式。