请教字典嵌套如何将子key和子item返回到单元格区域

autumnalRain

补充字典学习笔记：
修改KEY值的实例，要求将区域中重复数据删除

1. Sub ModifyKey()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
4.     d(Cells(i, 1).Value) = i
   
5. Next
   
6. For Each k In d.keys
   
7.     d.key(k) = d(k)
   
8. Next
   
9. For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
   
10.     If Not d.exists(i) Then Rows(i).Delete
    
11. Next
    
12. End Sub

复制代码

autumnalRain

关键知识点：
object.key(key)=newkey
object.item(key)=newitem(此处item可以省略简写为object.(key)=newitem)

autumnalRain

字典的item可以装数值，文本，数组，RANGE对象，以及嵌套字典等
以上面为例，求出不重复的数据。以下代码为字典ITEM装入单元格对象。切记 Set d(Cells(i, 1).Value) = Range(Cells(i, 1), Cells(i, 4))对象赋值时Set不能省略。

1. rem 可以将d(d.keys()(i - 1)).Copy Cells(i + 10, 1)改为range(cells(i+10,1),cells(i+10,4)=d(d.keys()(i-1))
   
2. Sub NonRepeatingValue()
   
3. Dim d As Object, i As Integer
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   
6.     Set d(Cells(i, 1).Value) = Range(Cells(i, 1), Cells(i, 4))
   
7. Next
   
8. For i = 1 To d.Count
   
9.     d(d.keys()(i - 1)).Copy Cells(i + 10, 1)
   
10. Next
    
11. End Sub

复制代码

autumnalRain

1. Sub dicnesting()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For j = 4 To [a4].End(xlDown).Row
   
4.         If Not d.exists(Cells(j, 1).Value) Then
   
5.             Set d(Cells(j, 1).Value) = CreateObject("scripting.dictionary")
   
6.         End If
   
7.         d(Cells(j, 1).Value)(Cells(j, 2).Address) = ""
   
8.     Next j
   
9.     For Each k In d.keys
   
10.         a = a + 1
    
11.         Cells(a + 3, 9).Resize(1, d(k).Count).Value = Application.Transpose(Range(Join(d(k).keys, ":")))
    
12.     Next
    
13.         Cells(4, 8).Resize(d.Count) = Application.Transpose(d.keys)
    
14. End Sub

复制代码

autumnalRain

利用字典嵌套将相同内容的单元格着相同随机色

注意14行逗号与24楼11行冒号在使用时的区别

1. Sub 修改成随机色()
   
2.     Dim arr, i%, c
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     Cells.Interior.ColorIndex = xlNone
   
6.     For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
7.         If Not d.exists(Cells(j, 1).Value) Then
   
8.             Set d(Cells(j, 1).Value) = CreateObject("scripting.dictionary")
   
9.         End If
   
10.         d(Cells(j, 1).Value)(Cells(j, 1).Address) = ""
    
11.     Next j
    
12.     For Each c In d.keys
    
13.         If d(c).Count > 1 Then
    
14.             Range(Join(d(c).keys, ",")).Interior.ColorIndex = Int(Rnd * 56)
    
15.         End If
    
16.     Next
    
17.     Application.ScreenUpdating = True
    
18. End Sub

复制代码

chxw68

autumnalRain 发表于 2016-11-17 10:59
利用字典嵌套将相同内容的单元格着相同随机色

注意14行逗号与24楼11行冒号在使用时的区别

建议楼主将此贴转移到“分享”版块中，方便大家学习。

autumnalRain

chxw68 发表于 2016-11-17 11:05
建议楼主将此贴转移到“分享”版块中，方便大家学习。

谢谢老师鼓励。这上面大部分内容是其他老师解答的，少量部分是自己揣摩，一般分享都是原创的东西，所以还是不放了吧

wzsy2_mrf

我几乎从来不用词典嵌套，哪怕N级菜单也用一个词典解决。词典嵌套的优点是层次清楚，易于理解，缺点则在于所使用的词典数量难以控制，关键字较多，嵌套层次深的时候容易卡死。

02761752696

学习     谢谢分享

1588078/37

t13564865256 发表于 2015-12-10 10:29

如果ITEMS 是多个列的呢，