VBA 创建一个包含公式的数组

Question

我想知道是否有办法创建一个只包含公式（不包含值）的数组。

例如

dim myArr (1) as string
myArr(0) = "=Sum(A1:C3)"
myArr(1) = "=Sum(B1:D3)" 
Range("E1:E2") = myArr

结果是单元格将上述公式作为字符串。是否有任何直接的方法来存储公式并应用于范围？。

谢谢

Answer 1

需要声明数组为二维（因为一维数组对于Excel来说是单行的，而你有多行），需要声明为Variant.

Dim myArr(1 To 2, 1 To 1) As Variant
myArr(1, 1) = "=Sum(A1:C3)"
myArr(2, 1) = "=Sum(B1:D3)"
Range("E1:E2").Formula = myArr

VBA create an array which contains formulas