excel的vlookup數據表有篩選？

在EXC

vba怎么判斷單元格內容重復？

方法/步驟

首先創(chuàng)建一個空白的EXCEL2003文檔，然后點擊視圖-工具欄-表單，方便使用命令按鈕操作宏。

第二，拖出命令按鈕。點擊表單工具欄上的選擇命令按鈕——在EXCEL表格上畫一個框命令按鈕就出來了。

第三，重命名命令按鈕。為了便于操作，命令按鈕是根據其用途來命名的。點擊命令按鈕的文本框-刪除原文-回車:確定重復數據。所以它改名了。

四、打開命令按鈕代碼編輯窗口:右鍵單擊命令按鈕——指定宏——創(chuàng)建——會彈出代碼編輯窗口。

第五，在代碼編輯窗口中，您可以更改sub開頭的宏名，修改易于理解的宏，或者您不不需要修改它-然后在中間輸入下面的代碼:

Dimarr，brr()

DimI為整數，j為整數

DimDict作賓語

出錯時繼續(xù)下一步

設置字典CreateObject(scripting.dictionary)

帶活動表

數組相交(。使用范圍，。列(1))

從I1到UBound(arr)

如果字典存在(arr(I，1))，那么

(arr(I，1))1

其他

(arr(I，1))1

如果…就會結束

接下來我

從I1到UBound(arr)

jj1

ReDim保留brr(1到j)

Brr(j)IIf((arr(I，1))1，唯一，重復)

接下來我

(2).清除內容

。范圍(b1)。調整大小(UBound(brr)，1)(brr)

以…結尾

第六，編輯后關閉退出V。BA編輯器-在A列輸入數據-輸入完成后，點擊命令按鈕確定重復數據，則副本會顯示在b列，如果是唯一的，則顯示。