VBA字典解决用item值获取key值出现异常输入

chengsijing

最近在看字典，发现一般只能用key值找item值，不能反过来用item值获取key值。（不知道是字典的缺陷，还是我还没有找到方法）

所以我用没有重复项的数组复制给字典的时候，同时做了相反的赋值，如：dic(arr1(i, 1)) = arr1(i, 2) 和dic(arr1(i, 2)) = arr1(i, 1)

' arr1(1,1) = 1 arr1(1,2) = "A"
' arr1(1,2) = 2 arr1(1,2) = "B"
' arr1(1,3) = 3 arr1(1,2) = "C"

按理这样复制出来，字典结果应该是：

但是实际是：

后面多了4， ，5，6 出来。
为什么？怎么多出这些值出来？百思不得其解
代码如下

1. 
   
2. Sub 字典测试()
   
3. 
   
4. #If ProjectStatus = "DEV" Then
   
5.     Dim dic As Scripting.Dictionary
   
6.     Set dic = New Scripting.Dictionary
   
7. #Else
   
8.     Dim dic As Object
   
9.     Set dic = CreateObject("Scripting.Dictionary")
   
10. #End If
    
11. Dim key As Variant
    
12. Dim arr1() As Variant, sheet1 As Variant
    
13. 
    
14. Set sheet1 = Sheets("Sheet1")
    
15. With sheet1
    
16. ' arr1(1,1) = 1 arr1(1,2) = "A"
    
17. ' arr1(1,2) = 2 arr1(1,2) = "B"
    
18. ' arr1(1,3) = 3 arr1(1,2) = "C"
    
19.     arr1 = .Range("A2:B4").Value
    
20.    
    
21.     For i = LBound(arr1) To UBound(arr1)
    
22.         'dic.Add arr1(i, 1), arr1(i, 2)
    
23.         dic(arr1(i, 1)) = arr1(i, 2)
    
24.         dic(arr1(i, 2)) = arr1(i, 1)
    
25.     Next
    
26.    
    
27.     .Range("h2").Value = dic.Count
    
28.    
    
29.     For i = 1 To dic.Count
    
30.         .Range("E" & i + 1).Value = dic(dic(i))
    
31.         .Range("F" & i + 1).Value = dic(i)
    
32.     Next
    
33. 
    
34. '输出所有字典
    
35.     For i = 0 To dic.Count - 1
    
36.         .Range("j" & i + 1).Value = dic.Keys()(i)
    
37.         .Range("k" & i + 1).Value = dic.items()(i)
    
38.     Next
    
39. End With
    
40. '打印所有字典
    
41. With dic
    
42.     For Each key In .Keys
    
43.         Debug.Print key, .Item(key) & Chr(13)
    
44.     Next
    
45. End With
    
46. 
    
47. Set sheet1 = Nothing
    
48. Set dic = Nothing
    
49. 
    
50. End Sub
    

复制代码

文件附件我也上传了，请高手帮我看看。或者告诉知道字典用item值获取key值的方法也请告之，谢谢。

zjzyj

    For i = 1 To dic.Count
        .Range("E" & i + 1).Value = dic(dic(i))
        .Range("F" & i + 1).Value = dic(i)
    Next
多出来的键值对是这里加进去的。
当i=4时，dic(4)就给你加4进去了

zjzyj

问题出在这里面：
  For i = 1 To dic.Count
  .Range("E" & i + 1).Value = dic(dic(i))
  .Range("F" & i + 1).Value = dic(i)
  Next
因为dic.count=6，所以i的执行范围是1—6，但字典中只有1—3的，4—6是不存在的，所以当i=4，计算dic(dic(i))时，首先计算dic(i)，因为dic中没有4，所以自动增加dic(4)=""，然后再计算dic("")，结果因为dic中也是没有""的，所以再自动增加dic("")=""，然后再依次增加dic(5)=""、dic(6)=""，但是dic("")就不加进去了，因为dic("")在字典中已经存在

taller

字典的优势就在于Key不重复，可以快速由Key找到Item

如果希望使用Item查找Key，那么使用一定单独的字典对象更合理和方便

chengsijing

zjzyj 发表于 2023-4-1 10:07
问题出在这里面：
  For i = 1 To dic.Count
  .Range("E" & i + 1).Value = dic(dic(i))

十分感谢！明白了。有空我仔细思考一下