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

【问题标题】：VBA create an array which contains formulasVBA 创建一个包含公式的数组
【发布时间】：2018-03-03 16:17:55
【问题描述】：

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

例如

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

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

谢谢

【问题讨论】：

【解决方案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

【讨论】：