セル内の文字列のフォントを変更する場合には Range オブジェクトの Font に対してプロパティの変更を行いますが
文字列の一部分のみに対して同様の操作を行う場合には Characters の指定が必要になります
Characters の指定以外については 文字列全体のフォントを変更する場合の操作と同じです
下記の処理では 3文字目から2文字だけ赤の太字にしています
With Cells(1, 1).Characters(Start:=3, Length:=2).Font .Bold = True .ColorIndex = 3 End With
文字列の途中から最後までフォントを変更する場合は下記のように記述することもできます
Cells(1, 1).Characters(Start:=3).Font.Bold = True
文字列の先頭から途中までフォントを変更する場合は下記のように記述することもできます
Cells(1, 1).Characters(Length:=3).Font.Bold = True