for循环运行时错误6，溢出

杨八千8787

Set depInfo = CreateObject("Scripting.Dictionary")
'将商户对应销售信息存入字典
With GetObject(ThisWorkbook.Path & "\Dept.xlsx")
  With .Sheets(1)
  crr = .[a1].CurrentRegion
  End With
End With
For i = 2 To UBound(crr)
'上面这句一运行就报错，显示运行时错误6，溢出，其中UBound（crr）数字正常，为64572
  Key = CStr(crr(i, 9))
  Key = Replace(Key, " ", "")
  depInfo(Key) = crr(i, 5)
Next i
求大神答疑！

山菊花

检查一下变量类型，如果声明i%，改为i&。

iwangyi

检查问题是最难的

pshl7

应该是定义了i的变量类型为整数型Integer，改为长整型Long。整数型最大是3万多，UBound（crr）64572超出范围，所以报错溢出。