作者：乔山办公网日期：
返回目录：excel表格制作
亲，这是一个简单但繁琐的任务。附件已上传，下载后打开，按“Alt+F11”打开VBA编辑窗口，查看模块中的代码。
测试效果如下图。使用时，只需选中要设置格式的单元格，然后点击按钮即可。
VBA得写一段程序，可以解决
提供一个宏作为参考吧，VBA应该可以实现，不过你得要把代码作一些改造：
如下是把第1单元格的“12345678”中的56变成红色
Sub Macro3()
'
' Macro3 Macro
' 宏由 MC SYSTEM 录制，e68a84e8a2ade79fa5e98193336时间: 2015-8-22
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1234567890"
With ActiveCell.Characters(Start:=1, Length:=4).Font
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=5, Length:=2).Font
.ColorIndex = 3
End With
With ActiveCell.Characters(Start:=7, Length:=4).Font
.ColorIndex = xlAutomatic
End With
Range("E7").Select
End Sub
注：如果单元格内是数字需先设置成文本格式，因为否则VBA更改的格式会被数字格式化
就看不到结果了.
Sheet change 代码度：问放到答 Sheet 代码区回
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Bold = False
Target.Characters(Start:=InStr(1, Target, "√答"), Length:=3).Font.Bold = True
End Sub