Question

如何在EXCEL用VBA实现SUMIFS和COUNTIFS函数功能？

如图所示，是我自己编的公式和录制宏产生的编码。但我总觉得不太对。因此有三个问题，希望各路大神，能给予解答： 1.这种编码是否仍然使用的是函数运算？2.如果遇到大量数据，这种编码方式是否仍然无法实现快速运算？3.如果前两个问题答案为是，那么怎么利用VBA去实现SUMIFS和COUNTIFS函数功能？





Answer 1

要注意的是公式中的双引号容易写错。建议使用 Chr(34) 函数来代替。比如，第一个公式写成如下：
ActivateCell.FormulaR1C1 = "COUNTIFS('500+'!R[-29]C[1]:R[965]C[1]," & CHR(34) & ">=2.0*" & CHR(34) & ",'5000+!R[-29]C[5]:R[965]C[5]," & CHR(34) & ">=201901" & CHR(34) & ")"

追问

整段怎么编？

追答

都一样。只要公式中涉及到 双引号 的，你都需要注意。
我不记得了应该用 4 个双引号来代表输入一个双引号呢，还是 3 个双引号代表输入一个双引号！为了不引起岐义，我都一直使用 Chr(34) 这个函数来代替 双引号。

Answer 2

你这还是用的Excel函数来实现的，数据量大了还是很慢；用VBA的话，考虑用数组+字典的方式

追问

用数组和字典，整段怎么编