Объединение столбцов PQ

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

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

10.07.2024 20:31:40

Добрый вечер.
В прикрепленном файле пример.
Разбил данные по столбцам, имею несколько столбцов вида id1, id2..., sum1, sum2..., kol1, kol2...
отменил свертывание, но не могу понять , как сопоставить, индекс не помог или я не знаю как сделать .
Думал объединить столбы по Id, sum,kol друг под другом - тоже не вышло.
В файле сделано, то на чем завис.
Помогите пжлста.

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

пример.xlsx (9.26 КБ)
что сделано для pe.xlsx (20.63 КБ)

Изменено: Сергей Иванов - 10.07.2024 20:31:53

AlienSx

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

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

Excel 365

10.07.2024 22:51:50

m
let Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content], to_list = Table.ToList( Source, (x) => List.Zip( List.Transform( x, (w) => Expression.Evaluate( Text.Combine( List.ReplaceMatchingItems( Text.ToList(w), {{"[", "{"}, {"]", "}"}, {"""", ""}} ) ) ) ) ) ), to_table = Table.FromList(List.Combine(to_list), (x) => x, Table.ColumnNames(Source)) in to_table

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

пример-314.xlsx (17.76 КБ)

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

voler83

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

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

11.07.2024 10:47:45

Сергей Иванов,

Код

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Замененное значение" = Table.ReplaceValue(Источник,"]","",Replacer.ReplaceText,{"id", "sum", "kol"}),
    #"Замененное значение1" = Table.ReplaceValue(#"Замененное значение","[","",Replacer.ReplaceText,{"id", "sum", "kol"}),
    #"Замененное значение2" = Table.ReplaceValue(#"Замененное значение1","""","",Replacer.ReplaceText,{"id", "sum", "kol"}),
    ListZip = Table.AddColumn(#"Замененное значение2", "Пользовательский", each List.Zip({Text.Split([id], ","), Text.Split([sum], ","), Text.Split([kol], ",")})),
    удалСтолб1 = Table.SelectColumns(ListZip,{"Пользовательский"}),
    разворотСписков = Table.ExpandListColumn(удалСтолб1, "Пользовательский"),
    списокВзапись = Table.AddColumn(разворотСписков, "Пользовательский.1", each Record.FromList([Пользовательский], {"1", "2", "3"})),
    удалСтолб2 = Table.RemoveColumns(списокВзапись,{"Пользовательский"}),
    записиВтаблицу = Table.ExpandRecordColumn(удалСтолб2, "Пользовательский.1", {"1", "2", "3"}, {"1", "2", "3"})
in
    записиВтаблицу

Сергей Иванов Пользователь Сообщений: 63 Регистрация: 01.01.1970	#4 11.07.2024 11:30:55 AlienSx, нет слов, большое спасибо. voler83, разбираюсь, большое спасибо.

Читают тему