ваши "мероприятия". Для моего варианта попробуйте заменить tbl = ... и далее на вот это

vatuz23, добрый день. Вариант PQ. C именами столбцов в финальной таблице не заморачивался. Рез-т находится в последнем столбце ("К перемещению"). Если последние столбцы пустые (не нашли источник), то в "К перемещению" находится (нераспределенный) остаток первоначального запроса.

код

let    // fx таблица -> в список поштучно    fx_single = (tbl as table, col as text) as list => ((i) => List.TransformMany(        Table.ToList(tbl, (w) => w),        (x) => List.Numbers(0, x{i}),        (x, y) => x    ))(List.PositionOf(Table.ColumnNames(tbl), col)),    // fx загрузки таблиц и группировки по ГРП с сортировкой по кол-ву    fx_load = (name, order_col) => Table.Group(        Excel.CurrentWorkbook(){[Name=name]}[Content],        "ГРП",        {"r", (x) => Table.Sort(x, {order_col, Order.Descending})}    ),    // fx обработки 2 таблиц с одинаковым ГРП    fx_calc = (tables) => [        // generator's step        fx_step = (optional x) => [            s = if x = null then [demand = start_demand, supply = start_supply, delayed = {}] else x[next],            demand_is_empty = List.IsEmpty(s[demand]),            supply_is_empty = List.IsEmpty(s[supply]),            demand_position = List.PositionOf(s[demand], s[supply]{0}, Occurrence.First, (c, v) => c{4} = v{4}),            match_found = demand_position <> -1,            next = if demand_is_empty then []                else if supply_is_empty then Record.TransformFields(s, {{"demand", List.Skip}, {"delayed", List.Skip}})                else if match_found                    then Record.TransformFields(s, {{"demand", (x) => List.RemoveRange(x, demand_position, 1)}, {"supply", List.Skip}})                    else Record.TransformFields(s, {{"supply", List.Skip} , {"delayed", (x) => x & {s[supply]{0}}}}),            out = if demand_is_empty then null else if supply_is_empty                then s[demand]{0} & (s[delayed]{0}? ?? {})                else if match_found                    then s[demand]{demand_position} & s[supply]{0}                    else {}        ],        // generator's selector        fx_out = (x) => x[out],        // стартовые списки        start_demand = List.Buffer(fx_single(tables{0}, "Берут")),        start_supply = List.Buffer(fx_single(tables{1}, "Отдают")),        // запускаем генератор        poehali = List.Generate(fx_step, (x) => not x[demand_is_empty], fx_step, fx_out)    ][poehali],    ber = fx_load("ber", "Берут"),    otd = Table.Buffer(fx_load("otd", "Отдают")),    find_match = Table.AddColumn(ber, "otd", (x) => Table.Skip(otd, (z) => z[ГРП] <> x[ГРП]){0}?[r]?),    go = Table.CombineColumns(find_match, {"r", "otd"}, fx_calc, "result"),    tbl = Table.FromList(List.Combine(go[result]), (x) => x, 19, null),    result = Table.SelectRows(        Table.Group(tbl, List.FirstN(Table.ColumnNames(tbl), 13), {"К перемещению", Table.RowCount}),        (x) => x[Column1] <> null    ) in    result

Татьяна Сухарева, доброе утро. Из первой колонки убираете пустые строки, из второй колонки берем цифры на четных и нечетных позициях (List.Alternate), склеиваем эти списки (List.Zip) и делаем из них таблицу.

код
let    Source = Table.Buffer(Table.Skip(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content])),    tbl = Table.FromList(        List.Zip(            {                List.RemoveNulls(Source[Субконто]),                List.Alternate(Source[Сальдо на конец периода], 1, 1, 1),                List.Alternate(Source[Сальдо на конец периода], 1, 1)            }        ),        (x) => x    ) in    tbl

PQ

код

let    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],    group_01 = Table.Group(        Source,        "Магазин",        {"items", (x) => List.Sort(Table.SelectRows(x, (w) => w[Наличие товара на складе] <> 0)[Товар])}),    group_02 = Table.Group(        group_01,        "items",        {            {"Магазины", (x) => Text.Combine(x[Магазин], ", ")},            {"qty", Table.RowCount}        }    ),    result = Table.SelectRows(group_02, (x) => x[qty] > 1)[[Магазины]] in    result

