VBA匹配循环未找到值仍填充上一行数据问题求助

这种情况大概率是因为你没有在每次循环开始（或未找到匹配时）重置用于存储查找结果的变量，导致上一次成功匹配得到的数据被保留，进而错误填充到了不匹配的行里。下面给你具体的排查方向和修复方案：

1. 核心问题分析 #

先举个和你逻辑类似的错误示例，方便你对照理解：

Dim resultVal As Variant
For Each updrng1 In WorkRng1
    ' 在WorkRng2中查找匹配项
    Set matchCell = WorkRng2.Find(What:=updrng1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    ' 如果找到就赋值
    If Not matchCell Is Nothing Then
        resultVal = matchCell.Offset(0, 1).Value ' 假设取匹配单元格右侧的值
    End If
    ' 填充到当前工作表
    updrng1.Offset(0, 1).Value = resultVal
Next updrng1

这里的问题很明显：当某次循环没找到匹配项时，resultVal还是上一次循环成功匹配得到的值，自然就把旧数据填进去了。

2. 两种修复方案 #

你只需要在循环中加入「重置结果」的逻辑就行，两种方式都能解决问题：

方案一：每次循环开始时重置变量 #

Dim resultVal As Variant
For Each updrng1 In WorkRng1
    ' 每次循环先把结果变量重置为空
    resultVal = ""
    ' 执行查找逻辑
    Set matchCell = WorkRng2.Find(What:=updrng1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not matchCell Is Nothing Then
        resultVal = matchCell.Offset(0, 1).Value
    End If
    ' 填充数据
    updrng1.Offset(0, 1).Value = resultVal
Next updrng1

方案二：未找到匹配时主动设置默认值 #

Dim resultVal As Variant
For Each updrng1 In WorkRng1
    Set matchCell = WorkRng2.Find(What:=updrng1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not matchCell Is Nothing Then
        resultVal = matchCell.Offset(0, 1).Value
    Else
        ' 未找到时主动设置为空（或你需要的默认值，比如"无匹配"）
        resultVal = ""
    End If
    updrng1.Offset(0, 1).Value = resultVal
Next updrng1

3. 额外注意事项 #

• 用Find方法时，每次查找后可以加上Set matchCell = Nothing，避免残留对象引用影响后续循环；
• 确认LookAt:=xlWhole是你需要的精确匹配，要是需要模糊匹配就改成xlPart，但精确匹配能减少不必要的错误；
• 如果你的循环范围是多行多列，要检查Offset的偏移方向是否正确，别填错了单元格位置。

你对照自己的代码调整一下，应该就能解决未匹配时用上一行数据填充的问题啦～

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