Для начала нам необходим Excel и базовые знания как выводить на панель сверху вкладку "разработчик"
Делай правой кнопкой мыши на панели сверху в Excel
Далее в появившемся окне включаем тот самый "разработчик"
В разработчике открываем макросы, добавляем модуль
и в него пишем:
Function Nomer_lat(Nomer_lat_txt As String) As String
Dim Lat As Variant
Lat = Array("A", "B", "C", "E", "H", "K", "M", "O", "P", "T", "X", "Y", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "(", ")")
Dim Rus As Variant
Rus = Array("А", "В", "С", "Е", "Н", "К", "М", "О", "Р", "Т", "Х", "У", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "", "")
For I = 1 To Len(Nomer_lat_txt)
x = Mid(Nomer_lat_txt, I, 1)
flag = 0
For J = 0 To 65
If Lat(J) = x Then
outchr = Rus(J)
flag = 1
Exit For
End If
Next J
If flag Then outstr = outstr & outchr Else outstr = outstr & x
Next I
Nomer_lat = outstr
End Function
У нас должно получиться вот так:
Теперь в самом Excel если мы напишем символ "=" в ячейке и перейдем во вкладку вставку функции "Определенные пользователем"
мы увидим там нашу функцию конвертера
Указываем нашу ячейку с номером в появившемся окне и все буквы латиницей будут переделаны в кириллицу