ВГОРУ

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

YouLibreCalc for Excel logo

Опис

Частенько доводиться стикатися з попаданням латинських (англійських) букв у текст, написаний кирилицею (українською або російською). Таке часто буває під час аналізу та обробки текстової інформації з баз даних, куди, у свою чергу, заводили текст оператори, які не встигли вчасно перейти на нову розкладку клавіатури.

Отже, нам потрібен механізм, як знайти кирилицю в латиниці або, навпаки, знайти латиницю в кирилиці. У Excel немає стандартних інструментів для таких цілей. Нижче ви знайдете готовий макрос на VBA, який здійснює пошук латинських літер у тексті, написаному кирилицею і навпаки.


Перед використанням цього макросу необхідно додати код VBA до вашої книги. Для цього:

  1. Натисніть ALT + F11, щоб відкрити редактор Visual Basic;
  2. Додайте новий порожній модуль через меню Insert - Module;
  3. Скопіюйте та вставте в модуль код макросу;
  4. Збережіть файл і поверніться до Excel.

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

Пошук латиниці в кирилиці

Код макросу для пошуку латинських літер:

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

Результат перевірки тексту на кирилицю:

Статті на тему: