求助大神。。使用字典的异常情况。。

venomlk

查找A1至A100单元格内不重复的数据，我想用字典的方法把重复的数据去掉，并把不重复的数据输出在B列，以下是我的写代码，但运行结果有误，明显有漏掉统计的数据（比如A列有不重复的数据（1，3，4，5，6），但结果出来的是（1，3，5，6），不知为何，救助大神指点。。。谢谢。。
Private Sub CommandButton1_Click()
Set zd = CreateObject("scripting.dictionary")
arr = Application.Transpose(Range("A1:A100"))
For i = 1 To UBound(arr)
zd(arr(i)) = ""
Next i
a = zd.keys
Range("B1").Resize(UBound(a)) = Application.Transpose(a)
End Sub


而且这里面还有一个问题，"zd.keys"这全是小写字母，我记的应该是"zd.Keys"，那个”K“是大写字母？！

543124404

我这运行你的代码没有问题，能传附件来看看么？