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

在所需位置添加

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"
        End If
    Next cell
End Sub

也可以使用Do-till/Do-While循环代替For循环

当您不打算向左/向右/向上/向下偏移时，您可以简单地使用

cell.Value=“TH值”

而不是

单元格偏移量（0,0）.Value=“第个值”

---

我希望它能有所帮助。

offset（0,0）

？不要使用任何循环，而是使用

范围。找到
并查看
xlPart
。在
范围中循环
对象会降低代码的速度。如果你想
在第一个找到的值上退出你的循环，那么就没有任何用处了（nomore=）如果我想删除TH值以上的所有变量呢？我该怎么编码呢？你需要进一步解释一下。这里的变量是什么意思？您指的是范围（“b1:b100”）中高于TH值的单元格吗？这是一个新问题
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.Value = "TH Value"
        MsgBox "verify if there was a check shot"
        Exit For
  End If
Next cell

End Sub