Lord199, Попробуйте использовать что-то вроде нижеопубликованного макроса, только не забудьте проверить корректность транслита, так как часть заменителей я написал, что называется наобум.
Код
iRussian = "абвгдеёжзийклмнопрстуфхцчшщъыьэюя"
iTranslit = Array("", "a", "b", "v", "g", "d", _
e, "e", "zh", "z", "i", "ji", "k", "l", "m", _
n, "o", "p", "r", "s", "t", "u", "f", "h", "c", _
ch, "sh", "zch", "'", "'i", "'", "je", "ju", "ja")
For iCount = 1 To 33
Application.ActiveSheet.UsedRange.Replace _
What:=Mid(iRussian, iCount, 1), Replacement:=iTranslit(iCount)
Next