Подробное видео можете посмотреть по ссылке: https://dzen.ru/video/watch/6429e1f379f40c0d471cd3b4
Подписывайтесь на мой Телеграм канал, там много интересного и полезного контента: https://t.me/easy_xls
Транслитерация - это замена русских букв на латинские.
Чтобы не решать эту задачу вручную, можно написать небольшую пользовательскую функцию.
❓ Как это сделать?
🔸 Нажимаем ALT+F11 и вызываем редактор Visual Basic.
🔸 Нажимаем на элемент меню "Insert", выбираем "Module".
В приложенном файле код функции, который нужно скопировать (при необходимости нужно заменить буквы)
🔸 Нажимаем CTRL+A выделяем весь код. Далее нажимаем CTRL+C копируем содержимое.
🔸 Нажимаем на область пустого окна "Module". Вставляем скопированный текст горячими клавишами CTRL+V. Закрываем окно редактора.
🔹Выделяем ячейку, где будет наша формула.
🔹 Переходим на вкладку "Формулы".
🔹 Нажимаем на кнопку "Вставить функцию".
🔹 В открывающемся окне в поле "Категория", выбираем из списка "Определенные пользователем".
🔹 Созданная функция называется Transliter. Выбираем ее и нажимаем "ОК".
🔹Выбираем ячейку с текстом для перевода, подтверждаем "ОК".
И все готово, протягиваем формулу к оставшемуся списку
Формула:
Function Transliter(x As String) As String
cyr = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
lat = Array("", "a", "b", "v", "g", "d", "e", "e", "zh", "z", "i", "y", "k", _
"l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _
"sh", "sch", "y", "y", "", "e", "yu", "ya")
For i = 1 To 33
x = Replace(x, Mid(cyr, i, 1), lat(i), , , vbBinaryCompare)
x = Replace(x, UCase(Mid(cyr, i, 1)), StrConv(lat(i), vbProperCase), , , vbBinaryCompare)
Next
Transliter = x
End Function