避免'没有下一个'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

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