VBA循环查找赋值报错求助：STATUS SHEET与LRV ISSUES跨表联动

核心问题分析 #

程序仅单次运行即报错，主要原因大概率是循环中未正确重置查找起始位置，或未处理查找失败的边界情况，导致后续查找触发空对象引用错误；此外，跨工作表操作时未明确指定工作表对象，也可能引发运行时异常。

修正后的VBA代码 #

Sub FindOOS()
    Dim statusWs As Worksheet, issuesWs As Worksheet
    Dim searchRange As Range, foundCell As Range, matchCell As Range
    Dim firstFoundAddr As String
    Dim vehicleId As String
    
    ' 绑定目标工作表，避免ActiveSheet带来的不稳定
    Set statusWs = ThisWorkbook.Worksheets("STATUS SHEET")
    Set issuesWs = ThisWorkbook.Worksheets("LRV ISSUES")
    
    ' 定义STATUS SHEET中查找"0"的指定区域（请替换为实际范围）
    Set searchRange = statusWs.Range("B2:Z100")
    
    ' 查找第一个值为"0"的单元格
    Set foundCell = searchRange.Find(What:="0", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        firstFoundAddr = foundCell.Address ' 记录首次查找位置，防止死循环
        
        Do
            ' 获取左侧偏移的车辆编号（根据实际布局调整Offset参数）
            vehicleId = foundCell.Offset(0, -1).Value
            
            ' 在LRV ISSUES中匹配车辆编号（假设编号在A列，可修改范围）
            Set matchCell = issuesWs.Range("A:A").Find(What:=vehicleId, LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not matchCell Is Nothing Then
                ' 在匹配单元格右侧写入"OOS"（调整Offset参数可改变写入位置）
                matchCell.Offset(0, 1).Value = "OOS"
            Else
                ' 可选：输出未找到编号的调试信息
                Debug.Print "车辆编号 " & vehicleId & " 在LRV ISSUES中无匹配"
            End If
            
            ' 查找下一个"0"
            Set foundCell = searchRange.FindNext(foundCell)
            
        ' 循环终止条件：回到首次查找的单元格
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddr
    Else
        Debug.Print "STATUS SHEET指定区域未找到值为""0""的单元格"
    End If
    
    ' 释放对象资源
    Set statusWs = Nothing
    Set issuesWs = Nothing
    Set searchRange = Nothing
    Set foundCell = Nothing
    Set matchCell = Nothing
End Sub

关键修复点 #

• 明确工作表对象：直接绑定statusWs和issuesWs，避免依赖ActiveSheet导致的上下文错误。
• 防止死循环：用firstFoundAddr标记首次查找的单元格地址，确保FindNext循环正常终止。
• 边界错误处理：每次查找后检查foundCell和matchCell是否为Nothing，避免空对象引用报错。
• 精确匹配控制：Find方法指定LookAt:=xlWhole，确保匹配完整单元格内容（需模糊匹配可改为xlPart）。

工作表数据示例 #

STATUS SHEET 示例数据 #

LRV ISSUES 执行后示例数据 #

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