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

替换文字和更改字体颜色

1 个答案: