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、修改按钮的名字即可。
