之前在编写VBA程序时如果遇到需要用数组公式来计算结果的时候,我都会通过往单元格写入数组函数来得到数组函数的结果,然后获取单元格的内容将结果放到VBA变量中,这样做会导致VBA效率大大降低,一直以为没什么好办法,没想到偶然搜索找到了解决的办法:

代码如下:

Sub j2()
a = Application.Evaluate("SUM(((品名=""春羔皮"")*(规格=""１－２"")*(单价>100))*金额)")
 MsgBox a
End Sub

原文链接