Excel 查找相同数据最简方式

1、使用说明打开需进行操作的Excel表格1、更改信任中心设置01单击在左上角圆形Office按钮02选择“ Excel选项”打开“ Excel选项”对话框03单击左侧“信任中心”按钮弹出“信任中心”对话框04更改信任中心设置，将宏设置一项改为如下状态，点击确定05另在“Excel选项”对话框中更改自定义设置，将【查看宏】添加到快速访问工具栏Efr信任中，口启用昕与宏不魅尊；可能会运行有潜曲险间七面咀O禁用所有宏井发出瘤回夕豚内客小人糖莉7信确浦杂建炀汕受信任的宦标者加栽顶ActiveX 设宣咫亍任三E受倍任位登钓文归中的责:禁用所有宏r井且不画CD开发人员宏没置方设宜禁用琢的所有用2、代码录入0

2、1利用快捷键【Alt+F11】打开VBA编辑器02如图右击【thisworkbook】选择【查看代码】03在弹出的通用窗口中将文件夹中包含的代码拷贝到光标指示位置回w i；100%CoiiritActi veSheet,笆 Microsoft Visual Basic - Bookl文件旧编辑旧视图(V)插入格式(Q)调试运行 工具CD夕景程序(A)工程-VBAProjectx|VBAProject屈性旧插入四导心件笆 Microsoft Visual Basic - Bookl - ThisWorkbook (代码)查春对象凹理文件(B编辑旧视图00插入(D格式(Q)调试但)运行(R)工MC

3、D外接程序W(W)帮助西国网，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、设置宏操作01单击【查看宏】或按快捷键【Alt+F8】02选中宏单击【选项】，分别将录入的两个宏设置快捷键，建议分别设为【Ctrl+q】（查 找相同数据）和【Ctrl+w】（恢复数据状态）选中一单元格（数字类型），按下【Ctrl+q】，即可观察现象，在按下【Ctrl+w】，单元格 背景颜色重置为无色。快捷键:宏名：Thi stfurkbook.A1123456宏名：T

6、hi sH Drkb ci ok.Thi sWorkbook.云项Thi s/iorkbook.单步执行危）创建代码(本宏仅对数值有效)：Sub查找相同数据()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恢复数据状态()Dim i As Long, j As LongFor i = 1 To ActiveSheet.UsedRange.Rows.CountFor j = 1 To A