как дать цветной телефонный код только как +91 или 022 в номере телефона в MS Excel

Question

У меня есть номер данных, который имеет номер телефона и мобильного телефона в Excel. подскажите, как придать конкретный цвет, например красный, телефонному коду например 022-1234567 или +91-1234567890. Подскажите, пожалуйста, как окрасить только +91 и 022 в Excel для всего столбца или только для отдельных ячеек.

Sub Macro1() 
ActiveCell.FormulaR1C1 = ActiveCell.Value 
With ActiveCell
 .Characters(Start:=1, Length:=0)
 .Font 
 .Name = "Arial" 
 .ThemeFont = xlThemeFontNone 
End With 
With ActiveCell
 .Characters(Start:=1, Length:=3) 
 .Font 
 .OutlineFont = False 
 .Shadow = False 
 .Underline = xlUnderlineStyleNone 
 .Color = -16776961 
 .TintAndShade = 0 
 .ThemeFont = xlThemeFontNone 
End With End Sub

Answer 1

Если мы начнем с:

и запустите этот короткий макрос:

Sub ColorMeRed()
    Dim r As Range, rng As Range, v As String
    Dim i As Long
    Set rng = Range("B1:B10")

    For Each r In rng
        v = r.Text
        i = InStr(v, "-")
        If i > 0 Then
            r.Characters(Start:=1, Length:=i - 1).Font.Color = vbRed
        End If
    Next r
End Sub

Мы заканчиваем с: