excel查找相同数据最简方式.docx

使用说明打开需进行操作的Excel表格1、 更改信任中心设置01 单击在左上角圆形Office按钮02 选择“Excel选项”打开“Excel选项”对话框03 单击左侧“信任中心”按钮弹出“信任中心”对话框04 更改信任中心设置，将宏设置一项改为如下状态，点击确定05 另在“Excel选项”对话框中更改自定义设置，将【查看宏】添加到快速访问工具栏2、 代码录入01 利用快捷键【Alt+F11】打开VBA编辑器02 如图右击【thisworkbook】选择【查看代码】03 在弹出的通用窗口中将文件夹中包含的代码拷贝到光标指示位置3、 设置宏操作01 单击【查看宏】或按快捷键【Alt+F8】02 选中宏单击【选项】，分别将录入的两个宏设置快捷键，建议分别设为【Ctrl+q】（查 找相同数据）和【Ctrl+w】（恢复数据状态）选中一单元格（数字类型），按下【Ctrl+q】，即可观察现象，在按下【Ctrl+w】，单元格背景颜色重置为无色代码（本宏仅对数值有效）：Sub 查找相同数据()Dim num As Long, i As Long, j As Longnum = ActiveCell.ValueFor i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count If ActiveSheet.Cells(i, j).Value = num Then Cells(i, j).Interior.ColorIndex = 4 Next jNext i End SubSub 恢复数据状态()Dim i As Long, j As LongFor i = 1 To ActiveSheet.UsedRange.Rows.Count For j = 1 To ActiveSheet.UsedRange.Columns.Count ActiveSheet.Cells(i, j).Interior.ColorIndex = 0 Next jNext iEnd Sub。