let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Дата занятия", type date}, {"Наименование группы", type text}, {"Преподаватель", type text}}),
#"Объединенные столбцы" = Table.CombineColumns(Table.TransformColumnTypes(#"Измененный тип", {{"Дата занятия", type text}}, "ru-RU"),{"Дата занятия", "Наименование группы"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Сведено"),
#"Сгруппированные строки" = Table.Group(#"Объединенные столбцы", {"Преподаватель"}, {"Все", each _[#"Сведено"], type list}),
#"Извлеченные значения" = Table.TransformColumns(#"Сгруппированные строки", {"Все", each Text.Combine(List.Transform(_, Text.From), "#(lf)"), type text}),
#"Разделить столбец по разделителю" = Table.SplitColumn(#"Извлеченные значения", "Все", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), {"Все.1", "Все.2", "Все.3", "Все.4", "Все.5", "Все.6", "Все.7", "Все.8", "Все.9", "Все.10", "Все.11", "Все.12", "Все.13", "Все.14", "Все.15", "Все.16", "Все.17", "Все.18", "Все.19", "Все.20", "Все.21", "Все.22", "Все.23", "Все.24", "Все.25", "Все.26", "Все.27", "Все.28", "Все.29", "Все.30", "Все.31", "Все.32", "Все.33", "Все.34", "Все.35", "Все.36", "Все.37", "Все.38", "Все.39", "Все.40", "Все.41", "Все.42", "Все.43", "Все.44", "Все.45", "Все.46", "Все.47", "Все.48", "Все.49", "Все.50", "Все.51", "Все.52", "Все.53", "Все.54", "Все.55", "Все.56", "Все.57", "Все.58", "Все.59", "Все.60", "Все.61", "Все.62", "Все.63", "Все.64", "Все.65", "Все.66", "Все.67", "Все.68", "Все.69", "Все.70", "Все.71", "Все.72", "Все.73", "Все.74", "Все.75", "Все.76", "Все.77", "Все.78", "Все.79", "Все.80", "Все.81", "Все.82", "Все.83", "Все.84", "Все.85", "Все.86", "Все.87", "Все.88", "Все.89", "Все.90", "Все.91", "Все.92", "Все.93", "Все.94", "Все.95", "Все.96", "Все.97", "Все.98", "Все.99", "Все.100", "Все.101", "Все.102", "Все.103", "Все.104", "Все.105", "Все.106", "Все.107", "Все.108", "Все.109", "Все.110", "Все.111", "Все.112", "Все.113", "Все.114", "Все.115", "Все.116", "Все.117", "Все.118", "Все.119", "Все.120", "Все.121", "Все.122", "Все.123", "Все.124", "Все.125", "Все.126", "Все.127"}),
#"Транспонированная таблица" = Table.Transpose(#"Разделить столбец по разделителю"),
#"Повышенные заголовки" = Table.PromoteHeaders(#"Транспонированная таблица", [PromoteAllScalars=true])
in
#"Повышенные заголовки" |