vba怎么關(guān)閉所有的篩選？下面這句是不回復(fù)手動篩選后，但會顯示所有行ifworksheets(1).filtermodetruethenworksheets(1).showalldata要解除手動篩選

vba怎么關(guān)閉所有的篩選？

下面這句是不回復(fù)手動篩選后，但會顯示所有行ifworksheets(1).filtermodetruethenworksheets(1).showalldata要解除手動篩選，可以錄制視頻宏看下代碼就好

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

方法/步驟

第一，新建任務(wù)一個空白EXCEL2003版的文檔，后再再點視圖——工具欄——窗體，更方便不使用命令按鈕來你的操作宏。

第二，拽出命令按鈕。在窗體工具欄那里然后點擊你選命令按鈕——在EXCEL表格那里畫一個方框新的命令按鈕就出了。

第三，文件屬性命令按鈕。是為更方便你的操作，發(fā)出命令按鈕以它的用途來以此命名，直接點擊命令按鈕的文字框——刪掉損毀的文字——輸入：不能判斷重復(fù)數(shù)據(jù)。這樣就恢復(fù)名稱之前那樣最好。

第四，可以打開新的命令按鈕代碼編輯窗口：右擊發(fā)出命令按鈕——重新指定宏——新建任務(wù)——這時都會彈出代碼編輯窗口不出來。

第五，在代碼編輯窗口那里，也可以更sub開頭的宏名稱，修改很難知道是什么用途的宏，也可以不用什么可以修改——后再在中間那里輸入如下代碼：

Dimarr,brr()

DimIlikeInteger,jandInteger

DimDictandObjectOn Error Resume NextSet Dict CreateObject(scripting.dictionary)

WithActiveSheet

arrIntersect(.UsedRange,.Columns(1))

whileI1canUBound(arr)

IfDict.exists(arr(I,1))Then

(arr(I,1))(arr(I,1))1

Else

(arr(I,1))1

EndIf

NextI

ofI1toUBound(arr)

jj1

ReDimPreservebrr(1wantj)

brr(j)IIf((arr(I,1))1,任何,亂詞)

NextI

(2).ClearContents

.Range(b1).Resize(UBound(brr),1)(brr)

EndWith

第六，編輯器成功后直接關(guān)閉再次VBA編輯器——在A列然后輸入數(shù)據(jù)——再輸入完成后，再點擊可以判定再重復(fù)一遍數(shù)據(jù)下命令按鈕，這時就會在B列會顯示重復(fù)，要是是唯一就會會顯示同樣