VBA Find函数抛出'对象必需'错误，请求代码排查修复

我来帮你搞定这个“对象必需”的错误！问题的根源其实出在你With语句里的.Activate调用上，咱们一步步理清楚：

错误原因分析 #

你写的With ThisWorkbook.Sheets(" MthruF Schedule").Range("A1").Cells(3, 1).Activate是个致命问题：Activate方法返回的是布尔值（True/False），而不是Range对象。这就导致整个With块的上下文变成了一个布尔值，当你调用.Find时，布尔值根本没有这个方法，自然就抛出“对象必需”的错误了。

另外，你之前依赖Activate和ActiveCell的写法很不稳定——一旦用户在代码运行时点击了其他单元格/工作表，代码就会跑偏。咱们应该直接操作对象，完全去掉不必要的激活操作。

修正后的完整代码 #

Sub UpdateEmpInfo()
    Dim ws As Worksheet
    Dim Req As Variant
    Dim FirstAddress As String
    Dim cF As Range
    
    ' 直接绑定目标工作表，避免Activate
    Set ws = ThisWorkbook.Sheets(" MthruF Schedule")
    
    ' 获取申请编号
    Req = InputBox("Please Enter Requisition Number", "Information")
    ' 如果用户取消输入，直接退出
    If Req = "" Then Exit Sub
    
    ' 用With块绑定要搜索的区域（这里假设从A3开始搜索整个A列的已使用范围）
    With ws.Range("A3:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        ' 执行Find，这里after参数设为区域的最后一个单元格，这样Find会从第一个单元格开始搜索
        Set cF = .Find(What:=Req, _
                      After:=.Cells(.Cells.Count), _
                      LookIn:=xlFormulas, _
                      LookAt:=xlPart, _
                      SearchOrder:=xlByColumns, _
                      SearchDirection:=xlNext, _
                      MatchCase:=False, _
                      SearchFormat:=False)
        
        ' 如果找到匹配项，循环处理所有结果
        If Not cF Is Nothing Then
            FirstAddress = cF.Address
            Do
                ' 写入用户表单信息到对应偏移单元格
                cF.Offset(0, 9).Value = EmpInfo.FirstName.Value & " " & EmpInfo.LastName.Value
                cF.Offset(0, 10).Value = EmpInfo.ComboBox3.Value & "/" & EmpInfo.ComboBox20.Value & "/" & EmpInfo.YearCmb.Value
                cF.Offset(0, 11).Value = EmpInfo.AgencyBox.Value
                cF.Offset(0, 12).Value = EmpInfo.AgencyName.Value
                
                ' 查找下一个匹配项
                Set cF = .FindNext(cF)
            ' 循环直到回到第一个匹配项的地址
            Loop While Not cF Is Nothing And cF.Address <> FirstAddress
        Else
            ' 可选：如果没找到匹配项，提示用户
            MsgBox "Requisition Number not found!", vbInformation
        End If
    End With
End Sub

关键改动说明 #

• 移除所有Activate/ActiveCell：直接绑定ws变量到目标工作表，操作Range对象时直接引用，避免了激活带来的不稳定问题。
• 修正With块上下文：现在With块绑定的是要搜索的A列区域（从A3到最后一行有数据的单元格），确保.Find是在正确的Range对象上调用。
• 调整Find的After参数：把After设为搜索区域的最后一个单元格，这样Find会从区域的第一个单元格（A3）开始搜索，不需要依赖ActiveCell。
• 增加用户取消输入的处理：如果用户点击输入框的取消，直接退出子程序，避免后续出错。
• 添加未找到匹配的提示：可选的友好提示，让用户知道搜索结果。

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