Sub 替换单个字符颜色()
'选中需要改变颜色的区域后,运行该段代码
Dim rg As Range, i As Integer
For Each rg In Selection
'On Error Resume Next
For i = 1 To Len(rg.Value)
If Mid(rg.Text, i, 1) = "0" Or Mid(rg.Text, i, 1) = "5" Or Mid(rg.Text, i, 1) = "9" Then '满足如果为字符059之一时
rg.Characters(i, 1).Font.ColorIndex = 3 '指定字符为红色
End If
Next
Next
End Sub
可以为按钮指定宏,让这些代码为宏的内容,选中需要改变颜色的区域后,点击按钮既可运行宏。
具体步骤:1:按alt+F11,插入模块,粘贴上面的代码
2:回到Excel界面,从“窗体”工具栏中拖出一“命令”按钮,在出现的对话框中选择“ 替换单个字符颜色”。