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

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

Sub-yahoo（）
作为整数的Dim n
范围（“A:A”）。自动筛选字段：=1，标准1:=“*yahoo*”
n=范围（“a:a”）.SpecialCells（xlCellTypeVisible）。SpecialCells（xlCellTypeConstants）。计数
范围（“c1”）=n
端接头

将整数替换为长整数（有关VBA数据类型的更多信息，请访问：）

请阅读-倾销代码要求解决的不是这个网站的工作方式。

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