VBA借助Find.Address获取目标单元格位置时多类报错的解决咨询

三段测试代码的报错根源 #

所有报错都和Find方法的返回值规则、变量类型匹配逻辑、Set语句的使用要求直接相关：

• 第一段触发「运行时错误91：对象变量或with块变量未设置」
  Range.Find方法如果未匹配到目标字符串，会直接返回空对象（Nothing）。此时你对返回的空对象调用.Address属性，就会触发该错误。你没有提前声明Position的变量类型，它默认是Variant变体类型，本身可以接收Address返回的字符串值，问题核心是没有处理“查找不到结果”的空场景。
• 第二段触发「编译错误：类型不匹配」
  你声明Position为Range对象类型的变量，但赋值时取的是.Find(...).Address——这个值是字符串格式的单元格地址（比如"$A$12"），把文本值赋值给对象类型变量，自然出现类型不匹配。
• 第三段触发「编译错误：需要对象」
  该错误和第二段的逻辑完全同源：你使用Set语句给对象变量赋值时，要求等号右侧必须返回对象。但右侧表达式.Find(...).Address是字符串类型的普通值，不是对象，VBA就会抛出“需要对象”的提示。

定位场景的正确变量选型与代码规范 #

首先明确两类变量的适用边界：

• 如果需要后续操作找到的单元格（修改值、调整格式等），就声明变量为Range类型，赋值时直接承接Find方法的返回对象，不要额外加.Address属性
• 如果只需要获取单元格的地址文本字符串，就声明变量为String类型，赋值时承接Find返回对象的.Address属性，此时不能用Set语句（Set仅用于给对象变量赋值）
• 无论哪种写法，必须增加空对象判断，避免查找失败时触发运行时错误

可直接复用的正确代码示例 #

场景1：获取单元格对象，需要操作单元格时用

Dim targetCell As Range
' 显式绑定目标工作簿、工作表，避免默认激活表的干扰
With ThisWorkbook.Worksheets("替换为你的目标工作表名称").Range("A2:A62")
    ' 显式指定匹配规则，避免默认部分匹配带来的误判
    Set targetCell = .Find( _
        What:="Unplanned", _
        LookAt:=xlWhole, _ ' 匹配单元格完整内容
        MatchCase:=False ' 不区分大小写，按需调整
    )
End With

' 空值判断，避免找不到目标时报错
If Not targetCell Is Nothing Then
    Debug.Print "目标所在单元格地址：" & targetCell.Address
    ' 后续可直接操作单元格，比如 targetCell.Value = "已处理"
Else
    MsgBox "未在指定区域找到目标字符串"
End If

场景2：仅获取单元格地址文本时用

Dim cellAddr As String
Dim targetCell As Range
With ThisWorkbook.Worksheets("替换为你的目标工作表名称").Range("A2:A62")
    Set targetCell = .Find(What:="Unplanned", LookAt:=xlWhole, MatchCase:=False)
End With

If Not targetCell Is Nothing Then
    cellAddr = targetCell.Address
    Debug.Print "目标单元格地址：" & cellAddr
Else
    MsgBox "未在指定区域找到目标字符串"
End If

新手高频踩坑提醒 #

• 不要在给Range对象变量赋值时，给Find的返回结果加.Address：Address是对象的文本属性，本身不是对象，是最高发的错误点
• Find方法默认是“部分匹配”规则，如果要精准匹配单元格完整内容，一定要显式加上LookAt:=xlWhole参数，否则类似“Unplanned Work”的内容也会被误命中
• 尽量显式绑定工作表、工作簿，不要直接写裸的Range("A2:A62")，否则代码运行时如果切换到其他工作表，就会在错误的区域内执行查找
• 不要为了规避91错误随意给查找字符串加前后空格：91错误的核心原因是查找失败返回空对象、未做判断就取属性，不是查找字符串的匹配规则。随意加空格反而会因为和单元格实际内容不匹配，进一步加大查找失败的概率。

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