VBA循环中使用Match函数报错求助：无法判断复制状态

问题描述 #

这段代码用于检查源工作表wsLCLHU到目标工作表wsCallLCL的行复制状态：若wsLCLHU的H列值能在wsCallLCL的I列匹配到，就在wsLCLHU对应行的CE列写入“OK”，否则留空。但代码执行到res行时停滞报错，尝试错误处理和参考示例代码后仍未解决。

错误原因分析 #

1. Match参数类型错误：原代码第一个参数传入的是多单元格可见区域，但Application.Match仅支持单个值或一维数组作为查找值，直接传入多单元格区域会触发类型不匹配错误。
2. 循环逻辑错误：循环遍历每行时，始终用整个可见区域去匹配，而非当前循环行的H列单元格值，逻辑完全偏离需求。
3. 变量未声明：row变量未显式声明，属于隐式Variant类型，易引发意外的类型错误。
4. 潜在行号有效性问题：foundrow和lastrowHU若未被正确赋值为有效行号，会导致Range引用无效。

修复后的代码 #

Sub CheckCopyStatus()
    Dim res As Variant
    Dim row As Long
    Dim wsLCLHU As Worksheet, wsCallLCL As Worksheet
    Dim FirstRow As Long, LastRow As Long
    Dim currentCell As Range
    
    ' 确保工作表对象已正确赋值（根据实际工作表名称调整）
    Set wsLCLHU = ThisWorkbook.Worksheets("源工作表名称")
    Set wsCallLCL = ThisWorkbook.Worksheets("目标工作表名称")
    
    FirstRow = foundrow ' 需确保foundrow是有效可见区域首行行号
    LastRow = lastrowHU ' 需确保lastrowHU是有效可见区域末行行号
    
    ' 遍历可见区域的H列单元格
    For Each currentCell In wsLCLHU.Range("H" & FirstRow & ":H" & LastRow).SpecialCells(xlCellTypeVisible)
        row = currentCell.Row
        ' 用当前行H列的值作为查找目标
        res = Application.Match(currentCell.Value, wsCallLCL.Range("I:I"), 0)
        
        If IsError(res) Then
            wsLCLHU.Range("CE" & row).Value = ""
        Else
            wsLCLHU.Range("CE" & row).Value = "OK"
        End If
    Next currentCell
End Sub

关键修改说明 #

• 修正Match参数：改为传入当前循环行H列的单个单元格值，符合Match函数的参数要求。
• 遍历可见区域单元格：用For Each直接遍历可见区域的H列单元格，无需手动处理行号范围，避免无效行的遍历。
• 显式声明变量：添加row、工作表对象等变量的显式声明，提升代码稳定性和可读性。
• 补充工作表对象赋值：确保wsLCLHU和wsCallLCL被正确指向对应的工作表，避免对象引用错误。

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