副總管()
Set DIC = createobject ("scripting。dictionary ")'創建壹個dictionary對象並將該dictionary對象賦給變量DIC這是最常用的代碼，稱為“後期綁定”
對於I =範圍(“B65536”)。結束(3)。Row to 1 step-1 '從b列最後壹行到第壹行遞減，如果從第壹行到最後壹行遞增，會因為刪除行而跳過很多行，達不到去重的效果。
如果DIC。存在(單元格(I，“b”)。value)如果B列中的數據已經在字典中(即重復)。
行(I)。“刪除”只是刪除這壹行。
其他
Dic(細胞(I，“B”)。Value) = " " '否則，將B列中的數據放入字典中。
如果…就會結束
接下來我
末端接頭