声明整数：使用带有countif的sumproduct时类型不匹配错误

Question

任何人都可以帮助我：

Dim fundcount as integer

FundCount = Application.WorksheetFunction.SumProduct(1 / Application.CountIf(Range("B12:B28"), Range("B12:B28")))

我在此脚本上遇到类型不匹配错误。

脚本的目的是计算一系列文本结果并返回一个唯一值，然后可以在代码中的循环中使用该值。

提前致谢

Answer 1

CountIf不会将范围作为其第二个参数。它应该是32或"Some text"。

之类的值

请参阅：https://msdn.microsoft.com/en-us/vba/excel-vba/articles/worksheetfunction-countif-method-excel?f=255&MSPPError=-2147217396

Answer 2

CountIf将计算符合条件的单元格数。它没有改变，因为你已将它放在SumProduct公式中。

如果您正在计算所有内容，请尝试使用Count而不是CountIf