alt+F11,打开宏编辑器运行如下代码:
Sub AA()
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
End Sub
转载于:https://www.cnblogs.com/goding/p/10400037.html