let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", Int64.Type}, {"мероприятия проводимые отделом культуры", type text}, {"колич", Int64.Type}, {"01.12.2017", type any}, {"02.12.2017", type any}, {"03.12.2017", type any}, {"04.12.2017", Int64.Type}, {"05.12.2017", type any}, {"06.12.2017", type any}, {"07.12.2017", type any}, {"08.12.2017", type any}, {"09.12.2017", type any}, {"10.12.2017", type any}, {"11.12.2017", type any}, {"12.12.2017", type any}, {"13.12.2017", type any}, {"14.12.2017", type any}, {"15.12.2017", type any}, {"16.12.2017", type any}, {"17.12.2017", type any}, {"18.12.2017", type any}, {"19.12.2017", type any}, {"20.12.2017", type any}, {"21.12.2017", type any}, {"22.12.2017", type any}, {"23.12.2017", type any}, {"24.12.2017", type any}, {"25.12.2017", type any}, {"26.12.2017", type any}, {"27.12.2017", type any}, {"28.12.2017", type any}, {"29.12.2017", type any}, {"30.12.2017", type any}, {"31.12.2017", type any}}),
#"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип",{"Столбец1", "колич"}),
#"Замененное значение" = Table.ReplaceValue(#"Удаленные столбцы",null,0,Replacer.ReplaceValue,{"01.12.2017", "02.12.2017", "03.12.2017", "04.12.2017", "05.12.2017", "06.12.2017", "07.12.2017", "08.12.2017", "09.12.2017", "10.12.2017", "11.12.2017", "12.12.2017", "13.12.2017", "14.12.2017", "15.12.2017", "16.12.2017", "17.12.2017", "18.12.2017", "19.12.2017", "20.12.2017", "21.12.2017", "22.12.2017", "23.12.2017", "24.12.2017", "25.12.2017", "26.12.2017", "27.12.2017", "28.12.2017", "29.12.2017", "30.12.2017", "31.12.2017"}),
#"Несвернутые столбцы" = Table.UnpivotOtherColumns(#"Замененное значение", {"мероприятия проводимые отделом культуры"}, "Атрибут", "Значение"),
#"Строки с применным фильтром" = Table.SelectRows(#"Несвернутые столбцы", each ([Значение] <> 0)),
#"Удаленные столбцы1" = Table.RemoveColumns(#"Строки с применным фильтром",{"Значение"}),
#"Измененный тип1" = Table.TransformColumnTypes(#"Удаленные столбцы1",{{"Атрибут", type date}}),
#"группировка" = Table.Group({"мероприятия проводимые отделом культуры"}, {
{ {each ([Атрибут]), Date.Type}
},
in
#"группировка"