let
    f=(Источник as table,off as number, num as number, word as text) =>
    [   Sort = Table.Sort(Источник,{{"Столбец1", Order.Ascending}}),
        Group = Table.Group(Sort, "Столбец1", {"col", each Table.AddIndexColumn(_,"index"&word,1,1)}, 
             GroupKind.Local, 
             (s,c)=> Number.From( Text.Range(Text.From(s),off,num) <> Text.Range(Text.From(c),off,num))),
        Combine = Table.Combine(Group[col]),
        SortAgain = Table.Sort(Combine,{{"index"&word, Order.Ascending}}),
        Remove = Table.RemoveColumns(SortAgain, {"index"&word}),
        Index = Table.AddIndexColumn(Remove,"index"&word,1,1)
    ][Index],

    tbl = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    step1 = f(tbl,0,4,"one"),
    step2 = f(step1,4,3,"two"),
    step3 = f(step2,7,2,"three"),
    step4 = f(step3,9,2,"four"),
    step5 = Table.Sort(step4,
            {
                {"indexone", Order.Ascending}, 
                {"indextwo", Order.Ascending}, 
                {"indexthree", Order.Ascending}, 
                {"indexfour", Order.Ascending}
            }
    )[[Столбец1]]
in
    step5

let
    Юг = Excel.CurrentWorkbook(){[Name="Юг"]}[Content],
    Запад = Excel.CurrentWorkbook(){[Name="Запад"]}[Content],
    Headers = {"Продукты УНИКАЛЬНЫЕ", "Вид", "Кол-во"},
    Append = Table.Combine({        
         Table.RenameColumns(Юг, List.Zip({Table.ColumnNames(Юг), Headers})), 
         Table.RenameColumns(Запад, List.Zip({Table.ColumnNames(Запад), Headers}))}),
    Group = Table.Group(Append, {"Продукты УНИКАЛЬНЫЕ", "Вид"}, {"Кол-во", each List.Sum([#"Кол-во"]), type number})

in
    Group

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"OneKey", type text}, {"DATE", type date}, {"TYPE", type text}, {"Nb", Int64.Type}}),
    #"Colonne dynamique" = Table.Pivot(#"Type modifié", List.Distinct(#"Type modifié"[TYPE]), "TYPE", "Nb", List.Sum),
    #"Valeur remplacée" = Table.ReplaceValue(#"Colonne dynamique",null,0,Replacer.ReplaceValue,{"OneKey", "DATE", "DSP", "MSL"}),
    #"Lignes triées" = Table.Sort(#"Valeur remplacée",{{"DATE", Order.Ascending}, {"OneKey", Order.Ascending}}),
    #"Année insérée" = Table.AddColumn(#"Lignes triées", "Année", each Date.Year([DATE]), Int64.Type),
    #"Lignes groupées" = Table.Group(#"Année insérée", {"OneKey", "Année"}, {{"tab", each _, type table [OneKey=text, DATE=date, DSP=nullable number, MSL=nullable number, Année=number]}}),
    ADD =  Table.AddColumn(#"Lignes groupées", "Пользовательский", each 
        let  
            a = fn_tot_cumul([tab],[tab][DSP],"Cumul_det_DSP") ,
            b = fn_tot_cumul(a,a[MSL],"Cumul_det_MSL")
        in 
            b),
    COMBINE =  Table.Combine(ADD[tab])       
in
    COMBINE

    ПрименитьФункцию = Table.TransformColumns(#"Lignes groupées", 
            {"tab", each List.Accumulate(
                {"DSP", "MSL"},
                _,
                (s,c) =>  fn_tot_cumul(s,Table.ToColumns(Table.SelectColumns(s, c)){0},"Cumul_det_"&c)
                )
            }
        )

    ПрименитьФункцию = Table.TransformColumns( #"Lignes groupées", 
        {
            {
                "tab", each [a = fn_tot_cumul(_,_[DSP],"Cumul_det_DSP"),
                             b= fn_tot_cumul(a,a[MSL],"Cumul_det_MSL")][b]
            }
        }
    )

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ChangeType = Table.TransformColumnTypes(Источник,{{"№", Int64.Type}, {"Долж", type text}, {"ФИО", type text}, {"ПЕРЕМЕЩ", type text}, {"РАПОРТ", type text}}),
    Director = ChangeType{[Долж="Директор"]}[ФИО],
    Index = Table.AddIndexColumn(ChangeType, "Индекс", 0, 1, Int64.Type),
    ПЕРЕМЕЩ = {Director}&List.RemoveItems( List.RemoveNulls(Index[ПЕРЕМЕЩ]), {Director}),
    LA = List.Accumulate(
        {1..List.Count(ПЕРЕМЕЩ)-1},
        {Director},
        (s,c)=> [a = Index{[ПЕРЕМЕЩ=List.LastN(s, 1){0}]}[Индекс],
                 b = Index{a}[ФИО],
                 d = s&{b}
                ][d]   
    ),
    toTable = Table.ReorderColumns(Table.AddIndexColumn(Table.FromList(LA,null,{"ФИО"}),"№",1,1), {"№","ФИО"})
in
    toTable

=ЕСЛИ(
      ПОИСКПОЗ([@ПЕРЕМЕЩ];$G$13:$G$16;0)=СЧЁТЗ($G$13:$G$16);
      "за ним никого нет";
      ЕСЛИОШИБКА(
         ИНДЕКС($G$13:$G$16;ПОИСКПОЗ([@ПЕРЕМЕЩ];$G$13:$G$16;0)+1);
         "такого нет в списке"
                )
     )

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    PromoteHeaders = Table.PromoteHeaders(Источник, [PromoteAllScalars=true]),
    MonthName = Table.AddColumn(PromoteHeaders, "Месяц", each Date.MonthName(Date.From([Период]))),
    DoubleGroup = Table.Group(MonthName, "Месяц", 
        {"tbl", each 
            Table.Group(_, "Работник", 
                {"Должность", each 
                    Text.Combine([Должность], "#(lf)")}
                       )
        }
    ),
    Expand = Table.ExpandTableColumn(DoubleGroup, "tbl", {"Работник", "Должность"}, {"Работник", "Должность"})
in
    Expand