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

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

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

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

4、sAsWksheetobjAsObjecttemprowAsLongoi=1標(biāo)記結(jié)果工作表中初始的寫入行號AssetColName=“E“標(biāo)識資產(chǎn)號所在的列的列名如果檔案的格式不同可以修改該值初始化重復(fù)值結(jié)果工作表開始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=“表計資產(chǎn)號重復(fù)數(shù)據(jù)列表“ws.Range(“O“&oi).Value=“備注“oi=oi1ws.Cells.ion.NumberFmatLocal=“@“ws.Cells(11).初始化重復(fù)值結(jié)果工作表結(jié)束遍歷所有表開始查找重復(fù)值Fi=1ToWksheets.Count1Fj=2ToWksheets(i).UsedRange.Rows.Count1ion.Interi.ColIndex=3oi=o