子ak()
Dim d作為對象
Dim單元格為範圍，I為整數，arr，brr
Set d = CreateObject("腳本。字典》)
Sheet1。挑選
對於範圍內的每個單元格(" AK 1:AK " & amp；範圍(" AK65536 ")。結束(xlUp)。行)
如果d .存在(單元格。值)那麽
d(細胞。值)= d(單元格。值)+ 1
其他
d(細胞。值)= 1
如果…就會結束
然後
工作表2。挑選
arr = d.keys
brr = d .項目
對於i = 1到d.Count
範圍(" B " & ampi + 1)。值=數組(i - 1)
範圍(" C " & ampi + 1)。值= brr(i - 1)
接下來我
末端接頭
快跑吧。