求助：如何实现非行序依赖的两个Worksheet多行多列数据差异比对

问题分析 #

你当前的脚本是按行号+列号逐个单元格比对，只有两行在两个表中位置完全一致时才会判定为相同，一旦行的排列顺序不同，就会误判为差异。要实现“整行数据是否存在于另一表中”的需求，需要按整行内容进行匹配，而非位置。

改进后的VBA代码 #

Private Sub CommandButton1_Click()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim sourceRow As Range, targetRow As Range
    Dim rowKey As String
    Dim rowKeys As Collection
    Dim delimiter As String
    
    ' 初始化工作表对象
    Set wsSource = ThisWorkbook.Worksheets("RP")
    Set wsTarget = ThisWorkbook.Worksheets("R4")
    ' 设置分隔符（建议用不会出现在单元格内容里的字符，比如|）
    delimiter = "|"
    Set rowKeys = New Collection
    
    ' 第一步：把目标表（R4）的所有行转成唯一字符串，存入集合
    On Error Resume Next ' 忽略重复行的添加错误
    For Each targetRow In wsTarget.UsedRange.Rows
        rowKey = ""
        ' 拼接当前行所有单元格内容为一个字符串
        For Each cell In targetRow.Cells
            rowKey = rowKey & cell.Value & delimiter
        Next cell
        ' 添加到集合（集合自动去重，重复行只存一次）
        rowKeys.Add rowKey, Key:=rowKey
    Next targetRow
    On Error GoTo 0 ' 恢复错误捕获
    
    ' 第二步：遍历源表（RP）的每一行，检查是否在目标表的行集合中
    For Each sourceRow In wsSource.UsedRange.Rows
        rowKey = ""
        For Each cell In sourceRow.Cells
            rowKey = rowKey & cell.Value & delimiter
        Next cell
        ' 如果不在集合中，标记整行为黄色
        On Error Resume Next
        rowKeys.Item rowKey
        If Err.Number <> 0 Then
            sourceRow.Interior.Color = vbYellow
        End If
        On Error GoTo 0
    Next sourceRow
    
    ' 释放对象
    Set wsSource = Nothing
    Set wsTarget = Nothing
    Set rowKeys = Nothing
End Sub

代码说明 #

• 分隔符选择：用|作为分隔符是为了避免不同列内容拼接后产生歧义（比如A列是"AB"、B列是"C"，和A列"A"、B列"BC"，不用分隔符的话都会变成"ABC"，导致误判）
• 集合存储：把目标表的行字符串存入集合，利用集合的Key特性实现快速查找，比逐行遍历比对效率更高
• 错误捕获：通过On Error Resume Next检查行字符串是否存在于集合中，不存在时会触发错误，据此标记差异行

使用注意事项 #

• 如果你的单元格内容中包含|，请替换成其他不会出现的字符（比如^或~）
• 若需要标记目标表中不存在于源表的行，只需调换wsSource和wsTarget的角色即可

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