怎么快速更换Excel里同一单元格的不同内容的字体颜色

#Excel表格

不想见不相见

像图中的第二行有什么好的方法可以快速的换成红色吗

WPS表格编辑操作

4天前广东省

4 +1

全部评论 4

清华学弟任泽岩

创作者俱乐部成员

跟着大佬们学

3天前 · 辽宁省

懒得批爆

创作者俱乐部成员

Sub 替换() Set ra = Range("b2:b5") '替换范围 For Each s In ra m = Len(s) For x = 1 To m t = s.Offset(0, -1) '关键字位置 tx = Mid(s, x, Len(t)) If tx = t Then s.Characters(x, Len(t)).Font.Bold = True '加粗 End If Next Next End Sub 相关帖子，https://bbs.wps.cn/topic/40869/ 如果需要JS代码，可以请教新路老师