利用excel內嵌的搜索技術來實現高速查找重復值

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

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

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

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

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

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