PowerQuery. Транспонирование и смещение строк.

Пользователь

Сообщений: 2 Регистрация: 12.09.2023

12.09.2023 13:14:17

Добрый день, уважаемое сообщество.

Есть файл источник который необходимо хитро (не очень) транспонировать, но не полностью. Часть столбцов со значениями не транспонируется, а смещается. Есть проблема с вставкой пустых строк для смещения, чтобы попасть в транспонированную область.

Хотелось бы сделать все в PowerQuery , но кто-то может посоветует как сделать цикл в VBA.

Прилагаю файл Книга_Source - на листе Source исходные данные, на листе Final нужное размещение данных.
Также прилагаю файл Книга_Final с моими потугами в PowerQuery.

Дополнительно пытался в расширенном редакторе использовать, и довольно успешно, Table.InsertRows, но не понимаю пока как задать ему цикл, чтобы обрабатывать все строки.

Прошу вашей помощи.

Прикрепленные файлы

Книга_Source.xlsx (14.59 КБ)
Книга_Final.xlsx (21.73 КБ)

Alien Sphinx

Пользователь

Сообщений: 2081 Регистрация: 10.01.2023

Excel 365

12.09.2023 14:38:18

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Table2"]}[Content],
    flt = Table.SelectRows(Source, each ([Наименование] <> null)),
    zago = List.Buffer({"Заголовок 1", "Заголовок 2", "Заголовок 3", "Заголовок 4", "Заголовок 5"}), 
    tbl01 = List.Buffer(Table.ToRecords(Table.RemoveColumns(flt, zago))),
    tbl02 = Table.SelectColumns(flt, zago),
    txf02 = List.Transform(Table.ToRows(tbl02), each List.Zip({zago, _})),
    zip = List.Zip({tbl01, txf02}),
    final = Table.Combine(List.Transform(zip, each Table.FromRecords({_{0}}) & Table.FromRows(_{1}, {"Наименование", "пусто"})))
in
    final

Прикрепленные файлы

Книга_Source.xlsx (25.34 КБ)

Пришелец-прораб.

mitkins Пользователь Сообщений: 2 Регистрация: 12.09.2023	#3 12.09.2023 16:38:54 @Alien Sphinx Большое спасибо. Очень элегантно.