计数器溢出错误

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

这是我的代码:

Sub Count Dim count As Integer Count = Application.WorksheetFunction.CountIf(Range("A:A"), "Bob") Count = Sheets("Sheet1").Cells(2,8) End Sub 

当计数太大时,有什么办法可以解决这个错误吗?

简单的解决办法是声明countvariables如下:

 Dim count As Long