Power Query: Преобразовать двумерную таблицу в плоскую

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Power Query: Преобразовать двумерную таблицу в плоскую (Формулы/Formulas)

MARINKA

Дата: Воскресенье, 09.06.2019, 18:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте, форумчане!

Помогите пожалуйста решить простую задачу средствами Power Query.
В приложенном файле из двумерной таблицы "Дано" нужно получить плоскую таблицу "Требуется".
Всё что у меня получилось, это таблица "Power Query".

К сообщению приложен файл: 31.xlsx (20.5 Kb)

Ответить

krosav4ig

Дата: Воскресенье, 09.06.2019, 21:57 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте[vba]

Код

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f1 = (_)=>DateTime.ToText(_,"dd.MMM","ru-ru"),
    a  = Table.TransformColumns(Table.ReplaceValue(Source,null,"",Replacer.ReplaceValue,{"Цена", "Комментарий"}),{{"Дата",f1},{"Дата2",f1}}),
    f2 = (t,s,s1)=>Table.RenameColumns(Table.SelectColumns(Table.UnpivotOtherColumns(t, {"Дата", "Дата2", "Наименование ", s}, "Атрибут", "Значение"),{s1, "Наименование ", "Атрибут", "Значение"}),{{s1,"Дата"}}),
    b  = List.Distinct(a[Дата]&a[Дата2]),
    c  = Table.Combine({f2(a, "Цена","Дата"),f2(a, "Комментарий","Дата2")}),
    f3 = (t)=>Table.RemoveColumns(Table.Pivot(t, b, "Дата", "Значение"),{"Наименование ", "Атрибут"}),
    d  = Table.Group(c, {"Наименование ", "Атрибут"}, {{" ",f3}}),
    e  = Table.Pivot(d, List.Distinct(d[Атрибут]), "Атрибут", " ")[[#"Наименование "],[Цена],[Комментарий]],
    f4 = (t,s)=>Table.ExpandTableColumn(t, s,b, List.Transform(b,each s&" "&_)),
    f  = f4(f4(e, "Цена"), "Комментарий")
in
    f

[/vba]