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

Частенько приходится сталкиваться с попаданием латинских /английских букв в текст написан кириллицей (украинский или русский). Такое часто бывает при анализе и обработки текстовой информации из баз данных, куда, в свою очередь, заводили текст операторы, которые не успели вовремя переключиться на новую раскладку клавиатуры. Итак, далее мы предложим механизм поиска латинских букв в тексте, написанном кириллицей и наоборот. В 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 . Теперь вы можете выделить диапазон ячеек с текстом и проверить на наличие чужеродных символов.

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

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