[已解决]字典代码的意思

excel白兔

Sub TEST()
  ARR = Range("G5:G" & Range("G65536").End(3).Row)
   Set D = CreateObject("scripting.dictionary")
   For I = 1 To UBound(ARR)
   D(ARR(I, 1)) = ""
   Next
   Range("S5:S65536").ClearContents
  Range("S5").Resize(D.Count) = Application.Transpose(D.KEYS)
End Sub



请老师帮我看看这个代码的意思呗
想了半天没搞懂 ，这个百度查好像说事字典什么的           D是字典变量  什么是字典变量  这个字典变量在这里起什么作用
最后在请老师帮我解释解释这个代码 麻烦了

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-6-4 15:07

excel白兔 发表于 2012-6-4 14:54
是的 老师能具体到哪个代码的意思吗？ 我想一步一步的理解 了解这个的过程

1. Sub TEST()
   
2.     ARR = Range("G5:G" & Range("G65536").End(3).Row)    '将G列的源数据赋值给数组ARR
   
3.     Set D = CreateObject("scripting.dictionary")    '创建字典对象，字典的用处就是里面的key是唯一值，这样就能去重
   
4.     For i = 1 To UBound(ARR)
   
5.         D(ARR(i, 1)) = ""                               '将数组中的数据一个个装入字典，重复的数据只会装入一个，自动去重
   
6.     Next
   
7.     Range("S5:S65536").ClearContents
   
8.     Range("S5").Resize(D.Count) = Application.Transpose(D.KEYS)    '将字典中的keys值也就是不重复值赋值给S列的目标区域
   
9. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

提取G列的不重复值，放到S列

excel白兔

hrpotter 发表于 2012-6-4 14:46
提取G列的不重复值，放到S列

是的 老师能具体到哪个代码的意思吗？ 我想一步一步的理解 了解这个的过程

zjdh

Sub TEST()
   ARR = Range("G5:G" & Range("G65536").End(3).Row) '将数据赋予数组
   Set D = CreateObject("scripting.dictionary")     '建立字典
   For I = 1 To UBound(ARR)                         '数组循环
   D(ARR(I, 1)) = ""                                '建立key（不重复值）
   Next
   Range("S5:S65536").ClearContents                 '清除原数据
  Range("S5").Resize(D.Count) = Application.Transpose(D.KEYS)   '粘贴数据
End Sub

hrpotter

excel白兔 发表于 2012-6-4 14:54
是的 老师能具体到哪个代码的意思吗？ 我想一步一步的理解 了解这个的过程

1. Sub TEST()
   
2.     ARR = Range("G5:G" & Range("G65536").End(3).Row)    '将G列的源数据赋值给数组ARR
   
3.     Set D = CreateObject("scripting.dictionary")    '创建字典对象，字典的用处就是里面的key是唯一值，这样就能去重
   
4.     For i = 1 To UBound(ARR)
   
5.         D(ARR(i, 1)) = ""                               '将数组中的数据一个个装入字典，重复的数据只会装入一个，自动去重
   
6.     Next
   
7.     Range("S5:S65536").ClearContents
   
8.     Range("S5").Resize(D.Count) = Application.Transpose(D.KEYS)    '将字典中的keys值也就是不重复值赋值给S列的目标区域
   
9. End Sub

复制代码

tomle

我觉的4楼是最佳的