Sub main()
Set dic = CreateObject("scripting.dictionary") '創建字典對象，並把字典對象賦給變量dic；這是最常用的壹句代碼，也就是所謂的“後期綁定”
For i = Range("B65536").End(3).Row To 1 Step -1 '從B列的最後壹行到第壹行依次遞減，如果是從第壹行到最後壹行遞增，則會因為刪除行而跳過很多行，達不到去重效果
If dic.exists(Cells(i, "B").Value) Then '如果B列中的數據已經在字典中了（也就是重復了）
Rows(i).Delete '就刪除這壹行
Else
dic(Cells(i, "B").Value) = "" '否則就把B列的數據放入字典中
End If
Next i
End Sub