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, el texto fue ingresado por operadores que no tuvieron tiempo de cambiar a la nueva distribución del teclado.

Por tanto, necesitamos un mecanismo para encontrar el cirílico en latín o, a la inversa, encontrar el latín en cirílico. Excel no tiene herramientas estándar para tales fines. A continuación encontrará una macro ya preparada sobre VBA, que busca 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. Agregue 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: