如何在同一Excel工作簿的两个工作表中匹配整行并校验数据一致性？

绝对可以实现！我经常帮同事处理这种大量数据的整行匹配校验，给你分享几个实用的方法，从简单公式到自动化工具都有，按需选就行：

假设你的两个工作表分别叫Sheet1（需要校验的表）和Sheet2（对照基准表），数据从A列开始，第一行是表头。你可以在Sheet1的空白列（比如AA列）的第二行输入以下公式：

=IF(SUMPRODUCT(--(MMULT(--(Sheet2!$A$2:$Z$1000=$A2:$Z2),ROW($A$1:$Z$1)^0)=COLUMNS($A:$Z)))>0,"匹配","不匹配")

公式说明： #

• 把Sheet2!$A$2:$Z$1000改成你实际的数据范围（比如最后一行是5000就改成$A$2:$Z$5000）
• $A2:$Z2是Sheet1当前行的所有数据列，根据你的实际列数调整（比如到X列就改成$A2:$X2）
• 输入完后按Ctrl+Shift+Enter（旧版Excel），新版Excel会自动识别数组公式，直接回车就行
• 下拉公式到所有行，就能看到每行是否在Sheet2中有完全匹配的行

如果你的列数不多，也可以用更直观的COUNTIFS公式，比如3列数据的话：

=IF(COUNTIFS(Sheet2!$A:$A,$A2,Sheet2!$B:$B,$B2,Sheet2!$C:$C,$C2)>0,"匹配","不匹配")

列数多的话就依次往后加条件，不过不如上面的数组公式高效。

如果数据量特别大（几万行以上），公式会很卡，用Power Query是最优解，步骤如下：

1. 打开Excel，点击数据选项卡，分别导入Sheet1和Sheet2的数据（选择「自表格/区域」，注意勾选“我的表格有标题”）
2. 对两个导入的查询表，都添加一个「合并列」：点击添加列>「合并列」，选择所有数据列，用一个不冲突的分隔符（比如|，确保你的数据里没有这个符号），给合并后的列命名为「整行标识」
3. 回到Power Query编辑器，点击主页>「合并查询」，选择Sheet1的「整行标识」和Sheet2的「整行标识」做匹配，匹配类型选「左外部」
4. 合并后，你会看到Sheet2的列，如果某行的Sheet2列是null，就说明这行在Sheet2中没有匹配项
5. 最后点击主页>「关闭并上载」，把结果加载回Excel，就能清晰看到所有不匹配的行

如果你需要经常做这种校验，写个VBA脚本一键搞定最方便，步骤如下：

1. 按Alt+F11打开VBA编辑器
2. 右键点击你的工作簿名称，选择「插入」>「模块」
3. 粘贴以下代码，记得把代码里的Sheet1和Sheet2改成你实际的工作表名称：

Sub CheckRowMatches()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, lastCol As Long
    Dim i As Long, j As Long, matchFound As Boolean
    
    ' 替换成你的工作表名称
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取数据的最后一行和最后一列
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    lastCol = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column
    
    ' 遍历Sheet1的每一行
    For i = 2 To lastRow1
        matchFound = False
        ' 在Sheet2中查找匹配行
        For j = 2 To lastRow2
            ' 校验当前行所有列是否完全匹配
            If WorksheetFunction.CountIfs(ws2.Range(ws2.Cells(j, 1), ws2.Cells(j, lastCol)), ws1.Range(ws1.Cells(i, 1), ws1.Cells(i, lastCol))) = lastCol Then
                matchFound = True
                Exit For
            End If
        Next j
        ' 在最后一列后面标记结果
        ws1.Cells(i, lastCol + 1).Value = IIf(matchFound, "匹配", "不匹配")
    Next i
    
    MsgBox "整行匹配校验完成！"
End Sub

4. 按F5运行脚本，或者回到Excel，点击开发工具>「宏」，选择CheckRowMatches执行，完成后会在Sheet1的最后一列后面自动标记每行的匹配状态

注意事项 #

• 确保两个表的数据类型一致：比如日期格式、数字格式（不要一个是文本型数字一个是数值型），不然会被识别为不匹配
• 空白单元格要一致：如果某行在Sheet1是空白，Sheet2对应位置也要是空白，否则影响匹配结果
• 大数据量优先选Power Query或VBA，数组公式在几万行数据下会明显卡顿

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