Excel VBA查找结果为空仍进入If分支，报‘对象变量未设置’错误

问题根源 #

1. 未限定工作表的Range引用：After:=Range("F10000") 未指定所属工作表，若当前活动工作表不是"New1"，会导致Find方法的起始位置错误，甚至返回无效引用。
2. 循环条件的逻辑错误：VBA不支持逻辑短路运算，当foundCell变为Nothing时，循环条件Not foundCell Is Nothing And firstFound <> foundCell.Address会执行后半段foundCell.Address，此时访问Nothing对象的属性直接触发“对象变量或With块变量未设置”错误。
3. 依赖ActiveWorkbook的潜在风险：操作过程中若活动工作簿切换，会导致后续引用错误。

修复后的代码 #

Dim targetWs As Worksheet
Dim foundCell As Range
Dim firstFound As String
Dim lz As Variant ' 根据lz实际类型调整，比如String/Integer
Dim flag As Boolean
flag = True

' 明确指定目标工作簿和工作表，避免依赖ActiveWorkbook
Set targetWs = ThisWorkbook.Worksheets("New1") ' 可替换为实际外部工作簿，比如Workbooks("目标文件.xlsx")

Set foundCell = targetWs.Range("F:F").Find(What:=lz, _
    LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
    After:=targetWs.Range("F10000"), SearchDirection:=xlNext, _
    SearchFormat:=False, MatchCase:=False)

If Not foundCell Is Nothing Then
    firstFound = foundCell.Address
    Do
        ' 处理当前找到的单元格数据
        ' 示例：Debug.Print foundCell.Value, foundCell.Offset(0,1).Value
        
        ' 先执行FindNext，再判断有效性
        Set foundCell = targetWs.Range("F:F").FindNext(After:=foundCell)
        ' 循环终止条件：找不到匹配项，或回到第一个找到的单元格
    Loop While Not foundCell Is Nothing And foundCell.Address <> firstFound
Else
    flag = False
End If

关键修改点 #

• 绑定工作表对象：所有Range操作都关联到targetWs，避免活动表切换引发的错误。
• 调整循环逻辑：先执行FindNext再判断循环条件，确保访问foundCell.Address前，先验证对象是否有效。
• 移除ActiveWorkbook依赖：直接指定目标工作簿，比如ThisWorkbook代表宏所在工作簿，或明确外部工作簿对象。

额外优化建议 #

• 缩小搜索范围：不要整列搜索Range("F:F")，改用targetWs.Range("F1:F" & targetWs.Cells(targetWs.Rows.Count, "F").End(xlUp).Row)，提升搜索效率。
• 批量处理唯一值：若需遍历多个不同lz，先提取所有唯一lz值再逐个处理，避免重复搜索。

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