字典问题：向字典内添加关键字key和条目Item的方法疑问

lrq20501

请教一下各位大虾，

最近在学习字典的使用，对于字典贼赋值的方式一般说有二种，比如下列
dic.Add "不及格", 59
dic("不及格") = 59

对于第一种，在使用上觉得没什么问题。但第二种的使用，看了一些解释，总觉得不太通。
比如下列的例子，去重将姓名提取出来。
使用第一种方法，结果就是正确的。
但使用第二种方法，做出来的结果就是输出全部的名子，含重复的。

如果是要使用第二种方法写，那code应该要如何修正？请大神教教，谢谢

1. Sub 第一种方法()
   
2. 
   
3. Dim d, maxRow
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. 
   
6. maxRow = Range("A" & Rows.Count).End(xlUp).Row
   
7. 
   
8. For i = 2 To maxRow
   
9.     If Not d.Exists(Range("C" & i).Value) Then
   
10.         d.Add Range("C" & i).Value, ""
    
11.     End If
    
12. Next
    
13. 
    
14. Range("N2").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
15. 
    
16. Set d = Nothing
    
17. 
    
18. End Sub
    
19. 
    
20. 
    
21. 
    
22. Sub 第二种方法()
    
23. 
    
24. Dim d, maxRow
    
25. Set d = CreateObject("Scripting.Dictionary")
    
26. 
    
27. maxRow = Range("A" & Rows.Count).End(xlUp).Row
    
28. 
    
29. For i = 2 To maxRow
    
30.     If Not d.Exists(Range("C" & i).Value) Then
    
31.         d(Range("C" & i)) = 0
    
32.     End If
    
33. Next
    
34. 
    
35. Range("N2").Resize(d.Count, 1) = Application.Transpose(d.keys)
    
36. 
    
37. Set d = Nothing
    
38. 
    
39. End Sub

复制代码

大灰狼1976

第一种你这样写的Range("C" & i).Value，第二种没有.value了，就是这个原因。

lrq20501

真的耶…感谢。
不过为什么没有写.value就会有这样的结果？能解释下吗

1. For i = 2 To maxRow
   
2.         d(Range("C" & i).Value) = ""
   
3. Next

复制代码

shiruiqiang

lrq20501 发表于 2023-1-5 10:24
真的耶…感谢。
不过为什么没有写.value就会有这样的结果？能解释下吗

没有是单元格对象，有的话是单元格里面的值

lingshimizi

shiruiqiang 发表于 2023-1-5 10:39
没有是单元格对象，有的话是单元格里面的值

没错，他说的对

micch

没错，他说的对

把对象作为key存储，同名的不同单元格在字典里是不同的key

sxbjzjf110

参与一下