鲁达 用字典提取唯一值是字典常用功能。如图，A列数据有重复项，想要提取其不重复值，在B列列出。
方法如下：
Sub w()
Dim d, arr
Set d = CreateObject("Scri;)
arr = Range("a2:a23")
For i = 1 To UBound(arr)
d(arr(i, 1)) = “”
Next
[b2].Resize, 1) = A)
End Sub
结果如图：
解释：
Set d = CreateObject("Scri;) ‘创建字典对象
arr = Range("a2:a23") ‘数组赋值，将单元格区域a2:a23赋值给数组arr
For i = 1 To UBound(arr)
d(arr(i, 1)) = “” ‘循环将关键字写入字典
[b2].Resize, 1) = A) ‘ 将字典的所有key输出
问题：如果想要列出这些唯一值重复的次数该如何做？下期介绍·······