使用sumproduct计算数组相乘再求和出错

schliemann

我希望从将第一个数组（多行多列）的每一行与第二个数组（只有一行）相乘后相加，但我用worksheetfunction.sumproduct出错了。请问这是为什么，该如何修改代码？

1. Sub SumProudct()
   
2. 
   
3. Dim arr1
   
4. Dim arr2
   
5. Dim i As Integer
   
6. 
   
7. arr1 = Worksheets("Sheet1").Range("A1:C4")
   
8. arr2 = Worksheets("sheet1").Range("F1:H1")
   
9. 
   
10. For i = 1 To UBound(arr1)
    
11.     Debug.Print WorksheetFunction.SumProduct(arr1(i), arr2) ‘这个地方报错。
    
12. Next i
    
13. 
    
14. End Sub

复制代码

蓝桥玄霜

这个方法的要求是2个数组的大小必须相同，否则就出错。

半百

schliemann

半百 发表于 2023-3-20 09:48

谢谢高手，请问为何arr1(i)行不通呢？arr1(i)不也代表第i行的几个元素吗，和arr2个数一样。

半百

schliemann 发表于 2023-3-20 18:54
谢谢高手，请问为何arr1(i)行不通呢？arr1(i)不也代表第i行的几个元素吗，和arr2个数一样。

不是，数组好像没有这种表示某一整行或一整列的方法，所以要借助别的函数来实现。

abiao

arr1是二维数组，就必须用2个下标表示。VB里面好像没有对二维数组表示一行或一列的办法吧？