Yup, здесь нет никакого трюка. Как и написал выше, это группировка и операция(-и) с полученными в результате группировки таблицами. Прежде всего, матчасть: Table.Group. Детальный разбор этой функции можно найти в месте, известном всем и каждому.. А дальше - дело техники.
Нам надо группировать строки по номеру, который "п/п". Это будет 2м агрументом Table.Group. Когда он не пуст - начинаем новую группу. С этим справятся 4й (GroupKind.Local) и 5й аргументы Table.Group. И теперь остается правильно составить 3й аргумент.
Это список из элементов {название_столбца, функция_обработки_таблицы_группы} Нам надо получить все оригинальные столбцы, кроме первого (он уже получен как 2й аргумент). Это List.Skip(Table.ColumnNames(tbl)).
Далее этот список надо преобразовать в то, что хочет от нас Table.Group в качестве 3го аргумента. Преобразование элементов списка - List.Transform. В каждом таком преобразовании получаем список из 2х элеметнов (см выше про 3й аргумент) - название столбца (собственно элемент списка) и функция преобразования соответствующего столбца таблицы. Чтобы доступиться к столбцу по имени используем Table.Column. В рез-те получается Text.Combine(Table.Column(имя_таблицы, имя_столбца)).
То есть результатом работы Table.Group будет таблица с теми же названиями столбцов, что и оригинальная таблица, только значения в них будут "объединенные" при помощи Text.Combine текстовые значения.
Вот и весь "трюк", описание которого заняло раз в 5 больше времени, чем написание кода.

Сергей,

локальная группировка + Text.Combine

код

let    Source = Pdf.Tables(File.Contents("путь_к_файлу\Пример.pdf"), [Implementation="1.3"]),    tbl = Table.PromoteHeaders(Table.Combine(Table.SelectRows(Source, (x) => x[Kind] = "Table")[Data])),    transformations = List.Transform(List.Skip(Table.ColumnNames(tbl)), (x) => {x, (w) => Text.Combine(Table.Column(w, x))}),    group = Table.Group(tbl, "№ п/п", transformations, GroupKind.Local, (s, c) => Number.From(c <> null)) in    group

мне скинули? Это Ваша фантазия, о Учитель.
воистину так. Начните с ознакомления с правилами общения на подобного рода форумах. Вот с этим, в частности

а куда же "учитель" подевался?

Вроде так успешно поучал всех на другом форуме...

еще немного pq

код
let    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],    sort = Table.Sort(        Source,        {            (x) => Text.Start(x[Было], 1),            (x) => Number.From(Text.Remove(Text.RemoveRange(x[Было], 0, 2), "-"))        }    ) in    sort

еще вариант PQ.

код

let    values = List.Buffer(Excel.CurrentWorkbook(){[Name="data"]}[Content][ЗНАЧЕНИЯ]),    steps = List.Buffer(Excel.CurrentWorkbook(){[Name="steps"]}[Content][ШАГ]),    first_row = #table(null, {List.Combine(List.Transform(steps, (x) => {"шаг " & Text.From(x), "кол-во"}))}),    fx = (vals, step, s, optional c) => [        v = if c is null then vals{0}? else c + step,        contains = List.Contains(vals, v),        next = if contains            then @fx(vals, step, s & {v}, v)            else [                first = vals{0}?,                count = List.Count(s),                w = List.RemoveItems(vals, s),                go = not List.IsEmpty(vals)            ]    ][next],    proc = (step) => List.Generate(        () => fx(values, step, {}),        (x) => x[go],        (x) => fx(List.Buffer(x[w]), step, {}),        (x) => if x[count] = 1 then null else {x[first], x[count] - 1}    ),    run = List.Zip(List.Transform(steps, (x) => List.RemoveNulls(proc(x)))),    tbl = first_row & Table.FromList(        run,        (x) => List.Combine(List.Transform(x, (w) => if w is list then w else {null, null}))    ) in    tbl

Kate_k, можно попробовать пересохранить файл (Save As...). Или Open & Repair... Даже не знаю что еще можно посоветовать. А может файл можете сюда выложить?

Kate_k, погуглите InferSheetDimensions

Боже упаси!
1. Кладете все ваши файлы в отдельную папку
2. На основе моего кода делаете функцию с единственным параметром - бинарным содержимым файла. А именно, вот это нужно заменить параметром

3. Читаете содержимое папки с помощью функции Folder.Contents (фильтром отберите только нужное - ваши файлы)
4. Применяете функцию из пункта (2) к столбцу Content: Table.TransformColumns(имя_таблицы_с_файлами, (x) => имя_вашей_функции(x[Content]))
5. Для сбора всего в одну таблицу делаете Table.Combine(имя_пункта_4[Content])
Вот подробное видео про Folder.Contents. Только в конце вместо Table.ExpandTableColumn сделайте так, как я написал в пункте 5. Ведь Вам не нужны названия файлов или какие-то иные их атрибуты? Тем более, что имена столбцов в этих файлах могут быть разными.

код

let    Source = Table.Buffer(        Excel.Workbook(File.Contents("путь_к_файлу\Книга1.xlsx"), null, true){[Kind = "Sheet", Name = "ФОТ"]}[Data]    ),    // замените а..е на нужные названия статей    items = {"a".."e", "численность"},    leading_headers = List.Skip(List.FirstN(Record.ToList(Source{8}), 22)),    dates = List.Transform(List.Range(Record.ToList(Source{7}), 83, 95 - 84 + 1), Text.From),    ltm = List.TransformMany(        Table.ToList(Table.RemoveFirstN(Source, 9), each _),        (x) => List.Zip({items, List.Zip(List.Split(List.Range(x, 22, 82 - 23 + 1), 5)) & {List.Range(x, 83, 95 - 84 + 1)}}),        (x, y) => List.Skip(List.FirstN(x, 22)) & {y{0}} & y{1}    ),    tbl = Table.Buffer(Table.FromList(ltm, (x) => x, leading_headers & {"статья"} & dates)),    remove_blank_columns = Table.SelectColumns(        tbl,        List.Select(            Table.ColumnNames(tbl),            (x) => List.NonNullCount(Table.Column(tbl, x)) <> 0        )    ) in    remove_blank_columns

