VBA循环-我希望我的应用程序找到第一个变量“ After Upd”，然后停止循环。我要在满足第一个条件后结束循环

Question

Sub Search_Range_For_Text（）昏暗的单元格作为范围

For Each cell In Range("b1:b100")
    If InStr(1, cell.Value, "After Upd") > 0 Then
        cell.Offset(0, 0).Value = "TH Value"

        MsgBox "verify if there was a check shot"

  End If

下一个单元格

结束子

Answer 1

在所需位置添加Exit For将使您退出for循环。

Sub Search_Range_For_Text()
Dim cell As Range

For Each cell In Range("b1:b100")
    If InStr(1, cell.Value, "After Upd") > 0 Then
        cell.Offset(0, 0).Value = "TH Value"
        MsgBox "verify if there was a check shot"
        Exit For
  End If
Next cell

End Sub

您也可以使用“直到/执行While循环”代替“ For循环”。>

希望对您有帮助。