计数器溢出错误
我正在计算短语出现在列中的次数。 但是,当我有一个大型的数据集,似乎产生了一个溢出错误。
这是我的代码:
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