Excelのセル内の指定した位置から（n文字目,m文字）文字色を変更するVBAのサンプルコード

Cells(行,列).Characters(Start:=num1, Length:=num2).Font.Color = RGB(numR,numG,numB)

Option Explicit

Sub ボタン1_Click()
    '2文字目から3文字を色替え (カラーインデックス指定)
    Range("B2").Characters(Start:=2, Length:=3).Font.ColorIndex = 3 'red
    
    '3文字目から4文字を色替え (RGB指定)
    Range("B3").Characters(Start:=3, Length:=4).Font.Color = RGB(0, 0, 255)
    
    '色替えするセルを範囲指定
    Range("B5:B7").Characters(Start:=3, Length:=4).Font.Color = RGB(0, 255, 0)
    
    'ループでスタート位置をずらす
    Dim i As Integer
    For i = 1 To 5
        Cells(9 + i, 2).Characters(Start:=i, Length:=2).Font.Color = RGB(0, 255, 255)
    Next
    
End Sub