得用宏。假设你想让第一个字符黑色，后面的字符红色，选中这些单元格，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Sub test()Dim cell As RangeFor Each cell In Selectioncell.Characters(Start:=2, Length:=100).Font.Color = vbRedNext cellEnd Sub在此界面直接按F5运行此宏，完成。
