Sub Macro1()
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With

With Sheets("Sheet1")
    For n = 12 To 13
        For i = 36 To 47
            With .Cells(i, n)
                Select Case True
                    Case InStr(1, .Value, "(C")
                        .Characters(Start:=InStr(1, .Value, "(C")).Font.ColorIndex = 3
                    Case InStr(1, .Value, "(B")
                        .Characters(Start:=InStr(1, .Value, "(B")).Font.Color = -4165632
                    Case InStr(1, .Value, "(A")
                        .Characters(Start:=InStr(1, .Value, "(A")).Font.Color = -11489280
                    Case InStr(1, .Value, "(")
                        .Characters(Start:=InStr(1, .Value, "(")).Font.FontStyle = "Regular"
                        .Characters(Start:=InStr(1, .Value, "(")).Font.Size = 10
                End Select
            End With
        Next i
    Next n
End With

With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
End With
End Sub

Sub Macro11()
    t_ = Timer
    Application.ScreenUpdating = 0
    Application.Calculation = xlCalculationManual 'немного ускоряет почему-то, хоть мы и не пересчитываем ничего
    Dim st_ As Byte '255 символов
    With Sheets("Sheet1")
        c1_ = 12
        c2_ = 13
        r1_ = 36
        r2_ = .Cells(.Rows.Count, c1_).End(3).Row
        nc_ = c2_ - c1_ + 1
        nr_ = r2_ - r1_ + 1
        ar = .Cells(r1_, c1_).Resize(nr_, nc_)
        For c_ = 1 To nc_
            For r_ = 1 To nr_
                st_ = InStr(ar(r_, c_), "(")
                If st_ <> 0 Then
                    Select Case Mid(ar(r_, c_), st_ + 1, 1)
                        Case "C"
                            col_ = 255
                        Case "B"
                            col_ = 12611584
                        Case "A"
                            col_ = 5287936
                    End Select
                    If col_ Then
                        With .Cells(r_ + r1_ - 1, c_ + c1_ - 1).Characters(Start:=st_).Font
                            .Color = col_
                            .FontStyle = "Regular"
                            .Size = 10
                        End With
                    End If
                End If
            Next r_
        Next c_
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = 1
    tt_ = Timer - t_
    MsgBox tt_
End Sub

Sub Vtor()
    t_ = Timer
    Application.ScreenUpdating = 0
    Dim StartChar As Byte '255 символов
    With Sheets("Sheet1")
        r_ = .Cells(.Rows.Count, 12).End(3).Row
        For n = 12 To 13
            For i = 36 To r_
                With .Cells(i, n)
                    StartChar = InStr(1, .Value, "(")
                    If StartChar <> 0 Then
                        Select Case Mid(.Value, StartChar + 1, 1)
                            Case "C"
                    col_ = 255
                            Case "B"
                    col_ = 12611584
                            Case "A"
                    col_ = 5287936
                        End Select
                        If col_ Then
                            With .Characters(Start:=StartChar).Font
                    .Color = col_
                    .FontStyle = "Regular"
                    .Size = 10
                            End With
                        End If
                    End If
                 End With
            Next i
        Next n
    End With
    Application.ScreenUpdating = 1
    tt_ = Timer - t_
    MsgBox tt_
End Sub