excel单元格内将某个文字标红

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