使用数组字典查同

天地一相

感谢帮助。详见截图附件。

ykcbf1100

看不太明白。查同后，第3列的3哪里来的？查同时是一行一行查吗？

liulang0808

建议楼主结合附件内容，再逐一细化说明需求吧

Qs18

看不懂需求

天地一相

ykcbf1100 发表于 2024-4-21 10:44
看不太明白。查同后，第3列的3哪里来的？查同时是一行一行查吗？

嗯，我也琢磨是不是没表述清楚。早上突然冒出的想法。是一行一行的查，我的示例，就B5:G5区域，在灰色N5:X5查同，有3个重复，3就是这个意思。

ykcbf1100

楼主摸拟的数据部分有误，请楼主核对。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.21
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = [b5:g7]
   
4.     brr = [j5:ai7]
   
5.     For i = 1 To UBound(arr)
   
6.         d.RemoveAll
   
7.         For j = 1 To UBound(arr, 2)
   
8.             s = arr(i, j)
   
9.             d(s) = ""
   
10.         Next
    
11.         m = 0: n = 0
    
12.         For j = 5 To 15
    
13.             s = brr(i, j)
    
14.             If d.exists(s) Then m = m + 1
    
15.         Next
    
16.         brr(i, 3) = m
    
17.         For j = 16 To UBound(brr, 2)
    
18.             s = brr(i, j)
    
19.             If d.exists(s) Then n = n + 1
    
20.         Next
    
21.         brr(i, 4) = n
    
22.         If m = n Then
    
23.             brr(i, 1) = 0: brr(i, 2) = 1
    
24.         Else
    
25.             brr(i, 1) = 1: brr(i, 2) = 0
    
26.         End If
    
27.     Next
    
28.     [j5:ai7] = brr
    
29.     Set d = Nothing
    
30.     MsgBox "OK！"
    
31. End Sub
    

复制代码

天地一相

ykcbf1100 发表于 2024-4-21 11:06
参与一下。。。

谢谢，感觉缺少左侧数据区的行循环。两个数组区，行与行要全组合搭配一次的。我看不出，数组1的每一行与数组2的每一行之间的循环组合。

ykcbf1100

大循环是For i = 2 To UBound(arr)，在这个基础上，再开始列循环。你没看出来？

arr数组就是左侧数据。行循环用的是arr数组，列循环用的是brr数组。

ykcbf1100

字典是按行来的，即每一行数据都要字典重新来一次。说下原理吧，对行进行循环，先对数组arr字典排重，然后，再对数组brr进行二次列循环比对，比对的方法就是如果字典值存在，则计数+1,二次循环的计数分别是m和n。