Range.Find方法无故失效，触发运行时错误91：对象变量未设置

核心问题分析 #

你的代码触发错误91，本质是rng.Find返回了Nothing（未找到目标标签），却直接调用.Column属性导致的。以下是几个最可能的原因和对应的修复方案：

1. 单元格引用范围错误

你写的Sheets("Log").Range(Cells(3, 1), Cells(3, tc - 1))有个隐蔽坑：Cells(3,1)和Cells(3,tc-1)没指定工作表，会默认使用当前活动工作表的单元格。如果此时你没在"Log"表，这个Range会生成跨表的错误范围，自然搜不到标签。

修复代码：用With语句统一限定工作表，避免跨表引用：

With Sheets("Log")
    Set rng = .Range(.Cells(3, 1), .Cells(3, tc - 1))
End With

2. Find方法参数不明确导致匹配失效

Range.Find的默认参数可能和你的需求冲突：比如LookAt默认是xlPart（部分匹配），但如果单元格有隐藏空格、全角字符，或者搜索方向不对，都会匹配失败。哪怕你复制了标签，也要明确参数：

修复代码：指定完整匹配、忽略大小写、包含隐藏列：

Dim findResult As Range
Set findResult = rng.Find(What:="He.Price", _
                          LookIn:=xlValues, _
                          LookAt:=xlWhole, _
                          SearchOrder:=xlByColumns, _
                          MatchCase:=False, _
                          SearchHidden:=True)

3. 未处理“找不到”的边界情况

不管什么原因，Find都可能返回Nothing，直接取.Column必报错。必须先判断是否找到：

修复代码：

If Not findResult Is Nothing Then
    hepricec = findResult.Column
    ' 这里写后续用hepricec的代码
Else
    MsgBox "没找到He.Price列标签，检查工作表或搜索参数"
    Exit Sub ' 或者其他容错逻辑
End If

4. 检查单元格的实际内容

有时候视觉上的"He.Price"可能藏着不可见字符：比如末尾空格、全角点、换行符。可以在工作表选中该单元格，查看编辑栏的完整内容，或者用代码输出对比：

' 替换成你认为是目标列的列号，比如假设是第10列
Debug.Print Sheets("Log").Cells(3, 10).Value
Debug.Print Len(Sheets("Log").Cells(3, 10).Value) ' 看字符长度
Debug.Print Len("He.Price") ' 对比标准长度

如果长度不一样，说明有隐藏字符，要么清理单元格，要么调整搜索字符串。

完整可运行代码示例 #

Dim rng As Range
Dim findResult As Range
Dim hepricec As Long

' 限定工作表范围，避免跨表错误
With Sheets("Log")
    Set rng = .Range(.Cells(3, 1), .Cells(3, tc - 1))
End With

' 明确参数搜索目标标签
Set findResult = rng.Find(What:="He.Price", _
                          LookIn:=xlValues, _
                          LookAt:=xlWhole, _
                          SearchOrder:=xlByColumns, _
                          MatchCase:=False, _
                          SearchHidden:=True)

' 处理找到/没找到的情况
If Not findResult Is Nothing Then
    hepricec = findResult.Column
    ' 后续数据读写代码写在这里
    MsgBox "找到He.Price列，列号：" & hepricec
Else
    MsgBox "未找到He.Price列标签，请检查工作表"
    Exit Sub
End If

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