妳運行壹下看，測試無關題：
Sub?aaa()Set?D?=?CreateObject("scripting.dictionary")
Dim?x,?arr
arr?=?Range("a1:b60000")
For?x?=?1?To?UBound(arr)
For?y?=?1?To?2
On?Error?Resume?Next
D.Add?arr(x,?y),?""'這個因為有重復，要出錯,所以要加上On?Error?Resume?Next
'?D(arr(x,?1))?=?""?'直接用修改的方式，錯語就自動覆蓋
Next
Next
If?Application.Count(arr)?>?Application.Count(D.keys)?Then
MsgBox?"有重復"
Else
MsgBox?"無重復"
End?If
'?Range("c1").Resize(D.Count)?=?Application.Transpose(D.keys)?'練習的COMBX1增加
End?Sub