Question

美好的一天，

我正在尝试结束我已完成的循环，但不确定应该输入什么。一旦值被偏移，就是这样，我想结束循环。有时，要查找的值不止一个，excel中的所有数据总计直到第1500行。

请帮帮我。这是我在下面使用的代码。

Sub third()

    Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A1500").End(xlUp))

    Do
        Set c = SrchRng.Find("31184", LookIn:=xlValues)
       If Not c Is Nothing Then c.Offset(0, 8).Value = "INPUT A NAME"
    Loop

End Sub

Answer 1

怎么样：

Sub third()
    Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A1500").End(xlUp))
    Do
        Set c = SrchRng.Find("31184", LookIn:=xlValues)
        If Not c Is Nothing Then
            c.Offset(0, 8).Value = "INPUT A NAME"
            Exit Do
        End If
    Loop
End Sub

如何结束这种循环？

1 个答案: