VBA宏启动时未激活目标工作表导致.Find()返回Nothing问题求助

故障根因 #

rngArea变量定义时未显式指定所属工作表，VBA默认将其绑定为宏启动时刻的激活工作表，而非后续切换的mySheet工作表。当启动宏时未选中mySheet，查找范围始终是初始激活的其他工作表，无匹配结果就返回Nothing，该故障和管理员权限无关。

修正要点 #

• 显式为rngArea指定所属工作表，取消对Activate操作的状态依赖（VBA开发中不推荐使用Select/Activate这类依赖界面状态的方法，容易出现不可预期问题）
• 补全Find方法的全量参数，避免继承上一次手动查找的参数配置导致匹配异常
• 调整变量声明和赋值顺序，避免逻辑错位

修正后代码 #

Dim rngFirst As Range
Dim rngNext As Range
Dim rngArea As Range
Dim defaultValue As Date, insertedDate As Date
Dim targetSht As Worksheet

' 显式绑定目标工作表，无需激活即可操作
Set targetSht = ActiveWorkbook.Sheets("mySheet")
Set rngArea = targetSht.Range("A:Z")

defaultValue = Format(Date, "dd.mm.yyyy")
insertedDate = Application.InputBox(message, title, Format(defaultValue, "dd.mm.yyyy"), Type:=1)

Do
  If rngFirst Is Nothing Then
     ' 补全Find的核心参数，避免继承历史配置
     Set rngFirst = rngArea.Find(What:=insertedDate, After:=rngArea(1), _
                                 LookIn:=xlValues, LookAt:=xlWhole, _
                                 MatchCase:=False)
     Set rngNext = rngFirst
     If rngNext Is Nothing Then
        MsgBox "查找会议日期出现问题，请检查！" + Chr(10) + "宏将在此处终止。"
        Exit Sub
     End If
  Else
     ' 对查找到的内容执行相关操作
     ' 查找工作表中的下一个匹配项，同样补全参数
     Set rngNext = rngArea.Find(What:=insertedDate, After:=rngNext, _
                                 LookIn:=xlValues, LookAt:=xlWhole, _
                                 MatchCase:=False)
     If rngNext.Address = rngFirst.Address Then Exit Do
  End If
Loop

注意事项 #

只要涉及Range、Cells等单元格对象操作，都建议显式指定所属的父级工作表，不要依赖当前激活状态，否则很容易出现跨表操作错位的问题。

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