在VBA中调用Excel公式可以通过以下几种方法实现：
使用Application.WorksheetFunction前缀
对于大多数工作表函数，可以在VBA中使用`Application.WorksheetFunction`前缀来调用，这与在Excel工作表中的用法相同。例如：
```vba
Dim result As Variant
result = Application.WorksheetFunction.Sum（A1:A10）
```
直接调用VBA函数
VBA函数不需要前缀，可以直接调用。如果需要在`Application.WorksheetFunction`中找不到某个函数，可以使用`vba.`前缀来查找。例如：
```vba
Dim result As Variant
result = vba.SomeVBAFunction（）
```
使用ExecuteExcel4Macro方法
对于某些需要执行的Excel公式，如自定义函数或宏，可以使用`ExecuteExcel4Macro`方法。例如：
```vba
Sub MyQRCode（）
Worksheets（"Sheet1"）.Activate
Range（"D14"）.Select
ExecuteExcel4Macro "QRCode（""Hello, Tom"",""M10"",""200""）"
End Sub
```
使用Range对象的Formula属性
可以通过`Range`对象的`Formula`属性来设置或获取单元格的公式。例如：
```vba
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
ws.Range（"B1"）.Formula = "=SUM（A1:A10）"
```
使用Range对象的Value属性
如果需要获取单元格的公式计算结果，可以使用`Value`属性。例如：
```vba
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
result = ws.Range（"A1"）.Value
```
批量设置公式
对于需要批量设置公式的场景，可以使用循环和`Formula`属性来实现。例如：
```vba
Sub 批量设置公式（）
Dim i As Long
Dim lastRow As Long
lastRow = Cells（Rows.Count, "A"）.End（xlUp）.Row
For i = 2 To lastRow
Cells（i, "C"）.Formula = "=A" & i & "+B" & i
Next i
End Sub
```
自动填充公式
可以编写VBA代码来自动填充公式，例如计算一列的总和。例如：
```vba
Sub 自动填充公式（）
Dim lastRow As Long
lastRow = Cells（Rows.Count, "A"）.End（xlUp）.Row
Range（"C2:C" & lastRow）.FormulaR1C1 = "=RC[-2]*RC[-1]"
End Sub
```
通过以上方法，可以在VBA中灵活地调用和操作Excel公式，从而提高工作效率和准确性。