Пишу в ЛС. На проверке.

pq
let    f=(x)=>List.Transform(Text.Split(x," "),(i)=>Record.FieldOrDefault(dict,i)),    tmp = Table.ToColumns(Excel.CurrentWorkbook(){[Name="dict"]}[Content]),    dict = Record.FromList(tmp{1},List.Transform(tmp{0},Text.From)),    tbl = Excel.CurrentWorkbook(){[Name="rez"]}[Content],    to = Table.FromList(tbl[Набор],(x)=>{x,Text.Combine(f(x)," ")},Value.Type(tbl)) in    to

Заполнить данными столбцы Параметр, Значения, Набор и обновить результат (Excel > Данные > Обновить все)

pq
let    a={"Сотрудник",each Text.Combine(List.Distinct([Сотрудник]),", ")},    b={"Количество",each List.Sum([Количество])},    from = Excel.CurrentWorkbook(){[Name="Таблица5"]}[Content],    to = Table.Group(from,{"Компонент","Изделие","Брак"},{a,b}) in    to

Обновление на месте (обновляет сам себя)
Объединения ячеек v2.xlsx (18.1 КБ)

Excel > Данные > Обновить все (или ПКМ по ячейке внутри таблицы > Обновить)

Можно чуть меньше скобок, формулу в F4 и протягивать вправо/вниз:
=(F$2+F$3/24>=$C4+$B4/24)*(F$2+F$3/24<=$E4+$D4/24)

... Del... (создайте новую тему со своим вопросом, если поиском не нашли решение своей задачи)

Вариант Ma_Ri чуть иначе

pq
let    f=(x)=>Text.Combine(List.Transform(g(x),(i)=>Text.Range(i,1))),    g=(x)=>Splitter.SplitTextByPositions({0,3,18,21})(x{0}),    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],    to = Table.ToList(from,f) in    to

Исходные данные, включая первый столбец: именованные диапазон (A2:L17) с именем «data»

pq
let    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],    to = List.Min(Table.ToList(from,(x)=>List.Max(List.Skip(x)))) in    to

Готовый вариант разнесения по столбцам (без формул).

Пишу в ЛС.

Исходные данные: именованный диапазон (A10:A104) с именем «data»

pq
let    f=(x)=>Number.From(List.LastN(List.RemoveItems(x,{""}),2){0},"en"),    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],    lst = Table.ToList(from,(x)=>Text.Split(x{0}??""," ")),    to = List.Transform(List.Alternate(lst,3,1,1),f) in    to

Выделяете данные > Excel > Вставка > Сводная
В Строки перенесите «число», в Значения — «сумма».

• Предлагаю название темы: Группировка и трансформация таблицы

Исходные данные: именованный диапазон с именем «data» (без шапки)

pq

let    f=(x)=>if x="ежемесячно" then lst else {Text.Proper(x)},    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],    lst = List.Buffer(List.Transform({1..12},(x)=>Date.MonthName(#date(2025,x,1)))),    nms = {{"Column1","Column2","Column5","Column6"},{"Код","Статья","a","b"}},    ren = Table.SelectColumns(Table.RenameColumns(from,List.Zip(nms)),nms{1}),    tr = Table.ExpandListColumn(Table.TransformColumns(ren,{"b",f}),"b"),    to = Table.Pivot(tr,lst,"b","a",List.Sum) in    to