Excel 查找相同數(shù)據(jù)最簡(jiǎn)方式

1、使用說(shuō)明打開(kāi)需進(jìn)行操作的Excel表格1、更改信任中心設(shè)置01單擊在左上角圓形Office按鈕02選擇“ Excel選項(xiàng)”打開(kāi)“ Excel選項(xiàng)”對(duì)話(huà)框03單擊左側(cè)“信任中心”按鈕彈出“信任中心”對(duì)話(huà)框04更改信任中心設(shè)置，將宏設(shè)置一項(xiàng)改為如下?tīng)顟B(tài)，點(diǎn)擊確定05另在“Excel選項(xiàng)”對(duì)話(huà)框中更改自定義設(shè)置，將【查看宏】添加到快速訪(fǎng)問(wèn)工具欄Efr信任中，口啟用昕與宏不魅尊；可能會(huì)運(yùn)行有潛曲險(xiǎn)間七面咀O禁用所有宏井發(fā)出瘤回夕豚內(nèi)客小人糖莉7信確浦雜建煬汕受信任的宦標(biāo)者加栽頂ActiveX 設(shè)宣咫亍任三E受倍任位登釣文歸中的責(zé):禁用所有宏r井且不畫(huà)CD開(kāi)發(fā)人員宏沒(méi)置方設(shè)宜禁用琢的所有用2、代碼錄入0

2、1利用快捷鍵【Alt+F11】打開(kāi)VBA編輯器02如圖右擊【thisworkbook】選擇【查看代碼】03在彈出的通用窗口中將文件夾中包含的代碼拷貝到光標(biāo)指示位置回w i；100%CoiiritActi veSheet,笆 Microsoft Visual Basic - Bookl文件舊編輯舊視圖(V)插入格式(Q)調(diào)試運(yùn)行 工具CD夕景程序(A)工程-VBAProjectx|VBAProject屈性舊插入四導(dǎo)心件笆 Microsoft Visual Basic - Bookl - ThisWorkbook (代碼)查春對(duì)象凹理文件(B編輯舊視圖00插入(D格式(Q)調(diào)試但)運(yùn)行(R)工MC

3、D外接程序W(W)幫助西國(guó)網(wǎng)，9 X會(huì)心弟9虹施曾苫 包行26,列1.禹性-ThisWorkbook按字母序按分類(lèi)序Thi sWThisWorkbooWorkbAutoUpdateFre 0Ch：rLgeHi e t or j. 0 Che ckC ump ati qF：alEH導(dǎo)口文件舊移除 ThisWorkbookfR),.打印可性的(K)隱赫凹禹性-ThisWorkbookThistforkboo Workbook按字母.序|按分類(lèi)序|日題 VBAProject CBookl)Ia Sheet 1 CSheetl)|S3 SheetS (Sheet2)O Sheet3 (Shaet3)=

4、粒| ThisWorkbook口ptitm ExplicitThi sWorkLoolAut oUp dateFr e 0Ch：aiigeHi storr 0 CheckCompatil Filse工程-VBAProject日期 VBAProject (Bookl)iSheetl CSheetDIa Sheet2 (Sheet2):.塾 Sheet3 (Sheet3)同美代碼ThistforkbActiveCell. ValueColuniriE. Courtt).ValueColorIndexW, _i A，Lnmi As Lang, j As Long I.-n -a . L- ClJTl

5、t ir j 二 1 To ActivsSheet. UseilFLarige. ColmrinE. CouritActi veEIihht.匚 mil, s.i,J.工：nt 由-i 口上一.匚d m-工二 I名稱(chēng))(名稱(chēng))3、設(shè)置宏操作01單擊【查看宏】或按快捷鍵【Alt+F8】02選中宏單擊【選項(xiàng)】，分別將錄入的兩個(gè)宏設(shè)置快捷鍵，建議分別設(shè)為【Ctrl+q】（查 找相同數(shù)據(jù)）和【Ctrl+w】（恢復(fù)數(shù)據(jù)狀態(tài)）選中一單元格（數(shù)字類(lèi)型），按下【Ctrl+q】，即可觀察現(xiàn)象，在按下【Ctrl+w】，單元格 背景顏色重置為無(wú)色?？旖萱I:宏名：Thi stfurkbook.A1123456宏名：T

6、hi sH Drkb ci ok.Thi sWorkbook.云項(xiàng)Thi s/iorkbook.單步執(zhí)行危）創(chuàng)建代碼(本宏僅對(duì)數(shù)值有效)：Sub查找相同數(shù)據(jù)()Dim num As Long, i As Long, j As Longnum = ActiveCell.ValueFor i = 1 To ActiveSheet.UsedRange.Rows.CountFor j = 1 To ActiveSheet.UsedRange.Columns.CountIf ActiveSheet.Cells(i, j).Value = num Then Cells(i, j).Interior.ColorIndex = 4Next jNext iEnd SubSub恢復(fù)數(shù)據(jù)狀態(tài)()Dim i As Long, j As LongFor i = 1 To ActiveSheet.UsedRange.Rows.CountFor j = 1 To A