如何操作双零索引数组？VBA向量化求和代码修正问询

云原生阿岚

2026-6-28

VBA双零索引数组逐元素相加的向量化解决方案

问题根源

你的代码执行失败的核心原因是：VBA的Sum函数（无论Application.Sum还是WorksheetFunction.Sum）是计算数组所有元素的总和，而非逐元素相加，这和MATLAB里的sum函数逻辑完全不同。另外，Application.Index(s,0,0)本质就是返回原数组s，这里可以直接使用s，无需额外调用Index。

向量化解决方案

以下是几种无需循环的向量化实现方式，完全适配你的需求：

方案1：直接用`Evaluate`执行数组逐元素加法

利用Excel的数组运算特性，通过Evaluate直接完成两个同维度数组的逐元素相加，逻辑和MATLAB一致：

Sub Script()
    Dim s(), r()
    s = [{1,2;3,4;5,6}]
    ' 执行逐元素数组加法，得到目标结果
    r = Evaluate(s & "+" & [{7,7;7,7;7,7}])
    
    ' 可选：在立即窗口输出结果验证
    Dim i As Integer, j As Integer
    For i = LBound(r, 1) To UBound(r, 1)
        For j = LBound(r, 2) To UBound(r, 2)
            Debug.Print r(i, j)
        Next j
    Next i
End Sub

执行后r会得到{{8,9},{10,11},{12,13}}，完全符合预期。

方案2：动态生成同维度全7数组后相加

如果全7数组需要根据s的维度动态生成（而非硬编码），可以用Evaluate实现数组广播，再执行加法：

Sub Script()
    Dim s(), r(), arr7()
    s = [{1,2;3,4;5,6}]
    
    ' 生成和s行数一致的一维全7数组
    arr7 = Evaluate("ROW(1:" & UBound(s, 1) & ")^0*7")
    ' 将一维数组广播为和s同维度的二维全7数组
    arr7 = Evaluate(arr7 & "*COLUMN(1:" & UBound(s, 2) & ")^0")
    
    ' 逐元素相加
    r = Evaluate(s & "+" & arr7)
End Sub

这种方式更灵活，即使s的维度变化，也能自动适配生成对应大小的全7数组。