计数器溢出错误

Question

我正在计算短语在列中出现的次数。但是，当我有一个大型数据集时，它似乎会产生溢出错误。

这是我的代码：

Sub Count
Dim count As Integer

Count = Application.WorksheetFunction.CountIf(Range("A:A"), "Bob")

Count = Sheets("Sheet1").Cells(2,8)

End Sub

当计数太大时，有没有办法解决这个错误？

Answer 1

简单的解决方案是声明 count 变量，如下所示：

Dim count As Long