使用数组字典查同

天地一相

ykcbf1100 发表于 2024-4-21 13:44
大循环是For i = 2 To UBound(arr)，在这个基础上，再开始列循环。你没看出来？

arr数组就是左侧数据。 ...

我看到相同的变量了。两个数组的行数不同呀。

ykcbf1100

天地一相 发表于 2024-4-21 14:03
我看到相同的变量了。两个数组的行数不同呀。

你目前的附件是一样的。你不是说按行比对吗？如果行不同怎么比对。

天地一相

ykcbf1100 发表于 2024-4-21 14:07
你目前的附件是一样的。你不是说按行比对吗？如果行不同怎么比对。

2个循环嵌套，数组1的每一行在数组2的每一行比对。在核心层写结果。

ykcbf1100

天地一相 发表于 2024-4-21 14:11
2个循环嵌套，数组1的每一行在数组2的每一行比对。在核心层写结果。

我的代码就是这样的。
你估计短时间内一下子无法明白，你要细品，才能认识到其中的妙味。
你慢慢研究吧。

天地一相

ykcbf1100 发表于 2024-4-21 14:14
我的代码就是这样的。
你估计短时间内一下子无法明白，你要细品，才能认识到其中的妙味。
你慢慢研究吧 ...

嗯，研究好一会了。没看明白呢。

ykcbf1100

天地一相 发表于 2024-4-21 14:28
嗯，研究好一会了。没看明白呢。

我懂你的意思了，你是说下半部分数据吧。左侧只有一行数据的话，写法会不一样。请看附件吧。

ykcbf1100

下半部分数据处理。

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

复制代码

天地一相

ykcbf1100 发表于 2024-4-21 14:14
我的代码就是这样的。
你估计短时间内一下子无法明白，你要细品，才能认识到其中的妙味。
你慢慢研究吧 ...

请教，你的变量J在不同的循环里都使用了，同一个变量还是变量定义重复了。谢谢

天地一相

ykcbf1100 发表于 2024-4-21 14:32
我懂你的意思了，你是说下半部分数据吧。左侧只有一行数据的话，写法会不一样。请看附件吧。

不是呀，我左侧有300行数组，右侧会有20万行数据呢。这300行的每一行，要在右侧的20万行逐一查同的。

天地一相

ykcbf1100 发表于 2024-4-21 14:32
下半部分数据处理。

这里这样修改了。得加一个判断吧。若Brr(i,2)=0则执行本行的查重。