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. Вот я и попридержал "коней" до выяснения...

ну и какая она после этого "таблица"? Так, набор строк...

тбл

let    Source = Excel.CurrentWorkbook(),    select = Table.SelectRows(Source, each Text.Contains([Name], "anz")),    idx = Table.AddIndexColumn(select, "idx"),    trx = Table.ToList(        idx,        (x) => {            {Text.BetweenDelimiters(x{1}, "_", "_anz")} &            List.Repeat({null}, Table.ColumnCount(x{0}) - (if x{2} = 0 then 1 else 2))        }        & Table.ToList(Table.DemoteHeaders(x{0}), (w) => if x{2} = 0 then w else List.Skip(w))    ),    result = Table.FromList(        List.Zip(trx),        List.Combine    ) in    result

Hugo, все пгосто: "посадил дед репку" (.000). Она состоит из элементов в правом (втором по счету) столбце спецификации. Сами элементы могут как напрямую участвовать в создании .000 (пары .000 - "элемент"), так и быть составной частью других элементов. Задача - посчитать кол-во каждого элемента в "репке". Кол-во указано в 3м столбце спецификации. Пример: элемент .110. В таблице он используется для
.200 : 2 шт на каждый из .200, а самого .200 нужно 2 шт на каждый .000. Т.е. нужно 2 х 2 = 4 элемента .110 для создания необходимого кол-ва .200
.100 : 1 шт на каждый из .100, а самого .100 нужно тоже 1 шт на каждый .000. Т.е. нужно 1 х 1 = 1 элемент .110 для создания необходимого кол-ва .100 в спецификации.
Ответ: всего .110 нужно 4 + 1 = 5 шт, из них 4 в .200 и 1 в .100
Сам ТС с таким расчетом не справился. Бывает...

боюсь, что вам он не подойдет - слишком сложно получилось. Группировка, словарь, рекурсия... Одни неприятности. Впрочем, извольте...

код

let    fx_item = (item) => [        composure = List.Buffer(Record.Field(structure, item)),        items_list = List.Transform(composure, List.First),        items_count = List.Buffer(List.Transform(composure, (x) => Function.Invoke(fx_disassemble, x))),        total_count = List.Sum(items_count),        z = {            item,            total_count,            Text.Combine(                List.Transform(                    List.Zip({items_list, items_count}),                    (x) => Text.Format("#{1} в #{0}", x)                ),                ", "            )        }    ][z],    fx_disassemble = (name, k) => [        parts = Record.FieldOrDefault(structure, name),        next = if parts is null then k else k * List.Sum(List.Transform(parts, (x) => @fx_disassemble(x{0}, x{1})))    ][next],    Source = Table.Buffer(Table.Skip(Excel.CurrentWorkbook(){[Name="ro"]}[Content])),    structure = Function.Invoke(        Record.FromList,        List.Reverse(            Table.ToColumns(                Table.Group(Source, "Column2", {"x", (x) => Table.ToList(x, each {_{0}, _{2}})})            )        )    ),    items = Record.FieldNames(structure),    to_table = Table.FromList(items, fx_item) in    to_table

еще один вариант результата...

проще - да. Быстрее, чем то, что есть сейчас - скорее всего. Но при таком раскладе могут быть и другие подходы к решению.

грубая оценка, безо всяких интерполяций

power query M

let    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],    types = Table.TransformColumnTypes(Source,{{"Расход суточный (P531)", type number}}),    rows = List.Buffer(Table.ToList(types, (x) => {x{0}, x{2}})),    gnr = List.Generate(        () => [i = 0, correction = 0],        (x) => x[i] < List.Count(rows),        (x) => [i = x[i] + 1, correction = x[correction] + (if rows{i}{1} < rows{i - 1}{1} then rows{i - 1}{1} else 0)],        (x) => {rows{x[i]}{0}, rows{x[i]}{1} + x[correction]}    ),    tbl = Table.FromList(gnr, (x) => x, {"timestamp", "volume"}),    result = Table.Group(        tbl,        "timestamp",        {"volume", (x) => List.Last(x[volume]) - List.First(x[volume])},        GroupKind.Local,        (s, c) => Number.From(Time.Hour(s) <> Time.Hour©)    ) in    result

mmakshakov, а в 10:56 у вас счетчик обнуляется?

предложение по названию темы: Расчет часового расхода (воды)

нет. Я просто не вижу другого решения, кроме как найти строку из справочника и добавить ее в выписку полностью (за исключением первого значения). В зависимости от типа строк в справочнике (список списков или список записей) применяем нужную функцию по разделению столбца на несколько.
просто читаем имена столбцов в справочнике и используем их. Вполне себе обычная операция. Одно условие - ключевое значение должно идти первым. Попробуйте вот этот код (я перешел на списки вместо записей)

без имен столбцов справочника

let    vypiska = Excel.CurrentWorkbook(){[Name="tblVypiska"]}[Content],    usl = Excel.CurrentWorkbook(){[Name="tblUslovia"]}[Content],    rules = List.Buffer(Table.ToList(usl, (x) => x)),    new_columns = List.Skip(Table.ColumnNames(usl)),    add_col = Table.AddColumn(        vypiska,        "spravochnik",        each List.Accumulate(            rules,            {},            (state, cur) => if state <> {}                then state                else if [Назначение платежа] <> null and Text.Contains([Назначение платежа], cur{0}, Comparer.OrdinalIgnoreCase)                    then List.Skip(cur)                    else {}        )    ),    xpand = Table.SplitColumn(add_col, "spravochnik", (x) => x, new_columns, null) in    xpand

А если забыть про List.Accumulate, то вот так пошустрее будет

list.skip

let    vypiska = Excel.CurrentWorkbook(){[Name="tblVypiska"]}[Content],    usl = Excel.CurrentWorkbook(){[Name="tblUslovia"]}[Content],    rules = List.Buffer(Table.ToList(usl, (x) => {Text.Upper(x{0})} & List.Skip(x))),    new_columns = List.Skip(Table.ColumnNames(usl)),    add_columns = Table.ToList(        vypiska,        (x) => ((match) => if match is null then x else x & List.Skip(match))            (List.Skip(rules, (w) => not Text.Contains(Text.Upper(x{2}), w{0})){0}?)    ),    result = Table.FromList(add_columns, (x) => x, Table.ColumnNames(vypiska) & new_columns) in    result