Подскажите, а вот такой вариант рабочий? С помощью PQ.
Вроде я сделал, не знаю правильно ли конечно
Вроде я сделал, не знаю правильно ли конечно
| Код |
|---|
let
src = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
nms = Table.ColumnNames(src),
f = (x)=>[
a = Table.ToList(x, (y)=> {List.FirstN(y,4)} & {List.Skip(y,4)}),
b = Table.Combine( List.Transform(a, (c)=> Table.PromoteHeaders( Table.FromColumns( List.Zip({List.FirstN(nms,4), c{0}}) & List.Split( c{1}, 2)))))
][b],
gr = Table.Combine( Table.Group(src, List.FirstN(nms,4), {{"All", (x)=> f(x)}})[All]),
select = Table.SelectColumns(gr, List.Select(Table.ColumnNames(gr),(x)=> not Text.StartsWith (Text.From(x), "Column", Comparer.OrdinalIgnoreCase)))
in
select |
