let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    tr = Table.SelectRows(Table.FromColumns({List.Combine(List.Transform({1..Table.ColumnCount(Источник)}, each Table.Column(Источник, "Столбец" & Text.From(_))))}),  
        each ([Column1] <> null)),
    #"Сгруппированные строки" = Table.Group(tr, {"Column1"}, {{"Количество", each Table.RowCount(_), type number}}),
    #"Сортированные строки" = Table.Sort(#"Сгруппированные строки",{{"Column1", Order.Ascending}})
in
    #"Сортированные строки"

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Критерий", type text}, {"Группы", type text}, {"Адреса", type text}}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Измененный тип", each ([Критерий] = "Критерий 2")),
    #"Разделить столбец по разделителю" = Table.ExpandListColumn(Table.TransformColumns(#"Строки с примененным фильтром", {{"Группы", Splitter.SplitTextByDelimiter("; ", QuoteStyle.None), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Группы"),
    #"Разделить столбец по разделителю1" = Table.ExpandListColumn(Table.TransformColumns(#"Разделить столбец по разделителю", {{"Адреса", Splitter.SplitTextByDelimiter("; ", QuoteStyle.None), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Адреса"),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Разделить столбец по разделителю1",{"Критерий"})
in
    #"Удаленные столбцы"

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    pivot = Table.Pivot(Table.TransformColumnTypes(from, {{"Index", type text}}, "uk-UA"), List.Distinct(Table.TransformColumnTypes(from, {{"Index", type text}}, "uk-UA")[Index]), "Index", "uu"),
    max = List.Max(from[Index]),

    fn = (pivot, cur, max)=> let
        cur = cur +1,
        cur_txt = Text.From(cur),
        split = Table.SplitColumn(pivot, cur_txt, Splitter.SplitTextByDelimiter("||", QuoteStyle.Csv), {cur_txt & ".1", cur_txt & ".2"}),
        recur = if cur<max then @fn(split, cur, max) else split 
    in recur
     
in
    fn(pivot, 0, max)

let
    Source   = Table.Buffer(Table.AddColumn(Excel.CurrentWorkbook(){[Name="data"]}[Content], "id", each 1)),
    Source1  = Excel.CurrentWorkbook(){[Name="param"]}[Content]{0}[#"зад кол-во"],

    fn = (cur, cnt)=> let
        db = Table.RemoveRows(Source, 0, cur),
        accum = List.Accumulate(db[#"кол-во"], [h=0, k=0], (acc, cur) => 
            if acc[k]<=Source1 then Record.TransformFields(acc, {{"h", each _+1}, {"k", each _+cur}}) else acc),
        rec = if accum[k] > Source1 then accum[h] - 1 else accum[h],
        gr = Table.Group(Table.FirstN(db, rec), {"id"}, {{"кол-во", each List.Sum([#"кол-во"]), type number}, {"стоимость", each List.Sum([стоимость]), type number}})
    in [tbl = gr, fl = if rec < Table.RowCount(db) then 0 else cnt+1],

    gen = List.Generate(()=>[a=0, b=fn(a,0), c=b[fl], d=b[tbl]], each [c] < 2, each [a=[a]+1, b=fn(a,[c]), c=b[fl], d=b[tbl]]),
    #"Преобразовано в таблицу" = Table.FromList(gen, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Развернутый элемент Column1" = Table.ExpandRecordColumn(#"Преобразовано в таблицу", "Column1", {"d"}, {"d"}),
    #"Развернутый элемент d" = Table.ExpandTableColumn(#"Развернутый элемент Column1", "d", {"кол-во", "стоимость"}, {"кол-во", "стоимость"}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Развернутый элемент d", "Пользовательский", each [стоимость]/[#"кол-во"]),
    #"Измененный тип" = Table.TransformColumnTypes(#"Добавлен пользовательский объект",{{"кол-во", Int64.Type}, {"стоимость", type number}, {"Пользовательский", type number}})
in
    #"Измененный тип"

let
    Source       = Table.Buffer(Excel.CurrentWorkbook(){[Name="data"]}[Content]),
    Headers      = Record.FromList(List.Transform(Table.ToColumns(Table.FirstN(Source,3)),
                       each Text.Combine(List.RemoveNulls(_),"|")),Table.ColumnNames(Source)
                   ),
    InserHeaders = Table.PromoteHeaders(Table.InsertRows(Table.Skip(Source,3),0,{Headers})),
    Unpivot      = Table.UnpivotOtherColumns(InserHeaders, {"Названия строк"}, "Атрибут", "Значение"),
    Split        = Table.SplitColumn(Unpivot, "Атрибут", each Text.Split(_,"|"),3),
    Grouped = Table.Group(Split, {"Названия строк", "Атрибут.3"}, {{"Количество", each Table.RowCount(Table.SelectRows(_, each [Значение]>0)), type number}}),
    Pivoted = Table.Pivot(Grouped, List.Distinct(Grouped[Атрибут.3]), "Атрибут.3", "Количество", List.Sum)
in
    Pivoted