SumProduct在VBA中的写法

prome3

1. 把整个数组和某个值比较是不合逻辑的，必须是把数组的具体元素和这个值比较才有意义。比如

1. Dim arr(1 To 3) As Long
   
2. If arr > 10 Then
   
3.     MsgBox True
   
4. End If

复制代码

在Excel工作表中，单元格区域就像一个二维数组，行号和列号是单元格区域的索引。G1:G17>=10 这样的写法如果不是用在数组公式中，则是以公式单元格所在的行作为索引取 G1:G17 中某个单元格的值来和 10 进行比较，如果公式所在单元格的行号不在 G1:G17 的行号范围内，公式直接返回错误值。

[E8] = WorksheetFunction.SumProduct((Range("G1:G16") >= 10), (Range("G1:G16") <= 15))

在上面那句代码中，Range("G1:G16") >= 10 就是在拿整个数组和单一值做比较，因而报错。这就是为什么相似的写法，在Excel中能正常运行，到VBA里面就报错了：Excel默认以工作表行号和列号作为索引取单一单元格的值进行处理，因此能运行。

2. WorksheetFunction.SumProduct的参数必须是（可转化为二维的）数组。

上图中两个数组都是一维的，但可被SumProduct函数处理。相当于工作表中的两列数据。由此也可以看出，作为一个工作表函数，用在VBA中，无需自己去构建一个 For 循环或者 Do ... Loop 循环来计算函数能直接给的结果，代码简洁很多。无需自己重复造轮子。


——————————以下可以不看
楼主没有给出接近现实的应用场景，我自己模拟了一些例子，用以说明和对比不同的实现方式：

可以看到，Evaluate函数是必须的。如果去掉Evaluate函数，则不可避免地需要VBA的For循环。