订阅如何使用VBA代码使得重复的数值高亮显示
来源：网络收集 点击： 时间：2024-06-06我们举例说明：
当选中某一个单元格内容后执行 宏程序，效果：本表内所有与选中单元格内容相同的单元格背景都被统一标注为某个颜色，例如草绿色。
详情看效果示例。
2/7我们会发现这个里边有好多都是重复的。在功能区选择开发工具选项卡
3/7进入后我们鼠标下移到最左边
4/7单击后弹出一个新的对话框
5/7我们在左边对话框中选择SHEETS1，双击进入，将以下代码复制进去：
Private Sub Worksheet_SelectionChange(ByVal T As Range)
Dim Rg As Range, SumRg As Range
If T.Value = Then Exit Sub
Set Rg = Range(A1).CurrentRegion.Find(T, Lookat:=xlWhole)
MyAddress = Rg.Address
Do
Set Rg = Range(A1).CurrentRegion.FindNext(Rg)
k = k + 1
If k = 1 Then
Set SumRg = Rg
Else
Set SumRg = Application.Union(SumRg, Rg)
End If
Loop While Rg.Address MyAddress
Application.EnableEvents = False
SumRg.Select
Range(A1).CurrentRegion.Interior.ColorIndex = xlNone
SumRg.Interior.ColorIndex = 5
Application.EnableEvents = True
End Sub
6/7保存后，返货工作表，我们会发现，不管单击那个单元格，只要这个工作表里有相同字符的，都标注出来了
7/7动画过程展示：
注意事项这里特别说明：数据区域必须连续才行不能隔空行空列存在
编程语言EXCELVBA高亮显示版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_884920.html
