【发布时间】：2013-07-15 00:56:28
【问题描述】：
我正在尝试为范围内所有单元格内容的前 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
【问题讨论】：
-
我进行了很好的搜索以确定此站点是否已建议此修复。由于我找不到任何东西，所以我发布了这个问题。请告知是否已经提供了这样的解决方案。请帮忙。