在VBA中的条件统计和求和
到目前为止，我们关于条件公式的所有讨论都是直接在Excel工作表中 。有时，我们需要在VBA程序中对一些工作表单元格进行条件统计和求和 。在这些情形下，编写简单的循环来遍历所有数据并检查它们是否与条件相匹配，统计汇总相匹配的项 。
Excel VBA允许在程序中调用内置的工作表函数，避免让我们再重复创建这些功能，极大地改善了VBA代码的能力 。当在VBA中调用Excel函数时，如果不过度使用，那么任何的性能影响应该是最小的，优势也很明显 。我们能够利用这种优势很容易地在VBA中获取条件统计和求和，但是要注意一些事项 。
作为示例，考虑下表中的数据（与上文中表相同） 。
如果需要使用VBA程序求单元格区域A1:A10有多少“Ford”，程序代码如下：
Dim mModel As String
Dim mCount As Long
mModel = “Ford”
mCount =Application.WorksheetFunction.CountIf(Range(“A1:A10”), mModel)
此时，”Ford”的数量将被赋值给mCount变量，其值为4 。
同样，我们可以使用SUMIF来计算”Ford”所对应的价格和：
Dim mModel As String
Dim mValue As Long
mModel = “Ford”
mValue =https://www.i8ku.com/2021/Application.WorksheetFunction.SumIf(Range(“A1:A10”), mModel,Range(“C1:C10”))
此时，”Ford”相对应的价格之和被赋值给变量mValue，其值为33873 。
接下来，假设我们能扩展这种技术到上文中已讨论的多条件测试公式 。例如，统计在六月份（June）销售了多少Ford，代码如下：
Dim mModel As String
Dim mMonth As String
Dim mCount As Long
mModel = “Ford”
mMonth = “June”
mCount =Application.WorksheetFunction.CountIfs(Range(“A1:A10”), _
mModel, Range(“B1:B10”),mMonth)
代码将结果3赋值给变量mCount 。不幸的是，这项技术不能被扩展到数组公式或者条件测试SUMPRODUCT公式 。
例如，下面是统计在五月（May）有销售了多少Ford的公式：
=SUMPRODUCT((A2:A10=”Ford”)*(B2:B10=”Feb”))
你可能想使用下面的VBA代码得到相同的结果：
Dim mModel As String
Dim mMonth As String
Dim mCount As Long
mModel = “Ford”
mMonth = “May”
mCount =Application.WorksheetFunction.SumProduct( _
Range(“A1:A10”) = mModel,Range(“C1:C10”) = mMonth)
然而，在编译时会得到错误消息 。在这种情况下，VBA试图简单地调用工作表函数，但并不会评估单元格区域并传递正确的数组信息到工作表函数中 。
下面是该问题的解决方案 。在VBA中使用Evaluate方法评估函数调用，转换Excel名称为值 。代码如下：
Dim mModel As String
Dim mMonth As String
Dim mFormula As String
Dim mCount As Long
mModel = “Ford”
mMonth = “May”
mFormula =”SUMPRODUCT((A1:A10=””” & mModel & _
“””)*(B1:B10=””” & mMonth &”””))”
mCount = Application.Evaluate(mFormula)
虽然需要更多的努力来确保合适地构建函数调用的正确语法，并且合适地使用引号来确保字符串被引号括住，但是这仍然是一项有用的技术，提供了在VBA中使用SUMPRODUCT函数的能力 。
Excel 2007及以上版本中的SUMPRODUCT
在Microsoft引入Excel 2007时，主要集中在容易使用以及改善商务分析功能 。不幸的是，工作表函数没有得到太多的关注，只是引入了一些新的函数，其中的两个新函数：COUNTIFS和SUMIFS支持多条件测试 。
例如，在我们前面的示例中：
=SUMPRODUCT((A1:A10=”Ford”)*(B1:B10=”June”))
推荐阅读
- 3 SUMPRODUCT函数详解
- SUMPRODUCT函数详解
- 什么情况下使用INDEX函数?
- 使用INDEX函数返回整行或整列
- INDEX函数，有时可替代数组公式
- INDEX函数，给公式提供数组
- 如何使用python中的filter函数？Python简明讲解filter函数的用法
- Python中的ruduce函数和filter函数有什么区别？Python filter及reduce()函数使用方法解析
- ROW与ROWS函数，生成连续的整数
- IFERROR函数，从结果中剔除不需要的值