遇到这种问题,请用excell的宏来解决查看代码如何编写,例如我在某个单元格填写了一段文字asdfaadf,然后把前几个字节的颜色改变,产生如下代码: Range("A1").Select ActiveCell.FormulaR1C1 = "asdfadf" With ActiveCell.Characters(Start:=1, Length:=3).Font .Name = "ËÎÌå" .FontStyle = "³£¹æ" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 5 End With With ActiveCell.Characters(Start:=4, Length:=4).Font .Name = "ËÎÌå" .FontStyle = "³£¹æ" .Size = 12 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With---------------------------录制宏的方法1.工具/宏/录制新宏2.进行excell操作3.工具/宏/停止录制4. alt+F11,查看宏代码