Excel 如何替换 所有单元格内特定字的颜色

改变单元格内部分特定字符的颜色，如果批量操作，需要用宏处理，

如下例，将范围内 所有字母A 变成红色

操作步骤：

右键点击工作表标签，查看代码，如下代码复制进去

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

触发程序，选中即变色,效果如下图：

Sub 换颜色()
For i = 1 To 100
Cells(i, 1).Select
For x = 1 To Len(Cells(i, 1))
If Mid(Cells(i, 1), x, 1) = "李" Then
ActiveCell.Characters(Start:=x, Length:=1).Font.ColorIndex = 5
End If
Next
Next
End Sub

设a列有100个数据，以上代码可将其中的所有“李”字设置为蓝色。

EXCEL中不可能做到这样，一个单元格内所有字符都得是同一种颜色。

确定一定以及肯定以上答案