错误跳转

xiaoni

问题在代码中，请有空的老师们帮忙看看file:///C:/Users/Administrator/AppData/Roaming/Tencent/Users/877753675/QQ/WinTemp/RichOle/JQO01MV8QENGNX]T68%60%7B6NI.png，只能执行一次错误，第二次错误就不执行了 遇到错误跳转.zip (11.69 KB, 下载次数: 4)

2018-6-14 22:36 上传

点击文件名下载附件

vbee

1.     If Cells(i, 2) <> 0 Then
   
2.         If i / Cells(i, 2) > 1 Then
   
3.         k = k + 1
   
4.         m = m + m
   
5.         End If
   
6.     End If

复制代码

xiaoni

vbee 发表于 2018-6-15 08:26

不是这样的，我就是想试试错误的跳转

vbee

1. Sub aa()
   
2. Dim i As Long
   
3. m = 2
   
4. On Error GoTo 100
   
5.     For i = 2 To Cells(Rows.Count, 1).End(3).Row
   
6.         If i / Cells(i, 2) > 1 Then
   
7.         k = k + 1
   
8.         m = m + m
   
9.         End If
   
10. 
    
11.     Next i
    
12. 100:
    
13. End Sub
    

复制代码

xiaoni

不行，你那个直接结束程序了