内容导航：
一、字体染色求教
Sub asdf()
Dim a As Range, b As Range, i%, j%
For Each a In Range(Range("A1"), Range("A65535").End(3))
For j = 1 To Len(a.Offset(0, 4))
For i = 0 To 3
If a.Offset(0, i) = --Mid(a.Offset(0, 4), j, 1) Then
a.Offset(0, 4).Characters(j, 1).Font.ColorIndex = 3
End If
Next
Next
Next
End Sub
二、excel字体如何变颜色
如果你已经有很多这样的单元格有这样的数据了，而又是不连续的 选择起来又比较麻烦的话，那么你使用条件格式……
方法：从表格的左上角起 一次选中所有的单元格
菜单 格式 条件格式 单元格数值 =A1="工程" 格式 图案 选定你要的颜色 确定 ……
这样 在单元格里是 工程 的地方 就自动标记上你需要的颜色了……
如果你的单元格比较少 有比较好找的话 就直接找到 工程字样的 单元格 然后是 格式工具条上的按钮 直接 点取 颜色 涂上或者取消……
