利用excel內(nèi)嵌的搜索技術(shù)來(lái)實(shí)現(xiàn)高速查找重復(fù)值

1、利用利用Excel內(nèi)嵌的搜索技術(shù)來(lái)實(shí)現(xiàn)高速查找重復(fù)值內(nèi)嵌的搜索技術(shù)來(lái)實(shí)現(xiàn)高速查找重復(fù)值時(shí)間:2009061618:41:34來(lái)源:網(wǎng)絡(luò)作者:未知點(diǎn)擊:0次Excel中可以實(shí)現(xiàn)搜索文本的功能，內(nèi)嵌的優(yōu)秀搜索算法可以快速的查找并定位一個(gè)特定的文本單元格，今天我使用VBA寫(xiě)了幾行代碼，實(shí)現(xiàn)了一個(gè)自動(dòng)搜索并定位行功能的小程序！發(fā)現(xiàn)了Excel的這個(gè)優(yōu)秀的屬性，速度簡(jiǎn)直超級(jí)快！于是很快，Excel中可以實(shí)現(xiàn)搜索文本的功能，內(nèi)嵌的優(yōu)秀搜索算法可以快

2、速的查找并定位一個(gè)特定的文本單元格，今天我使用VBA寫(xiě)了幾行代碼，實(shí)現(xiàn)了一個(gè)自動(dòng)搜索并定位行功能的小程序！發(fā)現(xiàn)了Excel的這個(gè)優(yōu)秀的屬性，速度簡(jiǎn)直超級(jí)快！于是很快，我就有了一個(gè)新想法，升級(jí)重復(fù)值校驗(yàn)程序的版本到V4.0！就使用Excel的這個(gè)屬性來(lái)實(shí)現(xiàn)！于是乎說(shuō)到不如做到！開(kāi)始......，下面就公布這段代碼，與各位網(wǎng)友共同研究：全局查找資產(chǎn)號(hào)重復(fù)數(shù)據(jù)程序v4.0該程序通過(guò)遍歷所有工作表查找表計(jì)資產(chǎn)號(hào)重復(fù)數(shù)據(jù)將重復(fù)數(shù)據(jù)值拷貝到另一個(gè)工

3、作表中并標(biāo)注位置信息重復(fù)值高亮顯示注意：該代碼必須放到ThisWkbook中執(zhí)行首尾設(shè)斷點(diǎn)PublicSubFindAssetRepeat()遍歷查找資產(chǎn)號(hào)重復(fù)數(shù)據(jù)Debug.Print“開(kāi)始時(shí)間“&Fmat(Now“yyyy年mm月dd日hh時(shí)mm分ss秒“)DimiAsLongjAsLongkAsLonglAsLongmAsLongoiAsLongDimmaintempAsStringAssetColNameAsStringDimw

4、sAsWksheetobjAsObjecttemprowAsLongoi=1標(biāo)記結(jié)果工作表中初始的寫(xiě)入行號(hào)AssetColName=“E“標(biāo)識(shí)資產(chǎn)號(hào)所在的列的列名如果檔案的格式不同可以修改該值初始化重復(fù)值結(jié)果工作表開(kāi)始Fi=1ToWksheets.Count先判斷“重復(fù)值結(jié)果“工作表是否存在如果存在則將句柄傳給ws并初始化IfWksheets(i).Name=“重復(fù)值結(jié)果“ThenSetws=Wksheets(i)ws.MoveAfte

5、r:=Sheets(Wksheets.Count)ws.Cells.ion.Shift:=xlUpGoTotoBeginEndIfNextiSetws=Wksheets.Add(After:=Sheets(Wksheets.Count))ws.Name=“重復(fù)值結(jié)果“toBegin:ws.Activatews.Range(“A“&oi&“:N“&oi).ws.Range(“A“&oi&“:N“&oi).Mergews.Range(“A“

6、&oi&“:N“&oi).Value=“表計(jì)資產(chǎn)號(hào)重復(fù)數(shù)據(jù)列表“ws.Range(“O“&oi).Value=“備注“oi=oi1ws.Cells.ion.NumberFmatLocal=“@“ws.Cells(11).初始化重復(fù)值結(jié)果工作表結(jié)束遍歷所有表開(kāi)始查找重復(fù)值Fi=1ToWksheets.Count1Fj=2ToWksheets(i).UsedRange.Rows.Count1ion.Interi.ColIndex=3oi=o