excel 一个cell里，如何设置不同的颜色

Sub Macro1()

'

' Macro1 Macro

' Macro recorded 2008-8-7 by Hubery

'



'

    Range("B4").Select

    ActiveCell.FormulaR1C1 = "jjjjjjjjjkkkkkkkkkkk"

    With ActiveCell.Characters(Start:=1, Length:=9).Font

        .Name = "Arial"

        .FontStyle = "Regular"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 3

    End With

    With ActiveCell.Characters(Start:=10, Length:=11).Font

        .Name = "Arial"

        .FontStyle = "Regular"

        .Size = 10

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .ColorIndex = 4

    End With

    Range("B12").Select

End Sub