Excel VBA实现两列双向重复值移除问题求助

RemoveDuplicates方法是严格按列顺序匹配重复项的，只有当两行的A列、B列值完全对应（例如都是(a,b)）时才会判定为重复，而(a,b)和(b,a)这种双向组合不会被识别，所以你的代码无法生效。以下是两种可行的解决方案：

方案1：使用辅助列生成统一键去重 #

通过添加辅助列，将每行的两个值按固定规则（如升序）拼接成唯一键，让RemoveDuplicates能识别双向重复项，步骤如下：

Sub RemoveBidirectionalDuplicates()
    Dim ws As Worksheet
    Set ws = ActiveSheet '可替换为指定工作表，如ThisWorkbook.Worksheets("你的表名")
    
    '插入辅助列C
    ws.Columns("C:C").Insert Shift:=xlToRight
    ws.Cells(1, "C").Value = "Key" '设置表头
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '遍历生成统一键：将A、B列值按顺序排序后拼接
    Dim i As Long
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value <= ws.Cells(i, "B").Value Then
            ws.Cells(i, "C").Value = ws.Cells(i, "A").Value & "|" & ws.Cells(i, "B").Value
        Else
            ws.Cells(i, "C").Value = ws.Cells(i, "B").Value & "|" & ws.Cells(i, "A").Value
        End If
    Next i
    
    '基于辅助列删除重复行
    ws.Range("A:C").RemoveDuplicates Columns:=3, Header:=xlYes
    
    '删除辅助列
    ws.Columns("C:C").Delete
End Sub

说明： #

• 辅助列把(a,b)和(b,a)转化为完全相同的键（如a|b），让系统能识别为重复项。
• 分隔符|可替换为数据中不会出现的字符，避免拼接后产生歧义。
• 该方法效率较高，适合处理大数据量。

方案2：无辅助列，遍历标记删除 #

通过遍历每行，用集合存储已处理过的双向键，从后往前检查并删除重复行，无需辅助列：

Sub RemoveBidirectionalDuplicates_NoHelper()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    Dim seenKeys As Collection
    Set seenKeys = New Collection
    
    Dim i As Long
    Dim currentKey As String
    Dim isDuplicate As Boolean
    
    '从下往上遍历，避免删除行后索引混乱
    For i = lastRow To 2 Step -1
        '生成统一键
        If ws.Cells(i, "A").Value <= ws.Cells(i, "B").Value Then
            currentKey = ws.Cells(i, "A").Value & "|" & ws.Cells(i, "B").Value
        Else
            currentKey = ws.Cells(i, "B").Value & "|" & ws.Cells(i, "A").Value
        End If
        
        '检查键是否已存在
        isDuplicate = False
        On Error Resume Next
        seenKeys.Add currentKey, Key:=currentKey
        If Err.Number <> 0 Then isDuplicate = True
        On Error GoTo 0
        
        '重复则删除该行
        If isDuplicate Then ws.Rows(i).Delete
    Next i
End Sub

说明： #

• 从后往前遍历是为了避免删除行后，后续行的索引发生偏移导致漏处理。
• 集合seenKeys用于记录已经处理过的双向组合，确保只保留第一次出现的行。

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