excel - 如何在VBA中对两个数组中的值进行求和

Question

我试图在 VBA 中对两个数组求和，因为我试图避免在写入时间之前引用工作表，因为它的大小和复杂性。

我知道我可以使用 applicationfunction 来运行 sumproduct 并定义两个范围，但这仍然引用了工作表，有没有办法只在代码中使用数组？

Answer 1

当然，您只需调用 SUMPRODUCT 并将数组传递给它：（但请注意，它的效率有点低）

Sub testing2()
Dim varr1(1 To 10)
Dim varr2(1 To 10)
Dim vres As Variant
Dim j As Long
For j = 1 To 10
varr1(j) = j
varr2(j) = j * 10
Next j
vres = Application.WorksheetFunction.SumProduct(varr1, varr2)
End Sub