Busque letras latinas en texto cirílico y viceversa

Descripción

A menudo es necesario encontrar letras latinas (inglés) en un texto escrito en cirílico (ucraniano o ruso). Esto sucede a menudo durante el análisis y procesamiento de información de texto de bases de datos, donde, a su vez, los operadores ingresaron texto que no tuvieron tiempo de cambiar a una nueva distribución de teclado.

Entonces necesitamos un mecanismo que encontrar el alfabeto cirílico en el alfabeto latino o, por el contrario, encontrar latín en cirílico . Excel no tiene herramientas estándar para tales fines. A continuación encontrará una macro lista para usar en VBA , que lleva a cabo buscar letras latinas en el texto , escrito en cirílico y viceversa.

Debe agregar el código VBA a su libro de trabajo antes de usar esta macro. Para esto:

1. Presione ALT + F11 para abrir el editor Visual Basic;
2. Agregar un nuevo módulo vacío a través del menú Insert - Module;
3. Copie y pegue el código de macro en el módulo;
4. Guarde el archivo y regrese a Excel.

Ahora puede seleccionar un rango de celdas, ejecutar una macro y así verificar el texto en busca de caracteres extraños.

Busque el alfabeto latino en cirílico

Código de macro para buscar 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

El resultado de comprobar el texto en latín:

Buscar cirílico en el alfabeto latino

Código de macro para buscar 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

El resultado de comprobar el texto cirílico:

Artículos sobre el tema:

• Transliteración del ucraniano al inglés