Ciao

Ritengo possa farsi solo con VBA. Ecco il codice

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
  Dim txt, axt
  Dim i As Long
  txt = Split(ActiveCell.Value, "-")
  For i = 1 To 10
    If i <> Target.Row And Cells(i, 1) <> "" Then
      axt = Split(Cells(i, 1).Value, "-")
      If txt(0) = axt(0) Then Cells(i, 1).Interior.ColorIndex = 3
      If txt(0) = axt(1) Then Cells(i, 1).Interior.ColorIndex = 6
    End If
  Next i
Else
  Range("A:A").Interior.ColorIndex = xlNone
End If
End Sub

E' impostato per l'intervallo A1:A10

Seleziona una cella.

Fai sapere. Ciao,

Mario

Ciao

L'intervallo da te indicato non è congruo con l'esempio postato in precedenza. Per Excel, e mi sembra ovvio, una cosa è un intervallo di una decina di cells SU UNA COLONNA altra cosa un intervallo di centinai di celle SU OTTO COLONNE.

Il mio esempio confronta il contenuto della cella attiva col contenuto delle altre celle dell'intervallo. Ora, se l'intervallo è formato da più colonne ... occorre farlo sapere ad Excel  

Studiaci un po' e poi al caso ci sentiamo per correggere eventualmente quanto da te fatto.

Ciao,

Mario

Ciao

Non impaurirti. @albatros (ciao Santo) l'ha fatta più difficile di quanto in effetti sia.

Provo a darti un'imbeccata. Setta il tuo intervallo, per esempio così Set mioInterv=Range("A1:H100")

Poi esegui un ciclo For Each c in mioInterv (ricordati di escludere la cella attiva)

Dai, prova.

Ciao,

Mario

Ciao

Oltre all'ottima soluzione di @albatros (ciao) ti posto la mia (che, in linea di massima, è uguale alla precedente ma con un ciclo in più

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:C")) Is Nothing Then
  Dim txt, axt
  Dim i As Long, j As Long, ur As Long
  txt = Split(ActiveCell.Value, "-")
  For j = 1 To 3
    ur = Cells(Rows.Count, j).End(xlUp).Row
    For i = 1 To ur
      If i <> Target.Row And Cells(i, j) <> "" Then
        axt = Split(Cells(i, j).Value, "-")
        If txt(0) = axt(0) Then Cells(i, j).Interior.ColorIndex = 3
        If txt(0) = axt(1) Then Cells(i, j).Interior.ColorIndex = 6
      End If
    Next i
  Next j
Else
  Range("A:C").Interior.ColorIndex = xlNone
End If
End Sub

Ti riporto una frase di Nelson Mandela: “Un vincitore è un sognatore che non si è mai arreso.”

Prendine buona nota.

Fai sapere. Ciao,

Mario

Scusate Ragazzi se mi intrometto mettendo anche il mio esempio 

`Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Application.ScreenUpdating = False
 Rosso = Selection.Value
    Dim uRiga As Long
    Dim Riga As Long
    Dim Numeri '
    Dim valore
    Dim x
    Dim i
  
    uRiga = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1:A" & uRiga).Font.ColorIndex = xlAutomatic
    Range("A1:A" & uRiga).Interior.ColorIndex = xlNone
    Range("A1:A" & uRiga).Font.Bold = False

    For Riga = 1 To 7
        Numeri = Split(Trim(Cells(Riga, 1)))
            x = 1
            For i = 0 To 2
                valore = Numeri(i)
                       If Left((Rosso), 1) = valore Then
                            Cells(Riga, 1).Font.Color = vbBlue   '<<<< aggiungo solamente questa riga
                            Cells(Riga, 1).Characters(Start:=x, Length:=2).Font.Color = vbRed
                            Cells(Riga, 1).Characters(Start:=x, Length:=2).Font.Bold = True
                       End If
                   x = x + 2
            Next i
         x = 1
    Next Riga
    Application.ScreenUpdating = True
End Sub`

Ciao Mario

Ho visto la modifica , io non avrei fatto così perchè in certi casi ti colora anche la seconda corrispondenza (avrei colorato tutti i caratteri di colore blu , con il codice all'inizio , e la riga sucessiva   mi ripristina la corrispondenza in rosso ( Questa soluzione la uso per il controllo vincite del lotto , dove voglio avere l'ambata in colore Rosso  gli Ambi e terni blu , e se fosse presente l'Ambata , me la mette in Rosso