1、在sheet上右键点击，左击查看代码
2、将VBA代码复制粘贴进去。Sub 标示重复出现的单字符() Dim Item, rng As Range '声明变量 With Create晦倘佳鳎Object("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 WithEnd SubSub 标示重复出现的词组() 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 WithEnd Sub
3、点击保存
4、将EXCEL保存为XLSM格式。
5、点击开发工具，插入，选择第一个控件，显示如下图
6、点击按钮，右击，选择指定宏。
7、选择需要的宏，点击确定。
8、修改按钮的名字即可。
