Question

如何在Excel VBA中使用字典Dictionary对象

Answer 1

在ExcelVBA中使用字典，可以前期绑定也可以后期绑定。

软件版本：Office2007

举例说明利用后期绑定字典的使用方法：

1.利用字典取A列不重复值，并放入到D列中：

2.Alt+F11输入代码如下：

Sub m()

Set dic = CreateObject("scripting.dictionary") '后期绑定字典

For i = 1 To Range("A65536").End(3).Row '从A列头到尾，循环取数

dic(Cells(i, "A").Value) = "" '将A列内容依次放入字典中，从而去重

Next i

[D1].Resize(dic.Count, 1) = Application.Transpose(dic.keys) '将字典关键字转置后放入D列

End Sub

3.F5执行代码，回到Excel，得到结果如下：