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

我试图为一个范围内所有单元格内容的前3个、第2个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

---

此信息可能太晚了，但用于执行所需操作的宏已准备就绪。访问：以及相关的34个youtube视频。

我做了一个很好的搜索，以确定此站点中是否已经建议了此修复。因为我找不到，所以我发布了这个问题。请告知是否已提供此类解决方案。请帮忙。