使用说明
打开需进行操作的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 Long
num = ActiveCell.Value
For i = 1 To edRange.Rows.Count
For j = 1 To edRange.Columns.Count
If ActiveSheet.Cells(i, j).Value = num Then Cells(i, j).Interior.ColorIndex = 4
Next j
Next i
End Sub
Sub 恢复数据状态()
Dim i As Long, j As Long
For i = 1 To edRange.Rows.Count
For j = 1 To edRange.Columns.Count
ActiveSheet.Cells(i, j).Interior.ColorIndex = 0
Next j
Next i
End Sub。