jak podać kolor tylko kod telefonu, taki jak +91 lub 022 w numerze telefonu w ms excel

Mam liczbę danych, która ma numer telefonu i telefonu komórkowego w programie Excel. powiedz mi, jak nadać kodowi określony kolor, np. czerwony. na przykład 022-1234567 lub + 91-1234567890. Powiedz mi, jak pokolorować tylko +91 i 022 w programie Excel dla całej kolumny lub tylko pojedynczych komórek.

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

Jeśli zaczniemy od:

i uruchom to krótkie makro:

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

W rezultacie otrzymujemy: