excel单元格内的字体批量加颜色

Sub Ss()
Dim c As Range
For Each c In ActiveSheet.UsedRange
  i = 1
  While InStr(i, c, "文字", 0) > 0
    i0 = InStr(i, c, "文字", 0)
    If i0 > 0 Then c.Characters(i0, 2).Font.Color = vbRed: i = i0 + 2
    Wend
  Next
End Sub