避免'没有下一个'End Sub

Question

如果这里的一些专家帮助我解决这个问题会非常有帮助:我有一个循环来检查范围内的零值,问题是我不能避免错误'没有下一个'.也许这是使用End Sub的for循环的错误构造？谢谢.

For Each c In Range("B4:H4")

     If c.Value = 0 Then MsgBox "Wrong record!", vbExclamation
     End Sub
Next c

Answer 1

退出,而不是结束.

For Each c In Range("B4:H4")

  If c.Value = 0 Then 
    MsgBox "Wrong record!", vbExclamation
    Exit Sub
  End If
Next c

但是,通常最好找出一种方法来限制退出的点数.