let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Дата", type date}}),
#"Вставлено: начало недели" = Table.AddColumn(#"Измененный тип", "Начало недели", each Date.StartOfWeek([Дата]), type date),
#"Вставлено: конец недели" = Table.AddColumn(#"Вставлено: начало недели", "Конец недели", each Date.EndOfWeek([Дата]), type date),
#"Извлеченные первые символы" = Table.TransformColumns(#"Вставлено: конец недели", {{"Начало недели", each Text.Start(Text.From(_, "ru-RU"), 2), type text}}),
#"Извлеченные первые символы1" = Table.TransformColumns(#"Извлеченные первые символы", {{"Конец недели", each Text.Start(Text.From(_, "ru-RU"), 2), type text}}),
#"Вставлено: месяц" = Table.AddColumn(#"Извлеченные первые символы1", "Месяц", each Date.Month([Дата]), Int64.Type),
#"Добавленный префикс" = Table.TransformColumns(#"Вставлено: месяц", {{"Месяц", each "0" & Text.From(_, "ru-RU"), type text}}),
#"Извлеченные последние символы" = Table.TransformColumns(#"Добавленный префикс", {{"Месяц", each Text.End(_, 2), type text}}),
#"Вставлено: объединенный столбец" = Table.AddColumn(#"Извлеченные последние символы", "Сведено", each Text.Combine({[Начало недели], [Конец недели]}, "-"), type text),
#"Вставлено: объединенный столбец1" = Table.AddColumn(#"Вставлено: объединенный столбец", "Сведено.1", each Text.Combine({[Сведено], [Месяц]}, "."), type text),
#"Другие удаленные столбцы" = Table.SelectColumns(#"Вставлено: объединенный столбец1",{"Сведено.1"})
in
#"Другие удаленные столбцы" |