VBA跨两个工作表遍历指定单元格范围 代码可运行但未获预期结果

原代码的核心逻辑错误 #

• 循环索引逻辑不符合匹配需求：你定义的ID是Sheet6的B2:B8（共7个单元格），SN是Sheet2的C7:C184（共178个单元格），原代码用同一个索引i同时取两个范围的第i个单元格做对比，既没有遍历SN的全范围逐一匹配ID值，也完全没有覆盖SN的大部分单元格，仅对比了SN中C8到C13的少量内容。
• 循环边界错误：原代码写For i = 2 To ID.Cells.Count，ID.Cells.Count为7，也就是循环从i=2启动，直接跳过了ID范围的第一个单元格（B2），覆盖的ID范围不全。
• 偏移赋值未绑定当前循环对象：代码里的ID.Cells.Offset(0, 2).Value没有指定当前循环的目标单元格，默认指向ID范围的左上角单元格（B2），不管循环执行到哪一步，赋值永远只会写到D2单元格，不会写入对应ID所在行的D列。

修正后可正常运行的代码 #

Dim ID As Range
Dim SN As Range
Dim i As Integer
Dim matchRes As Variant

Set ID = Sheet6.Range("B2:B8")
Set SN = Sheet2.Range("C7:C184")

' 从1开始遍历ID的所有单元格，完整覆盖B2到B8的内容
For i = 1 To ID.Cells.Count
    ' 精确匹配当前ID值在SN范围的位置，匹配失败会返回错误值
    matchRes = Application.Match(ID.Cells(i).Value, SN, 0)
    If Not IsError(matchRes) Then
        MsgBox "do something"
        ' 明确绑定当前循环的ID单元格、以及匹配到的SN单元格做偏移取值
        ID.Cells(i).Offset(0, 2).Value = SN.Cells(matchRes).Offset(0, -2).Value
    Else
        MsgBox "sorry"
    End If
Next

额外排查提示 #

如果修正后仍出现「单元格看起来数值完全一致但匹配失败」的情况，优先检查两个范围的单元格值类型：比如ID列是文本格式存储的数字、SN列是常规数值格式，会导致匹配不通过。可以在匹配时统一转成字符串对比，将Application.Match的第一参数改为CStr(ID.Cells(i).Value)，即可规避类型差异问题。

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