excel的vlookup數(shù)據(jù)表有篩選？

在EXC

vba怎么判斷單元格內(nèi)容重復(fù)？

方法/步驟

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

第二，拖出命令按鈕。點(diǎn)擊表單工具欄上的選擇命令按鈕——在EXCEL表格上畫(huà)一個(gè)框命令按鈕就出來(lái)了。

第三，重命名命令按鈕。為了便于操作，命令按鈕是根據(jù)其用途來(lái)命名的。點(diǎn)擊命令按鈕的文本框-刪除原文-回車(chē):確定重復(fù)數(shù)據(jù)。所以它改名了。

四、打開(kāi)命令按鈕代碼編輯窗口:右鍵單擊命令按鈕——指定宏——?jiǎng)?chuàng)建——會(huì)彈出代碼編輯窗口。

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

Dimarr，brr()

DimI為整數(shù)，j為整數(shù)

DimDict作賓語(yǔ)

出錯(cuò)時(shí)繼續(xù)下一步

設(shè)置字典CreateObject(scripting.dictionary)

帶活動(dòng)表

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

從I1到UBound(arr)

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

(arr(I，1))1

其他

(arr(I，1))1

如果…就會(huì)結(jié)束

接下來(lái)我

從I1到UBound(arr)

jj1

ReDim保留brr(1到j(luò))

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

接下來(lái)我

(2).清除內(nèi)容

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

以…結(jié)尾

第六，編輯后關(guān)閉退出V。BA編輯器-在A(yíng)列輸入數(shù)據(jù)-輸入完成后，點(diǎn)擊命令按鈕確定重復(fù)數(shù)據(jù)，則副本會(huì)顯示在b列，如果是唯一的，則顯示。