字典比较两列相同项代码求解释？谢谢！

wangweihebtu

我菜鸟，弄着数据瞎鼓捣，在比较A、B两列数据的相同项时用到了以下代码

1. Private Sub CommandButton1_Click()
   
2.   Set d = CreateObject("Scripting.Dictionary")
   
3.   arr1 = Range([A2], [A65536].End(xlUp))
   
4.   arr2 = Range([B2], [B65536].End(xlUp))
   
5.   For i = 1 To UBound(arr1)
   
6.       d(arr1(i, 1)) = 0       '本句求解释？谢谢
   
7.   Next
   
8.   For j = 1 To UBound(arr2)
   
9.       If d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1      '本句求解释？谢谢
   
10.   Next
    
11.   For Each d1 In d.keys
    
12.       If d(d1) = 0 Then d.Remove (d1)
    
13.   Next
    
14.   Range("C2").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
    
15. End Sub

复制代码

q960126

d(arr1(i, 1)) = 0  这句是将字典d中的arr1中的（i,1）赋值为0

q960126

d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1  表示的是字典中存在arr2(j, 1)这个，就赋值1，没有就跳过

jiminyanyan

看蓝老师字典帖子。。。

wangweihebtu

q960126 发表于 2018-8-7 10:27
d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1  表示的是字典中存在arr2(j, 1)这个，就赋值1，没有就跳过

谢谢解答，直接意思我也明白，为啥要赋值为0，赋值为1呢？谢谢

iwangyi

01.Private Sub CommandButton1_Click()

02.  Set d = CreateObject("Scripting.Dictionary")   ‘创建字典

03.  arr1 = Range([A2], [A65536].End(xlUp))       ‘将单元格区A列不含A1区域数据装入数组 ARR1
04.  arr2 = Range([B2], [B65536].End(xlUp))        ‘将单元格区B列不含B1区域数据装入数组 ARR2


05.  For i = 1 To UBound(arr1)                             'I 从1到 UBOUND(ARR1)循环

06.      d(arr1(i, 1)) = 0       '本句求解释？谢谢    'd(arr(i,1)) 给字典的关键字ARR(I,1) 对应条目赋值0

07.  Next               

08.  For j = 1 To UBound(arr2)                           ’ J从1到 UBOUND(ARR2) 循环

09.      If d.exists(arr2(j, 1)) Then d(arr2(j, 1)) = 1      '假若关键字ARR2(J,1) 不在字典内，那么，给关键字ARR2(J,1)对应的条目赋值为1

10.  Next

11.  For Each d1 In d.keys                 ‘FRO EACH 对对象集合进行循环 即对关键字集合进行循环

12.      If d(d1) = 0 Then d.Remove (d1)      ’假若关键字对应的条目为0，那么在字典中移除对应的关    键字及对应条目。

13.  Next

14.  Range("C2").Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
'在C2单元格向下扩展D.COUNT 行；输出字典关健字集合

15.End Sub

wangweihebtu

iwangyi 发表于 2018-8-7 13:39
01.Private Sub CommandButton1_Click()

02.  Set d = CreateObject("Scripting.Dictionary")   ‘创建 ...

十分感谢您的解释，我刚现学现卖解决了别人一个找不同的问题

wangweihebtu

mikezhan 发表于 2018-8-7 10:30
兄弟，这个太简单了一点吧

老兄，我刚接触这个，正在努力学习中，别的都能明白，就是不明包为啥那样赋值，现在明白了

尽管偶尔解决解决别人的问题，现学现卖，争取成长吧