一.介绍
有的时候需要在表格中找到相同的数据,如下图,找出表格中哪里有“小明”:
实现后的效果如下图,一眼就可以看到哪里有相同的数据:
二.实现方法
1.在表格中打开“开发工具”下面的“编辑器”。表格中默认是没有“开发工具”这个的,需要你手动打开让它显示出来,如何显示出来自行百度。
2.在打开的编辑器中双击你的sheet页
3.在右侧的窗口中输入下面代码,保存
Range("A1:Z60").Interior.ColorIndex = xlNone '清除单元格里面原有的背景颜色'当选择的单元格的个数大于1时,重新给target赋值If target.Count > 1 ThenSet target = target.Cells(1)End If'当选中的单元格不包含指定区域的单元格时,退出这个程序If Application.Intersect(target, Range("A1:Z60")) Is Nothing ThenExit SubEnd IfDim rng As Range'遍历单元格For Each rng In Range("B1:D9")If rng.Value = target.Value Thenrng.Interior.ColorIndex = 6End IfNextEnd Sub
4.上面代码中的 Range(“A1:Z60”) 和Range(“B1:D9”)根据你的需要自行更改数值
5. 上面代码中的 rng.Interior.ColorIndex = 6;数值6可以更改成下面的数字,不同数字对应不同的颜色