vba - 将两个数组或矩阵逐个元素相加

Question

我有两个这样定义的变量:

Per_Mnd = Worksheets("Sheet1").Range("G2:G8").Value
Per_Mnd2 = Worksheets("Sheet2").Range("G2:G8").Value

显然都是 Per_Mnd和 Per_Mnd2有 7 行和 1 列。现在我想逐个元素地总结它们，得到另一个 7×1 数组。我该怎么做？

它们是由矩阵定义的

Per_Mnd = Worksheets("Sheet1").Range("G2:H8").Value
Per_Mnd2 = Worksheets("Sheet2").Range("G2:H8").Value

我怎样才能快速逐个元素地总结它们？

谢谢!

Answer 1

您可以简单地评估 INDEX 公式以返回数组:

Sub Test()
Dim oarr As Variant
Dim Per_Mnd As Variant
Dim Per_Mnd2 As Variant
Per_Mnd = Worksheets("Sheet1").Range("G2:G8").Value
Per_Mnd2 = Worksheets("Sheet2").Range("G2:G8").Value

With Application
    oarr = .Transpose(.Evaluate("INDEX({" & Join(.Transpose(Per_Mnd), ",") & "}+{" & Join(.Transpose(Per_Mnd2), ",") & "},)"))
End With


Debug.Print oarr(3, 1)
End Sub

注意:这仅适用于相同大小的单列数组。