Cerca lettere latine nel testo cirillico e viceversa

Descrizione

Spesso è necessario incontrare lettere latine (inglesi) in un testo scritto in cirillico (ucraino o russo). Ciò accade spesso durante l'analisi e l'elaborazione delle informazioni di testo dai database, dove, a loro volta, il testo è stato inserito da operatori che non hanno avuto il tempo di passare a un nuovo layout di tastiera.

Quindi abbiamo bisogno di un meccanismo su come farlo trovare l'alfabeto cirillico nell'alfabeto latino o, al contrario, trovare il latino in cirillico . Excel non dispone di strumenti standard per tali scopi. Di seguito troverai una macro già pronta su VBA , che effettua cercare le lettere latine nel testo , scritto in cirillico e viceversa.

È necessario aggiungere il codice VBA alla cartella di lavoro prima di utilizzare questa macro. Per questo:

1. Premi ALT+F11 per aprire l'editor Visual Basic;
2. Aggiungi un nuovo modulo vuoto attraverso il menu Insert - Module;
3. Copia e incolla il codice macro nel modulo;
4. Salvare il file e tornare a Excel.

Ora puoi selezionare un intervallo di celle, eseguire una macro e quindi controllare la presenza di caratteri stranieri nel testo.

Cerca l'alfabeto latino in cirillico

Codice macro per la ricerca di lettere latine:

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

Il risultato del controllo del testo in latino:

Cerca il cirillico nell'alfabeto latino

Codice macro per la ricerca delle lettere cirilliche:

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

Il risultato del controllo del testo cirillico:

Articoli sull'argomento:

• Traslitterazione dall'ucraino all'inglese