Question

我今天遇到了这个有趣的问题。我在另一个循环中有一个循环，并且都使用Find用于不同的目的。发生的事情是在内部循环中使用Find会拧紧外部循环上的Find。我猜excel只记忆一个搜索实例。有没有办法解决这个问题，还是设计问题呢？

这是我的代码的一些缩短版本。

Sub Main()
    'Some boring stuff

    Set lst_rapports = Worksheets("mappingTRANSIT").range("lst_rapports")
    Set first_result = lst_rapports.Find(rap_choisi)
    Set active_result = first_result

    Sheets("req01").Unprotect "shoobidoowap"
    If Not first_result Is Nothing Then
        ' ...            
        Do
            Sheets("req01").Select            
            ' ...
            For i = 0 To 4
                Set rubrique_cell = range("E:E").Find(rub(i))
                If Not rubrique_cell Is Nothing Then
                    ' ...
                End If
            Next i                
            ' Yet more boring stuff...

            Set active_result = lst_rapports.FindNext(active_result)
        Loop Until active_result.Address = first_result.Address
    Else
        MsgBox "Impossible de trouver """ & rap_choisi & """ !"
    End If
    Sheets("req01").Protect "shoobidoowap"
End Sub

注意在for循环中第二次使用.Find。

有什么方法可以保留第一次搜索某种临时变量并在之后恢复它？

非常感谢。

Answer 1

当您运行FindNext (MSDN for FindNext)时，它会自动使用与what上次呼叫相同的Find，即使用于其他范围也是如此。

要纠正此问题，而不是使用

Set active_result = lst_rapports.FindNext(active_result)

使用

Set active_result = lst_rapports.Find(rap_choisi,active_result)

VBA中的多个Range.Find（）

1 个答案: