(ИмяКолонкиИсточника as text, ИмяНовойКолонки as text)=>
let
    Источник = Excel.CurrentWorkbook(){[Name="База"]}[Content],
    Dict = Excel.CurrentWorkbook(){[Name="СписокЗамены"]}[Content],

    Lookup = List.Buffer(List.Zip(Table.ToColumns(Dict))),

    Corrected = List.ReplaceMatchingItems(Источник[ИмяКолонкиИсточника], Lookup),

    Result = Table.FromColumns(Table.ToColumns(Источник) & {Corrected}, 
                               Table.ColumnNames(Источник) & {ИмяНовойКолонки})
in
    Result

let
    ListOfLengths = {11,11,11,11,5,7,10,33,12,12,12},
    ListPosition = List.Positions(ListOfLengths),
    Positions = {0} & List.Transform(ListPosition, each List.Sum(List.FirstN(ListOfLengths, _+1)) ),
    ColNames = List.Transform({1..List.Count(ListOfLengths)}, each Text.From(_)),
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ChType = Table.TransformColumnTypes(Source,{{"Столбец1", type text}})
    SplitCol = Table.SplitColumn(ChType,"Столбец1",Splitter.SplitTextByPositions(Positions),ColNames)
in
    SplitCol