[已解决]请问大侠，我这段代码能完全运行么？

假绅士

1. Sub 实验1()
   
2. Dim x&
   
3. For x = 2 To 99999
   
4.     If Cells(2, 2) = Sheets("Sheet2").Cells(x, 1) Then
   
5.         Cells(3, 2) = Sheets("Sheet2").Cells(x, 2)
   
6.             Range("F2").Select
   
7.         Exit Sub
   
8.     End If
   
9. Next
   
10.     MsgBox "无此数据"
    
11.     Exit Sub
    
12. End Sub

复制代码

请问大侠们，我的这段代码能运行Next之后的代码么？我现在用的时候当for语句都运行完了也没满足IF的时候代码就出错了，运行不了Next后的语句。帮我指点一下，谢谢！！！

最佳答案

月排行榜 / 总排行榜

爱疯

2014-12-6 00:18

如果工作簿是03格式，那么最大行数只有65536行。而循环终值是99999，就超出最大行数，会发生错误。
没见附件，也可能是其它原因。
还是应当上传附件的习惯才是。

跳转到最佳答案楼层

L50814026

如果B2的数字不等于表2里面的那一列数字，就可以运行Next之后的代码

爱疯

如果工作簿是03格式，那么最大行数只有65536行。而循环终值是99999，就超出最大行数，会发生错误。
没见附件，也可能是其它原因。
还是应当上传附件的习惯才是。

假绅士

爱疯 发表于 2014-12-6 00:18
如果工作簿是03格式，那么最大行数只有65536行。而循环终值是99999，就超出最大行数，会发生错误。
没见附 ...

谢谢，版主一下就点到了，我改了循环数据为65536就好使了