Excel VBA查找数据透视表字段返回错误，跨表匹配行号不对应如何解决？

你遇到的错位问题核心原因是：采用的「筛选源表后复制可见单元格直接粘贴」逻辑本身不支持缺失值场景。源表筛选后只会保留匹配成功的行，粘贴到目标表时会按连续顺序写入，自动跳过了目标表中匹配失败的行位，最终导致值和行对应错乱。

推荐改用字典映射匹配的逻辑实现需求，全程不需要筛选、粘贴操作，天然保证行对齐，代码兼容性更高：

Sub 匹配车辆登记号()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary") ' 后期绑定字典，无需手动引用库
    
    Dim wbSite As Workbook, wsSite As Worksheet
    Set wbSite = ThisWorkbook
    Set wsSite = wbSite.Worksheets("test") ' 工作表A，对应你的test表
    
    ' 第一步：读取源表（工作表B）的匹配关系存入字典
    Dim wbSource As Workbook, wsSource As Worksheet, lastSourceRow As Long, i As Long
    Set wbSource = Workbooks.Open("c:\temp\EmployeeReport.xlsx", , True)
    Set wsSource = wbSource.Worksheets("Report 1")
    lastSourceRow = wsSource.Cells(wsSource.Rows.Count, "C").End(xlUp).Row ' 假设ID在源表C列，和你之前筛选field:=3对应
    
    For i = 2 To lastSourceRow ' 假设源表第1行是表头，从第2行开始读
        If Not dict.exists(wsSource.Cells(i, "C").Value) Then
            ' 假设车辆登记号存在源表M列，对应你之前复制的M列
            dict(wsSource.Cells(i, "C").Value) = wsSource.Cells(i, "M").Value
        End If
    Next i
    wbSource.Close SaveChanges:=False ' 读完直接关闭源表，不需要留在后台
    
    ' 第二步：遍历工作表A的ID，匹配字典值写入对应列
    Dim lastSiteRow As Long
    lastSiteRow = wsSite.Cells(wsSite.Rows.Count, "B").End(xlUp).Row ' 假设ID在test表B列，对应你之前取的B14:B10000
    
    For i = 14 To lastSiteRow ' 从B14开始遍历，和你原来的范围一致
        If dict.exists(wsSite.Cells(i, "B").Value) Then
            ' 匹配到值，写入K列（第11列），对应你原来粘贴的目标列，可根据实际需求调整列号
            wsSite.Cells(i, "K").Value = dict(wsSite.Cells(i, "B").Value)
        Else
            ' 未匹配到填null，可根据需要修改为其他值
            wsSite.Cells(i, "K").Value = "(null)"
        End If
    Next i
    
    Set dict = Nothing
    MsgBox "匹配完成"
End Sub

方案优势 #

• 完全规避行错位问题，每一行的匹配结果和工作表A的行严格一一对应
• 执行效率远高于筛选复制方案，数据量越大优势越明显
• 支持自定义缺失值的填充内容，灵活性更高

示例对照 #

你给出的测试数据匹配后完全符合预期：

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