如何检查Excel两个输入数据集之间是否存在重复的连续值对

需求明确 #

你需要对两组用户输入的单元格序列，提取相邻连续值对，不考虑值对内部顺序，匹配两组中元素完全一致的值对，匹配结果对应不同的决策逻辑。
以你给出的示例验证：

• DataSetOne的(A,B)、DataSetTwo的(A,B)元素完全一致，判定为匹配
• DataSetOne的(C,D)、DataSetTwo的(D,C)元素完全一致，不考虑顺序也判定为匹配

公式实现方案（无需启用宏） #

适合小数据量、不想使用宏的场景，操作步骤如下：

前置准备 #

假设两组输入的存放位置：

• 第一组输入（DataSetOne共8个值）放在A1:A8单元格区域
• 第二组输入（DataSetTwo共5个值）放在C1:C5单元格区域

步骤1：生成标准化值对 #

为了消除顺序对匹配的影响，我们把所有值对统一转成「字母序小的在前、大的在后」的标准化格式，比如(C,D)和(D,C)标准化后都是C|D，会被自动判定为相同值对。

• 处理DataSetOne：在B1单元格输入公式，下拉填充到B7单元格，得到第一组全部7个标准化值对

=IF(CODE(A1)<=CODE(A2),A1&"|"&A2,A2&"|"&A1)

• 处理DataSetTwo：在D1单元格输入相同公式，下拉填充到D4单元格，得到第二组全部4个标准化值对

=IF(CODE(C1)<=CODE(C2),C1&"|"&C2,C2&"|"&C1)

步骤2：匹配重复值对 #

• 要查询DataSetOne里哪些值对存在匹配，在E1输入公式，下拉填充到E7即可

=IF(COUNTIF($D$1:$D$4,B1)>0,"存在匹配","无匹配")

• 要查询DataSetTwo里哪些值对存在匹配，在F1输入公式，下拉填充到F4即可

=IF(COUNTIF($B$1:$B$7,D1)>0,"存在匹配","无匹配")

VBA实现方案（适合批量/自动化场景） #

如果数据量较大、或者需要和其他自动化逻辑联动，可以使用VBA实现，示例代码如下：

Sub 匹配无序连续值对()
    Dim DataSetOne As Variant, DataSetTwo As Variant
    Dim dict As Object
    Dim i As Integer, pairKey As String
    
    ' 读取两组输入数据，可根据实际单元格位置修改
    DataSetOne = Range("A1:A8").Value
    DataSetTwo = Range("C1:C5").Value
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 先将第二组所有标准化值对存入字典
    For i = 1 To UBound(DataSetTwo) - 1
        If DataSetTwo(i, 1) <= DataSetTwo(i + 1, 1) Then
            pairKey = DataSetTwo(i, 1) & "|" & DataSetTwo(i + 1, 1)
        Else
            pairKey = DataSetTwo(i + 1, 1) & "|" & DataSetTwo(i, 1)
        End If
        If Not dict.exists(pairKey) Then dict.Add pairKey, True
    Next i
    
    ' 遍历第一组值对检查匹配，结果输出到B列对应位置
    For i = 1 To UBound(DataSetOne) - 1
        If DataSetOne(i, 1) <= DataSetOne(i + 1, 1) Then
            pairKey = DataSetOne(i, 1) & "|" & DataSetOne(i + 1, 1)
        Else
            pairKey = DataSetOne(i + 1, 1) & "|" & DataSetOne(i, 1)
        End If
        Range("B" & i).Value = IIf(dict.exists(pairKey), "存在匹配：" & pairKey, "无匹配")
    Next i
    
    Set dict = Nothing
End Sub

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