Sub Macro1()
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
With Cells(i, 1).Characters(Start:=Len(Cells(i, 1)), Length:=1).Font
If Right(Cells(i, 1), 1) = "2" Then
.Color = RGB(0, 0, 255)
Else
.Color = RGB(0, 0, 0)
End If
End With
Next i
End Sub