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

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

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

3、D外接程序W(W)幫助西國網(wǎng)，9 X會心弟9虹施曾苫 包行26,列1.禹性-ThisWorkbook按字母序按分類序Thi sWThisWorkbooWorkbAutoUpdateFre 0Ch：rLgeHi e t or j. 0 Che ckC ump ati qF：alEH導口文件舊移除 ThisWorkbookfR),.打印可性的(K)隱赫凹禹性-ThisWorkbookThistforkboo Workbook按字母.序|按分類序|日題 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名稱)(名稱)3、設(shè)置宏操作01單擊【查看宏】或按快捷鍵【Alt+F8】02選中宏單擊【選項】，分別將錄入的兩個宏設(shè)置快捷鍵，建議分別設(shè)為【Ctrl+q】（查 找相同數(shù)據(jù)）和【Ctrl+w】（恢復數(shù)據(jù)狀態(tài)）選中一單元格（數(shù)字類型），按下【Ctrl+q】，即可觀察現(xiàn)象，在按下【Ctrl+w】，單元格 背景顏色重置為無色?？旖萱I:宏名：Thi stfurkbook.A1123456宏名：T

6、hi sH Drkb ci ok.Thi sWorkbook.云項Thi s/iorkbook.單步執(zhí)行危）創(chuàng)建代碼(本宏僅對數(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恢復數(shù)據(jù)狀態(tài)()Dim i As Long, j As LongFor i = 1 To ActiveSheet.UsedRange.Rows.CountFor j = 1 To A