子ak（）
將d作為對象顯示
Dim單元格作為範圍，I作為整數，arr，brr
Set d = CreateObject（“腳本。詞典》）
1。挑選
對於範圍內的每個單元格（“AK 1:AK“& amp；範圍（“AK65536”）。結束（xlUp）。排）
如果d .存在（單元格。值）然後
d（單元格。值= d（單元格。值）+ 1
其他
d（單元格。值= 1
如果…就會結束
然後
工作表2挑選
arr = d.keys
brr = d .項目
對於i = 1到d .計數
範圍（“B“& amp；i + 1）。value = arr（I-1）
範圍（“C“& amp；i + 1）。值= brr（I-1）
接下來我
末端接頭
快跑吧。