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
版权声明：本文为yiruliu原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。