VBA使用字典求重復值的問題

字典d.Keys 不能是Range對象，Cells(i,1)是Range對象，所是不對。改為：

d(Cells(i, 1)&"") = d(Cells(i, 1)&"") + 1

這樣就可以了。