Одновременное развертывание всех столбцов в Power Query

Question

Нужна помощь в одновременном раскрытии всех столбцов в электронной таблице с помощью Power Query. Я переместил электронную таблицу из этого:

в это:

Каждая таблица представляет собой длинный столбец значений ( 9000+ строк). Я бы хотел, чтобы у каждого столбца был отдельный идентификатор. Расширение столбцов вручную было бы утомительной работой, и наша команда регулярно добавляет данные от новых участников исследования (идентификаторы), поэтому мне нужна помощь в создании кода, который может расширять все столбцы одновременно без необходимости указывать имена столбцов (идентификаторы) в коде. Спасибо за вашу помощь!

Это код, который я использую сейчас:

let
Source = Folder.Files("folder address goes here"),
#"Filtered Rows" = Table.SelectRows(Source, each ([Extension] = ".xlsx")),
#"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Content", "Extension", "Date accessed", "Date modified", "Date created", "Attributes"}),
#"Added Custom" = Table.AddColumn(#"Removed Columns", "filepath", each [Folder Path]&[Name]),
#"Removed Columns1" = Table.RemoveColumns(#"Added Custom",{"Folder Path"}),
#"Added Custom1" = Table.AddColumn(#"Removed Columns1", "Custom", each Excel.Workbook(File.Contents([filepath]))),
#"Expanded Custom" = Table.ExpandTableColumn(#"Added Custom1", "Custom", {"Name"}, {"Name.1"}),
#"Filtered Rows1" = Table.SelectRows(#"Expanded Custom", each ([Name.1] = "Heart Period Time Series")),
#"Added Custom2" = Table.AddColumn(#"Filtered Rows1", "Custom", each fnImportExcel3([filepath],[Name.1])),
#"Removed Columns2" = Table.RemoveColumns(#"Added Custom2",{"filepath", "Name.1"}),
#"Replaced Value" = Table.ReplaceValue(#"Removed Columns2",".xlsx","",Replacer.ReplaceText,{"Name"}),
#"Transposed Table" = Table.Transpose(#"Replaced Value"),
#"Promoted Headers" = Table.PromoteHeaders(#"Transposed Table")

Answer 1

Вы можете использовать следующую технику:

let
    t1 = #table({"1"},List.Zip({{"a".."f"}})),
    t2 = #table({"2"},List.Zip({{"d".."g"}})),
    t3 = #table({"3"},List.Zip({{"a".."e"}})),
    input = #table({"Name","Custom"},{{"B1",t1},{"B2",t2},{"B3",t3}}),
    toList = Table.TransformColumns(input, {"Custom", Table.ToList}),
    output = #table(toList[Name],List.Zip(toList[Custom]))
in
    output