удалить пустые столбцы также можно с помощью Table.Profile. И удалить их можно уже после объединения всех таблиц.

показалось. Web.BrowserContents содержимое страницы забирает штатно

а тестировать ваши запросы желания, увы, нет.

невозможно, у меня нет доступа в dreamjob.ru. Но Web.BrowserContents у меня есть и работает.

после чего? после обновления? Согласно сайту производителя, это самая свежая версия
Volume licensed versions of Office LTSC 2021 ; February 10, 72026, Version 2108 (Build 14334.20522)
И что же? Web.BrowserContents не появилась?

Не зная версии программы, могу только посоветовать запустить обновление офисного пакета. Хотя, в случае с Excel for Mac, например, это не поможет.

не обращайте внимания. Я не понял, что надо еще по именам сгруппировать и сделал построчно.

Valejio, для I4
=MAX(0, NETWORKDAYS(MAX(I$3,$C4), MIN(EOMONTH(I$3, 0), $D4), НеРабДни2))

в вашей версии Excel нет функции Web.BrowserContents

тогда объясните такой вот феномен: значений 2 - 6,948 и 6,300 (груша янв и фев 24). А хронологическая средняя аж 10 тыс. Что за математика такая?

нет. Выкладывайте файл с данными, напишем код.

только не надо к нему с кодом идти - контрпродуктивно. Достаточно "как есть - как надо". Ну и про вложенные скобки я бы сразу упомянул (есть они или нет) - кмк, важная деталь, наряду со степенью от 1 до 9.

а я заглянул и 100 раз пожалел об этом. Со вложенными скобочками (а вдруг!) пришлось повозиться. Может кто-то придумает что-то попроще, чем получилось у меня

плохой вариант PQ

let    // function: меняем ^, степень и скобки на нужное содержимое    fx_acc = (s, c) => [        left_char = xt{c - 1},        z = if left_char = "x" then List.ReplaceRange(s, c - 1, 3, {"pow(KKS,", xt{c + 1}, ")"})            else ((br) => List.ReplaceRange(List.ReplaceRange(s, br{0}, 1, {"pow("}), c - 1, 3,{",", xt{c + 1}, ")"})            )            (List.Skip(opn_cls, (x) => x{1} <> (c - 1)){0})    ][z],    // function: находим позиции парных откр и закр скобок для последующей замены    fx_gena = (optional x) => [        i = if x is null then 0 else x[i] + 1,        ch = brs{i},        opn = if x is null then {ch{1}} else if ch{0} = 1 then x[opn] & {ch{1}} else List.RemoveLastN(x[opn]),        res = if x is null or ch{0} = 1 then {} else {List.Last(x[opn]), ch{1}}    ],    // function: находим скобки и их тип (откр или закр) по тексту, делаем список для генератора    fx_char = © => ((p) => List.Transform(p, (x) => { if c = "(" then 1 else -1, x}))(List.PositionOf(xt, c, Occurrence.All)),    // исходный текст    txt = "997 - (25 + 75) + 23,21+-3*x^2+36*((25*x^1)+ ( 36  *x^ 2 ) ^ 9 )^3",    // список базовых замен и его применение к исходному тексту    start_replacements = {{",", "."}, {"+-", "-"}, {"-+", "-"}, {" ", ""}},    clean_text = List.Accumulate(start_replacements, txt, (s, c) => Function.Invoke(Text.Replace, {s} & c)),    // очищенный текст - в список символов    xt = List.Buffer(Text.ToList(clean_text)),    // находим позиции символа ^    power_positions = List.PositionOf(xt, "^", Occurrence.All),    // список позиций всех скобок    brs = List.Buffer(List.Sort(fx_char("(") & fx_char(")"), (x) => x{1})),    // находим позиции парных скобок    opn_cls = List.Buffer(List.RemoveItems(List.Generate(fx_gena, (x) => x[i] < List.Count(brs), fx_gena, (x) => x[res]), {{}})),    // последнее преобразование - меняем текст в исходном списке, исходя из того, что находится левее ^    result = Text.Combine(List.Accumulate(power_positions, xt, fx_acc)) in    result

F.I.N., при группировке по коду преобразуйте таблицу в запись с полями имя_файла и значениями Количество продукта с помощью Record.FromList, например. А потом Table.ExpandRecordColumn с указанием списка всех имен файлов.

Ну да, некоторые предприятия не работают по ночам.
отвечает ТС
Какие еще будут вопросы?  

и у меня не 30, а 50. И сумма тоже 75, а не 55. Вот я и попридержал "коней" до выяснения...