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

Частенько приходиться стикатися з попаданням латинських/англійських букв в текст написаний кирилицею (український чи російський). Таке часто буває при аналізі та обробки текстової інформації з баз даних, куди, в свою чергу, заводили текст оператори, які не встигли вчасно переключитися на нову розкладку клавіатури. Отож, далі ми запропонуємо механізм пошуку латинських букв в тексті, написаному кирилицею та навпаки. В Excel немає стандартних інструментів для таких цілей. Нижче ви знайдете готовий макрос на VBA, який здійснює подібний пошук. Перед використанням, код цього макросу необхідно додати у вашу книгу. Для цього:

  1. Натисніть клавіші ALT + F11 , щоб відкрити редактор Visual Basic
  2. Додайте новий порожній модуль через меню Insert - Module
  3. Скопіюйте і вставте в модуль код макросу.
Код макросу для пошуку латинських букв:
Sub ShowLatin()
 'moonexcel.com.ua 
  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
Код макросу для пошуку кириличних букв:
Sub ShowCyrylic()
 'moonexcel.com.ua 
  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

Збережіть файл та поверніться в Excel. Тепер ви можете виділити діапазон комірок з текстом та перевірити на наявність чужорідних символів.

Результат при пошуку латинських букв:

Результат при пошуку кириличних букв: