欢迎来到天天文库
浏览记录
ID:8799951
大小:693.89 KB
页数:3页
时间:2018-04-08
《excel查找相同数据最简方式》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、使用说明打开需进行操作的Excel表格1、更改信任中心设置01单击在左上角圆形Office按钮02选择“Excel选项”打开“Excel选项”对话框03单击左侧“信任中心”按钮弹出“信任中心”对话框04更改信任中心设置,将宏设置一项改为如下状态,点击确定05另在“Excel选项”对话框中更改自定义设置,将【查看宏】添加到快速访问工具栏2、代码录入01利用快捷键【Alt+F11】打开VBA编辑器02如图右击【thisworkbook】选择【查看代码】03在弹出的通用窗口中将文件夹中包含的代码拷贝到光标指示位置1、设置宏操作01单击【查看宏】或按快
2、捷键【Alt+F8】01选中宏单击【选项】,分别将录入的两个宏设置快捷键,建议分别设为【Ctrl+q】(查找相同数据)和【Ctrl+w】(恢复数据状态)选中一单元格(数字类型),按下【Ctrl+q】,即可观察现象,在按下【Ctrl+w】,单元格背景颜色重置为无色。代码(本宏仅对数值有效):Sub查找相同数据()DimnumAsLong,iAsLong,jAsLongnum=ActiveCell.ValueFori=1ToActiveSheet.UsedRange.Rows.CountForj=1ToActiveSheet.UsedRange.C
3、olumns.CountIfActiveSheet.Cells(i,j).Value=numThenCells(i,j).Interior.ColorIndex=4NextjNextiEndSubSub恢复数据状态()DimiAsLong,jAsLongFori=1ToActiveSheet.UsedRange.Rows.CountForj=1ToActiveSheet.UsedRange.Columns.CountActiveSheet.Cells(i,j).Interior.ColorIndex=0NextjNextiEndSub
此文档下载收益归作者所有