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

Question

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

例如

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

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

感谢

Answer 1

您需要将数组声明为2D（因为1D数组是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