jsl073 wrote:
假設A1儲存格裡有一(恕刪)
簡單做一個,給您參考囉,
Sub test()
Range("A1").Select
For i = 1 To Len(Range("A1"))
If Mid(Range("A1"), i, 2) = "平安" Then
Range("A1").Characters(Start:=i, Length:=2).Font.Color = RGB(255, 0, 0)
i = i + 1
End If
Next i
End Sub
執行結果:
希望能幫到您!