Question

excel vba 错误13 类型不匹配

Private Sub checkin_Click()
Dim urs As Integer
Dim ers As Integer
urs = Worksheets("UserGeneralInfo").Range("a65536").End("xlup").Row + 1
ers = Worksheets("EventRecord").Range("a65536").End("xlup").Row + 1
MsgBox "urs=" & urs & "-" & "ers=" & ers
End Sub

报错
错误 13
类型不匹配
用的excel2010

Answer 1

不确定Integer范围就干脆不要As Integer了嘛！

Private Sub checkin_Click()
Dim urs As Integer
Dim ers As Integer
urs = Worksheets("UserGeneralInfo").Range("a65536").End("xlup").Row + 1
ers = Worksheets("EventRecord").Range("a65536").End("xlup").Row + 1
MsgBox "urs=" & urs & "-" & "ers=" & ers
End Sub
不是超范围了，是xlup不要加双引号，改成 End(xlup) 就能运行了。