如何在Excel中检测两列数据的反向配对情况？

针对大数据量的表格，推荐以下三种高效实现方法：

方法一：辅助列+COUNTIFS公式（中等数据量适用） #

• 新增两个辅助列：
  1. 辅助列1（比如C列）：输入公式 =MIN(A2,B2)&"-"&MAX(A2,B2)，将每行的两个数值按从小到大拼接，让正向和反向配对生成统一格式（例：(1255,6584)和(6584,1255)都会变成1255-6584）
  2. 辅助列2（比如D列）：输入公式 =COUNTIFS($C:$C,C2)，统计该拼接字符串在辅助列1中的出现次数
• 结果判断：D列值为1时，说明当前配对无反向组合；值≥2时，说明存在反向配对

方法二：Power Query（大数据量高效首选） #

• 操作步骤：
  1. 选中数据区域，点击「数据」选项卡→「从表格/区域」，导入Power Query编辑器
  2. 添加自定义列，输入公式：

     =Text.Combine({Text.From(List.Min({[列1],[列2]})),Text.From(List.Max({[列1],[列2]}))},"-")
     

     生成统一格式的配对字符串
  3. 点击「转换」选项卡→「分组依据」，分组列选刚创建的自定义列，操作选「计数」，新列名设为「出现次数」
  4. 关闭并上载到新工作表，即可查看每个配对的出现次数，次数为1的就是无反向组合的配对

方法三：VBA批量处理（超大数据量最优解） #

• 按下Alt+F11打开VBA编辑器，插入模块后粘贴以下代码：

Sub CheckReversePairs()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim pairDict As Object
    Dim i As Long
    Dim key As String
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set pairDict = CreateObject("Scripting.Dictionary")
    
    '遍历数据生成统一键值并计数
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value <> "" And ws.Cells(i, "B").Value <> "" Then
            key = IIf(ws.Cells(i, "A").Value < ws.Cells(i, "B").Value, _
                ws.Cells(i, "A").Value & "-" & ws.Cells(i, "B").Value, _
                ws.Cells(i, "B").Value & "-" & ws.Cells(i, "A").Value)
            pairDict(key) = IIf(pairDict.Exists(key), pairDict(key) + 1, 1)
        End If
    Next i
    
    '输出结果到新工作表
    Dim resultWs As Worksheet
    Set resultWs = ThisWorkbook.Sheets.Add
    With resultWs
        .Cells(1, 1) = "配对组合"
        .Cells(1, 2) = "出现次数"
        .Cells(1, 3) = "是否存在反向配对"
        i = 2
        For Each key In pairDict.Keys
            .Cells(i, 1) = key
            .Cells(i, 2) = pairDict(key)
            .Cells(i, 3) = IIf(pairDict(key) >= 2, "是", "否")
            i = i + 1
        Next key
    End With
    
    MsgBox "处理完成，结果已输出到新工作表"
End Sub

• 运行代码后，会自动生成新工作表，展示所有配对的出现次数及反向配对存在情况

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