建议用Excel 2016版,操作: 1、将A列复制,到B列粘贴黑色字体部分内容,到C列粘贴红色字体内容,2,鼠标选到C5, ctrl+E,则红色字体内容分列出来了,3、 鼠标选到B5, ctrl+E,则lf黑色字体内容分列出来了,4、再过一边,删除不需要的选项。
改变单元格内部分特定字符的颜色,如果批量操作,需要用宏处理,
如下例,将范围内 所有字母A 变成红色
操作步骤:
右键点击工作表标签,查看代码,如下代码复制进去
Private Sub CommandButton1_Click()
Cells.Font.ColorIndex = 1
End Sub
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, i As Integer
For Each rng In Selection
i = 1
Do While InStr(i, rng, "A") > 0
rng.Characters(InStr(i, rng, "A"), 1).Font.ColorIndex = 3
i = InStr(i, rng, "A") + 1
Loop
Next
End Sub
触发程序,选中即变色,效果如下图: