let
Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
q = Table.AddColumn(Source, "q", each
let
a={{"А","A"},{"Б","B"},{"В","V"},{"Г","G"},{"Д","D"},{"Е","E"},{"Ж","Zh"},{"З","Z"},{"И","I"},{"Й","Y"},{"К","K"},
{"Л","L"},{"М","M"},{"Н","N"},{"О","O"},{"П","P"},{"Р","R"},{"С","S"},{"Т","T"},{"У","U"},{"Ф","F"},{"Х","Kh"},
{"Ц","Ts"},{"Ч","Ch"},{"Ш","Sh"},{"Щ","Shch"},{"Ъ",""},{"Ы","Y"},{"Ь",""},{"Э","E"},{"Ю","Yu"},{"Я","Ya"},
{"а","a"},{"б","b"},{"в","v"},{"г","g"},{"д","d"},{"е","e"},{"ж","zh"},{"з","z"},{"и","i"},{"й","y"},{"к","k"},
{"л","l"},{"м","m"},{"н","n"},{"о","o"},{"п","p"},{"р","r"},{"с","s"},{"т","t"},{"у","u"},{"ф","f"},{"х","kh"},
{"ц","ts"},{"ч","ch"},{"ш","sh"},{"щ","shch"},{"ъ",""},{"ы","y"},{"ь",""},{"э","e"},{"ю","yu"},{"я","ya"}},
b=Text.ToList(_[Столбец1]),
c=List.ReplaceMatchingItems(b,a)
in
Text.Combine(c))
in
q