Пошук латинських букв в кириличному тексті і навпаки

Sub ShowLatin()

Dim c As Range, i As Long

For Each c In Selection

For i = 1 To Len(c)

If Mid$(c, i, 1) Like "[A-Za-z]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3

Next i, c

End Sub

Код макросу для пошуку кириличних букв:

view plaincopy to clipboardprint?

Sub ShowCyrylic()

Dim c As Range, i As Long

For Each c In Selection

For i = 1 To Len(c)

If Mid$(c, i, 1) Like "[А-Яа-я]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3

Next i, c

End Sub