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]
Здравствуйте[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] krosav4ig
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
Сообщение Здравствуйте[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] Автор - krosav4ig Дата добавления - 09.06.2019 в 21:57