替換文字並更改字體顏色

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

ReplaceFormat:=True