Procure letras latinas em texto cirílico e vice-versa

Descrição

Muitas vezes é necessário encontrar letras latinas (inglesas) em um texto escrito em cirílico (ucraniano ou russo). Isso geralmente acontece durante a análise e processamento de informações textuais de bancos de dados, onde, por sua vez, o texto foi inserido por operadores que não tiveram tempo de mudar para um novo layout de teclado.

Então precisamos de um mecanismo como encontre o alfabeto cirílico no alfabeto latino ou, inversamente, encontrar latim em cirílico . Excel não possui ferramentas padrão para tais fins. Abaixo você encontrará uma macro pronta em VBA , que realiza procure por letras latinas no texto , escrito em cirílico e vice-versa.

Você deve adicionar o código VBA à sua pasta de trabalho antes de usar esta macro. Por esta:

1. Pressione ALT + F11 para abrir o editor Visual Basic;
2. Adicione um novo módulo vazio através do cardápio Insert - Module;
3. Copie e cole o código da macro no módulo;
4. Salve o arquivo e retorne para Excel.

Agora você pode selecionar um intervalo de células, executar uma macro e, assim, verificar se há caracteres estrangeiros no texto.

Procure o alfabeto latino em cirílico

Código macro para pesquisa de letras latinas:

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

O resultado da verificação do texto em latim:

Procure por cirílico no alfabeto latino

Código macro para pesquisar letras cirílicas:

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

O resultado da verificação do texto cirílico:

Artigos sobre o tema:

• Transliteração do ucraniano para o inglês