如何在两片区域互相查找重复值，不重复值

rocklyman

有两个需求
1。左边区域判定NG的组合值在右边区域查找是否有重复值
2。右边区域再反向查找左边区域是否有不重复值
请大神帮忙看下

新建Microsoft Excel 工作表 (2).zip (9.57 KB, 下载次数: 5)

2023-3-21 14:35 上传

点击文件名下载附件

蓝桥玄霜

怎么样的算是重复的？

rocklyman

蓝桥玄霜 发表于 2023-3-21 14:48
怎么样的算是重复的？

版主好！
左边”模号+穴号+搭配“与右边”模号+穴号+搭配“是否有重复

grf1973

。。。。。。。。。。。。。。。

rocklyman

grf1973 发表于 2023-3-21 15:02
。。。。。。。。。。。。。。。

太牛批了吧

准提部林

Sub TEST_A1()
Dim Arr, Brr, xD, i&, T$, k%, N&(1), m&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("a1").CurrentRegion
For i = 2 To UBound(Arr)
    xD(Arr(i, 1) & "+" & Arr(i, 2) & "+" & Arr(i, 3)) = 2 + (Arr(i, 4) = "NG")
Next i
Arr = Range("f1").CurrentRegion
ReDim Brr(1 To UBound(Arr), 1)
For i = 2 To UBound(Arr)
    T = Arr(i, 4) & "+" & Arr(i, 5) & "+" & Arr(i, 8)
    k = xD(T): If k > 1 Then GoTo i01
    N(k) = N(k) + 1: If N(k) > m Then m = N(k)
    Brr(N(k), 1 - k) = T
i01: Next i
[p1].Resize(m, 2) = Brr
End Sub