replace文字和更改字体颜色

我卡住了。 我成功地将一列中的3个文本replace为特定的文本。 但我无法将replace的文本的字体更改为红色。 将不胜感激帮助。 感谢以下是目前的代码

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,之后添加下面的行MatchCase:=True,

 ReplaceFormat:=True