VBA Range.Find查找失败报Object variable or With block variable not set错如何解决

报错的核心诱因是Find方法未匹配到目标值时会返回Nothing空对象，直接对空对象调用Row属性就会触发该异常，和单元格格式设置无关。

1. 先声明Range对象接收查找结果，提前判断结果是否为空再读取行号
2. 显式指定Find的匹配参数，避免继承上一次查找的隐性设置导致匹配失败

Dim findRng As Range
Dim COL As String
Dim RowFound As Long

COL = Cells(5, "A").Text
' 显式指定查找规则，匹配单元格全值、在值中查找
Set findRng = Sheets("Master List").Columns("A").Find( _
    What:=COL, _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    MatchCase:=False _
)

' 先判断是否找到结果
If Not findRng Is Nothing Then
    RowFound = findRng.Row
    ' 后续业务逻辑可写在此处
Else
    ' 匹配不到的处理逻辑，比如弹窗提示
    MsgBox "未找到匹配的6位数字：" & COL
End If

• 如果你要查找的6位数字存在带前导零的情况，除了设置单元格格式为文本，输入值时最好手动加单引号前缀，避免Excel自动识别为数字抹掉前导零导致匹配失败
• 如果工作表"Master List"存在隐藏行，需要把LookIn参数改为xlFormulas才能查到隐藏行里的内容

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