如何使用VBA代码使得重复的数值高亮显示

1、我们举例说明：

当选中某一个单元格内容后执行 宏程序，效果：本表内所有与选中单元格内容相同的单元格背景都被统一标注为某个颜色，例如草绿色。

详情看效果示例。

2、我们会发现这个里边有好多都是重复的。在功能区选择开发工具选项卡

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

4、单击后弹出一个新的对话框

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 = True

End Sub

6、保存后，返货工作表，我们会发现，不管单击那个单元格，只要这个工作表里有相同字符的，都标注出来了

7、动画过程展示：