根据条件设置同一单元格内单个字体颜色的方法

a3465613

根据关键字自动设置单元格内多个关键字变色，如图：



我在网上找到一段VBA代码。但只能是单元格内第一个字符符合设置时变色这个字符，哪位大神帮忙改下。已达到我的要求，不甚感激。。

Private Sub CommandButton1_Click()
Cells.Font.ColorIndex = 1
End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, i As Integer
For Each rng In Selection
i = 1
Do While InStr(i, rng, "A") > 0
rng.Characters(InStr(i, rng, "A"), 1).Font.ColorIndex = 3
i = InStr(i, rng, "A") + 1
Loop
Next
End Sub

ggmmlol

使用我做的加载宏工具：
2020元旦献礼 单元格小工具之八——批量设置单元格内特定字符字体格式
http://club.excelhome.net/thread-1514626-1-1.html
(出处: ExcelHome技术论坛)

a3465613

ggmmlol 发表于 2020-3-11 14:35
使用我做的加载宏工具：
2020元旦献礼 单元格小工具之八——批量设置单元格内特定字符字体格式
http://cl ...

这个是八的话还有更多的咯？