代码之家  ›  专栏  ›  技术社区  ›  Shan

VBA创建包含公式的数组

  •  2
  • Shan  · 技术社区  · 8 年前

    例如。

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

    结果是单元格将上述公式作为字符串。有没有存储公式并应用于范围的简单方法?。

    1 回复  |  直到 8 年前
        1
  •  2
  •   GSerg    8 年前

    您需要将数组声明为2D(因为对于Excel,1D数组是单行,并且有多行),并且需要将其声明为 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