VBA循环工作表时Cells.Find仅手动选中工作表生效，求解决方案

嘿，这个问题我之前也踩过坑！核心原因是你在使用Cells.Find的时候，没有明确指定它属于哪个工作表——VBA里如果不绑定具体对象，Cells和Range默认会指向当前活动的工作表，而不是你循环里的Current工作表，这就导致只有手动选中对应工作表时，Find才能找到目标内容。

修改后的完整代码 #

Sub LoopTest()
    Dim Current As Worksheet
    Dim range3 As Range
    ' 尽量避免Activate，直接引用工作簿对象更可靠
    Dim targetWB As Workbook
    Set targetWB = Workbooks("Book2.xlsm")
    
    For Each Current In targetWB.Worksheets
        ' 关键：所有Cells/Range都绑定到Current工作表
        Set range3 = Current.Cells.Find(What:="AAIDL00", _
            After:=Current.Range("A1"), _
            LookIn:=xlValues, _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, _
            MatchCase:=False, _
            SearchFormat:=False)
        
        If Not range3 Is Nothing Then
            Debug.Print "在工作表" & Current.Name & "中找到，位置：" & range3.Address
            ' 如果需要查找该工作表中的所有匹配项，可以启用以下循环
            ' Dim firstAddress As String
            ' firstAddress = range3.Address
            ' Do
            '     Debug.Print range3.Address
            '     Set range3 = Current.Cells.FindNext(range3)
            ' Loop While Not range3 Is Nothing And range3.Address <> firstAddress
        End If
    Next Current
End Sub

关键修改点说明 #

• 明确绑定工作表对象：把Cells.Find改成Current.Cells.Find，Range("A1")改成Current.Range("A1")，确保每一步操作都针对循环中的当前工作表，彻底摆脱对活动表的依赖。
• 移除不必要的Activate：直接通过targetWB引用目标工作簿，避免切换活动窗口带来的意外问题——这是VBA编写的最佳实践之一，能大幅减少因上下文切换导致的bug。
• 补充完整的查找逻辑：原代码里Debug.Pri...没写完，我帮你补全了基础的输出，还加了查找多个匹配项的示例（注释掉的部分），如果需要批量查找可以直接启用。

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