运行时错误6'溢出'其中声明为整数的变量

Question

存在运行时错误6'溢出'，其中变量声明为整数。

Sub yahoo() 
    Dim n As Integer 
    Range("A:a").AutoFilter Field:=1, Criteria1:="*yahoo*" 
    n = Range("a:a").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count 
    Range("c1") = n 
End Sub 

Answer 1

更换整数龙（更多关于在VBA数据类型：https://msdn.microsoft.com/en-us/library/47zceaw7.aspx）

Sub yahoo() 
    Dim n As Long 
    Range("A:a").AutoFilter Field:=1, Criteria1:="*yahoo*" 
    n = Range("a:a").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count 
    Range("c1") = n 
End Sub