String类型转换为int类型的时候，提示类型不匹配解决思路

String类型转换为int类型的时候，提示类型不匹配
With Sheet1

  k = .Range("a65536").End(xlUp).Row
  'arr = .Range("a1:a" & k)
  '程序开始
  'o = 0
  n = 0
   
  For i = 1 To k
  n = ActiveSheet.Cells(i, 10)
  ' If arr(i, 1), 10).value >0 and arr(i, 1), 10).value <10 And i > 0 Then
  If n > 0 And n < 10 Then
  m = ActiveSheet.Cells(n, Page_Colum).Value
   
  If m = 1 Then
  l = l + 1
  str = " " & l
   
  Else
  l = l + 1
  str = " " & l & "-"
  l = l + m - 1
  str = str + "" & l
   
  End If
   
   
  ActiveSheet.Cells(i, Page_Colum + 4).Value = str
  'm = 0
  str = ""
   
  End If
   
   
  Next

  MsgBox "已经完成"
  ActiveWorkbook.Save
   
  End With




为什么在红色区域提示类型错误呢？之前也是这样用的，现在总是有问题

------解决方案--------------------------------------------------------
上传你的测试文件以供别人分析调试。

QQ群 48866293 OFFICE应用挖掘 
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
------解决方案--------------------------------------------------------
你可以用n = val(ActiveSheet.Cells(i, 10).Value)