vba - 替换文本和更改字体颜色

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