使用数组字典查同

ykcbf1100

天地一相 发表于 2024-4-21 14:40
请教，你的变量J在不同的循环里都使用了，同一个变量还是变量定义重复了。谢谢

不同的列是可以继续使用的。

ykcbf1100

天地一相 发表于 2024-4-21 14:46
这里这样修改了。得加一个判断吧。若Brr(i,2)=0则执行本行的查重。

不是这就是那，不用继续判断。
这里就是if m=n then就可以了。

ykcbf1100

天地一相 发表于 2024-4-21 14:42
不是呀，我左侧有300行数组，右侧会有20万行数据呢。这300行的每一行，要在右侧的20万行逐一查同的。

那你这附件摸拟得不好，而且，你应该直接说明，不然，别人得去猜啊。
我再看一下。

ykcbf1100

天地一相 发表于 2024-4-21 14:42
不是呀，我左侧有300行数组，右侧会有20万行数据呢。这300行的每一行，要在右侧的20万行逐一查同的。

不对啊，你左侧的每一行都要与右侧的N行数据比对的话，那右侧数据的前4列就无法有一个固定的数据了，因为右侧数据的每一行比对，都会对数组的同一行前4列数据产生影响。
我真搞不会了。

天地一相

ykcbf1100 发表于 2024-4-21 14:58
不是这就是那，不用继续判断。
这里就是if m=n then就可以了。

是这样的。第2列初始值都是0. 然后M=N后把该行第2列的值修改成1了。然后下一次ARR在BRR查同时，若BRR第2列为1，则表示这一行整个不用查了，同时也就不需要对该行第1列的位置持续加1了。

天地一相

ykcbf1100 发表于 2024-4-21 15:07
不对啊，你左侧的每一行都要与右侧的N行数据比对的话，那右侧数据的前4列就无法有一个固定的数据了，因为 ...

对，严格说，第3第4列一直在变，这两列其实就是辅助列，用来本次判断的。第2列，不是0，则表示本行需要查同，当M=N时，就被修改为1了，那以后本行就不再需要查了。第1列，会在M不等于N时，持续加1.是计数的。这1列的结果后面有用的。

ykcbf1100

天地一相 发表于 2024-4-21 15:16
对，严格说，第3第4列一直在变，这两列其实就是辅助列，用来本次判断的。第2列，不是0，则表示本行需要查 ...

整不会了。结果对不对我也没搞清楚。

ykcbf1100

仅供参考。。。

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

复制代码

天地一相

ykcbf1100 发表于 2024-4-21 16:39
整不会了。结果对不对我也没搞清楚。

不对。整半天也没搞清楚哪里不对，修正了点小处问题。第一列的计数结果不对，少了。请教，为什么不是把右侧数组里的5-26列搞成字典，然后逐行查呢？

天地一相

ykcbf1100 发表于 2024-4-21 16:39
整不会了。结果对不对我也没搞清楚。

问题会不会在这里，不同段的字典比对之间需要一次清空字典结果。