字典中怎樣查找item對應的key?

maditate

chis3 发表于 2017-10-12 16:53
沒法嗎?????

可以逆向做呀。以item为关键词，在key为item。

microyip

用原来的item作为第一Key，原来Key作为第二Key，做一个字典嵌套

chis3

chis3 发表于 2017-10-12 14:14
謝謝大家
還有個問題
將重複的items變成唯一的keys時

求教！！！

chis3

microyip 发表于 2017-10-12 17:44
用原来的item作为第一Key，原来Key作为第二Key，做一个字典嵌套

詳細是怎做？
我每次都是先輸出才放入數組

microyip

1. Sub 嵌套字典()
   
2.     Dim oDic As Object, vData As Variant, nRow As Integer
   
3.     Dim vKey As Variant, vItem As Variant
   
4.     Dim vKey1 As Variant, vKey2 As Variant
   
5.    
   
6.     vData = Sheet1.UsedRange.Value
   
7.     Set oDic = CreateObject("Scripting.Dictionary") '建立字典对象
   
8.     '原来的做法
   
9.      For nRow = 2 To UBound(vData)
   
10.         vKey = vData(nRow, 1)
    
11.         vItem = vData(nRow, 2)
    
12.         oDic(vKey) = vItem
    
13.     Next
    
14.    
    
15.     oDic.RemoveAll '清除刚刚建立的字典
    
16.    
    
17.     '调整为字典嵌套的做法
    
18.     For nRow = 2 To UBound(vData)
    
19.         vKey1 = vData(nRow, 2) '第一Key,原来的Item
    
20.         vKey2 = vData(nRow, 1) '第二Key,原来的Key
    
21.         If Not oDic.Exists(vKey1) Then '如果不存在字典第一Key
    
22.             Set oDic(vKey1) = CreateObject("Scripting.Dictionary") '建立嵌套字典对象
    
23.         End If
    
24.         oDic(vKey1)(vKey2) = 0 '字典等于什么不重要，可以随意
    
25.     Next
    
26.     '这个时候，oDic.Keys就是原来的Item，对于Item里的每个值vKey1，oDic(Key1).Keys就是与之对应包含相同Key1的Key
    
27. End Sub

复制代码

microyip

每次遇到代码审核时间就要等审核，很无语

zpy2

是啊，很奇怪一有代码就要审核，O__O"…

chis3

microyip 发表于 2017-10-12 18:16

謝謝
但我想知道的是
把字典不輸出工作表,直接加入數組
應該怎麼做?
for 循環做不了,字典沒有數字不知道怎麼導入

microyip

chis3 发表于 2017-10-12 20:38
謝謝
但我想知道的是
把字典不輸出工作表,直接加入數組

oDic.Keys()(0)就是第一个Key的值

chis3

microyip 发表于 2017-10-12 20:54
oDic.Keys()(0)就是第一个Key的值

謝謝
真神奇
竟然是第二()才是值
那第一個()是什麼來的?