替换文本和更改字体颜色

Question

我被卡住了.我成功地将一列中的3个文本替换为特定文本.但我无法将替换文本的字体更改为红色.很感激帮助.谢谢以下是当前的代码

Worksheets("HPR").Columns("E").Replace _
What:="IM", Replacement:="Non-IM", _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("HPR").Columns("E").Replace _
What:="Comp", Replacement:="Non-IM", _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("HPR").Columns("E").Replace _
What:="", Replacement:="Non-IM", _
SearchOrder:=xlByColumns, MatchCase:=True"

Answer 1

只需将以下行添加到代码的开头即可.

With Application.ReplaceFormat.Font
    .Subscript = False
    .Color = 255
    .TintAndShade = 0
End With

现在添加以下行 MatchCase:=True,

ReplaceFormat:=True