单元格中指定内容标红_excel怎么把单元格内某个字标红，其他字不变？

展开全部

打开表格，按ALT+F11打开VB编辑器32313133353236313431303231363533e78988e69d8331333332613639后，按F7在出来的窗口把代码复制进去，修改好代码中你需要标红的字符，后回到表格，选中需要标红的区域，尽量不要选太多不相关的区域，那样会导致速度很慢。选好区域后按ALT+F8 选择对应的宏执行。

楼上那个代码虽然可以实现，但是字符多的话速度肯定是非常慢的。而且只能一个字符Sub AAA()

Dim R As Range, L As Long, S As String

Application.ScreenUpdating = False

S = "红" '要标记的字符

L = Len(S)

For Each R In Selection

If InStr(R, S) > 0 Then R.Characters(InStr(R, S), L).Font.Color = vbRed

Next

Application.ScreenUpdating = True

End Sub

Sub AAA()

Dim R As Range, L As Long, S As String

Application.ScreenUpdating = False

S = "红"  '要标记的字符

L = Len(S)

For Each R In Selection

If InStr(R, S) > 0 Then R.Characters(InStr(R, S), L).Font.Color = vbRed

Next

Application.ScreenUpdating = True

End Sub