Question

EXCEL vba 运行到return就停止了，求大神解答，在线等！谢谢！

如下：
Sub 错误()
Dim x As Integer
For x = 1 To 20
On Error Resume Next
If x > 9 Then On Error GoTo 100
Cells(x, 6) = Cells(x, 4) * Cells(x, 5)
Next x
Exit Sub
100:
MsgBox "在第" & x & "行出错了"
Cells(x, 6) = "错误"
Return
End Sub

运行到return就错误，删除后，只能运行到第一个出现错误的那行，为什么啊？求大神解决！谢谢！

Answer 1

Sub ss()
Dim x&
On Error Resume Next
For x = 1 To 20
If x > 9 Then
GoTo 100
End If
Cells(x, 6) = Cells(x, 5) * Cells(x, 4)
200:
Next
Exit Sub
100:
Cells(x, 6) = "错误"
GoTo 200
End Sub

试下这段代码，另外retrun是配合gosub来使用的，
如果使用了on error resume next 那么 return就没啥作用了。

追问

十分感谢~~

Answer 2

不是return，是resume next

Answer 3

vba代码帮调试解决