(НомерСтроки) => 
let
    КолонкаРаздел =      if НомерСтроки > 0   and НомерСтроки <= 170 then 1 
                    else if НомерСтроки > 170 and НомерСтроки <= 260 then 2
                    else if НомерСтроки > 260 and НомерСтроки <= 406 then 3  
                    else if НомерСтроки > 406 and НомерСтроки <= 496 then 4
                    else if НомерСтроки > 496 and НомерСтроки <= 560 then 5
                    else 999
in
    КолонкаРаздел

(ИмяКолонкиИсточника 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