如何用VBA标示重复单词？

1、在sheet上右键点击，左击查看代码

2、将VBA代码复制粘贴进去。

Sub 标示重复出现的单字符()

  Dim Item, rng As Range                '声明变量

  With CreateObject("VBSCRIPT.REGEXP")  '创建正则表达式引用

    .Pattern = "(.)\1+"                 '匹配条件：任意单字重复至少一次者

    .Global = True                      '全局匹配

 译霜   For Each rng In Range("a1:a2")      '遍历区域

      If .test(rng) Then                '如果匹配成功

        For Each Item In .Execute(rng)  '遍历搜索结果

          '将单元格中符合条件的字符标示为红色

          rng.Characters(Start:=InStr(rng, Item), Length:=Len(Item)).Font.ColorIndex = 3

        Next

      End If

    Next rng

  End With

End Sub

Sub 标示重复出现的词组()

  Dim Item, rng As Range                '声明变量

  With CreateObject("VBSCRIPT.REGEXP")  '创建正则表达式引用

    .Pattern = "(.{2,})\1+"             '匹配条件：任意单字重复至少一次者

    .Global = True                      '全局匹配

    For Each rng In Range("a1:a2")      '遍历区域

      If .test(rng) Then                '如果匹配成功

        For Each Item In .Execute(rng)  '遍历搜索结果

          '将单元格中符合条件的字符标示为红色

          rng.Characters(Start:=InStr(rng, Item), Length:=Len(Item)).Font.ColorIndex = 3

        Next

      End If

    Next rng

  End With

End Sub

3、点击保存

4、将EXCEL保存为XLSM格式。

5、点击开发工具，插入，选择第一个控件，显示如下图

6、点击按钮，右击，选择指定宏。丽良

7、选择需要的宏，点击确定。

8、修改虚董光按钮的名字即可。