对多维数组的特定元素范围求和

Question

如何在不使用For... Next语句的情况下对多维数组的特定元素范围求和？

我知道如何使用一维数组来做到这一点。例如，下一个代码：

Dim GRMORT(1 to 864) As Double
Dim PSUM as Double
PSUM = Application.Sum(Application.Index(GRMORT, 1, Evaluate("ROW(100:200")")))

返回第 100 个到 200 个元素的总和。但是，如果我使用 2 维数组：

Dim GRMORT(1 to 864, 1 to 24) As Double

该功能不起作用。我认为它必须与Index函数的第二个参数一起使用，所以我尝试将其更改为2，3，...但这不是解决方案。

如何更改Index函数以获取第四列(或任何其他列(的第 100 到 200 个元素的总和？

Answer 1

只需提供列参数：

Dim GRMORT(1 To 864, 1 To 5) As Double
Dim PSUM As Double
PSUM = Application.Sum(Application.Index(GRMORT, Evaluate("ROW(100:200)"), 4))