fonts - 根据字符位置为单元格中的字符设置不同的字体颜色

Question

我正在尝试为范围内所有单元格内容的前 3 个、后 3 个和后 3 个字符设置三种不同的颜色。下面的代码将整个单元格内容更改为绿色，而不仅仅是前 3 个字符。

请指导我如何做到这一点。我对VB很陌生。

Sub LoopAndChangeColor()

  Dim i As Integer
  Dim targetRange As Range
  'Set targetRange = Range("A1:A10")

  'For Each cell In targetRange
  For i = 1 To 10
    Cells(i, 1).Characters(1, 3).Font.Color = vbGreen
    Cells(i, 1).Characters(4, 3).Font.Color = vbBlue
    Cells(i, 1).Characters(7, 3).Font.Color = vbRed
  Next

End Sub

Answer 1

此信息可能为时已晚，但执行您需要的宏已准备好使用。访问：http ://excelfindandformat.herobo.com和相关的 34 个 youtube 视频。