对比筛选显示单一结果，请求用VBA代码帮助完成,精确匹配

苍海一粟

flyfairy 发表于 2020-9-28 10:52
看起来嵌套字典比较容易实现.

基本的VBA还是刚学了一点点，皮毛都不算，哪会字典这么高深档次的。

yjh_27

苍海一粟 发表于 2020-9-28 10:45
设了一个，但总提示有误。
Sub 查找相同单元格()
Dim x%, y%, rng1 As Range, rng2 As Range

参见附件。

准提部林

Sub TEST_A1()
Dim Arr, xD, T$, T1$, TT$, i&, M&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range(Sheet2.[F1], Sheet2.[F65536].End(xlUp))
For i = 3 To UBound(Arr): xD(Arr(i, 1) & "") = 1: Next i
Arr = Range(Sheet1.[D1], Sheet1.[D65536].End(xlUp))
For i = 5 To UBound(Arr)
    T = Arr(i, 1): T1 = T & "|"
    If T = "" Or xD(T) = 0 Then GoTo 101
    xD(T1) = xD(T1) + 1
    If xD(T1) > M Then M = xD(T1): TT = T
101: Next i
Sheet1.[H2] = TT
End Sub

苍海一粟

yjh_27 发表于 2020-9-28 11:51
参见附件。

谢谢老师！！！

苍海一粟

准提部林 发表于 2020-9-28 13:06
Sub TEST_A1()
Dim Arr, xD, T$, T1$, TT$, i&, M&
Set xD = CreateObject("Scripting.Dictionary")

谢谢！！！

ph378

学习学习了