(НомерСтроки) => 
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

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

Dim arr1
Arr1  = Array(1, 2, 3)

Arr  = Array(1, 2, 3, 1, 2, 3, 1, 2, 3)