excel如何快速找出重复值，并高亮显示

1、我们菰灞巴静举例说明：当选中某一个单元格内容后执行 宏程序，效果：本表内所有与选中单元格内容相同的单元格背景都被统一标注为某个颜色，例如草绿色。详情看效果示例。

3、进入后我们鼠标下移到最左边

5、我们在左边对话框中选择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 = TrueEnd Sub