Excel VBA嵌套Find函数引发无限循环，请求排查错误

问题原因 #

核心问题在于Excel VBA的Find函数会共享同一个Range对象的搜索状态：

• 当你在第一个Find的循环中调用第二个.Find（复用同一个With块的Range引用）时，第二个Find会覆盖该Range上一次的搜索参数（包括查找值、匹配方式等）。
• 后续执行.FindNext(cell)时，会使用第二个Find的参数（查找datatoFindNew=5）而非第一个Find的参数（查找datatoFind=1），导致无法正确回到循环起始的firstAddress，最终陷入无限循环。

解决方案 #

避免在同一个Range对象的Find循环中复用该Range执行新的Find操作，改为显式指定完整的Range路径调用Find，确保不干扰第一个Find的搜索状态。

修改后的代码示例 #

Sub findInfind()
    Dim cell As Range
    Dim cellNew As Range
    Dim datatoFind
    Dim datatoFindNew
    Dim firstAddress As String
    
    datatoFind = 1
    datatoFindNew = 5

    With S_Staebe.Range("Knot_Nr_Ende")
        Set cell = .Find(What:=datatoFind, LookIn:=xlValues, LookAt:=xlWhole)

        If Not cell Is Nothing Then
            firstAddress = cell.Address
            Do
                ' 自定义业务代码
                ' if ... then ...
                    ' 显式指定完整Range路径，避免干扰原Find的搜索状态
                    Set cellNew = S_Staebe.Range("Knot_Nr_Ende").Find(What:=datatoFindNew, LookIn:=xlValues, LookAt:=xlWhole)
                ' endif
                ' 自定义业务代码
                
                Set cell = .FindNext(cell)
                If cell Is Nothing Then Exit Do
            Loop Until cell.Address = firstAddress
        End If
    End With
End Sub

额外优化建议 #

可以调整循环逻辑，避免因cell为Nothing时访问cell.Address导致的错误：

' 替换原循环部分
Do
    ' 自定义业务代码
    ' ...
    
    Set cell = .FindNext(cell)
Loop While Not cell Is Nothing And cell.Address <> firstAddress

内容的提问来源于stack exchange，提问作者alwa