刪除重復項的Vba

子按鈕1_Click()

set d = CreateObject(" scripting . dictionary ")

設置Rng =無

arr = [a1]。當前區域

申請。ScreenUpdating = False

對於j = 1到UBound(arr)

如果d .存在(arr(j，1))，則

如果Rng什麽都不是

設置Rng = Cells(j，1)

其他

Set Rng = Union(Rng，Cells(j，1))

如果…就會結束

其他

d(arr(j，1)) = " "

如果…就會結束

下壹個j

如果不是Rng什麽都不是那麽Rng。全部刪除

申請。ScreenUpdating = True

末端接頭

代碼運行前的數據

代碼運行後，只保留不重復的項目。