Для этого не нужно писать никакого кода, просто нажимайте на команды в пользовательском интерфейсе, но если посмотреть на код, то он выглядит следующим образом:
let
Source = Excel.CurrentWorkbook(){[Name = "MyTable"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Name", type text}, {"Year", type text}}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Changed Type", "Year", Splitter.SplitTextByDelimiter("-", QuoteStyle.Csv), {"Year.1", "Year.2"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Year.1", Int64.Type}, {"Year.2", Int64.Type}}),
#"Added Custom" = Table.AddColumn(#"Changed Type1", "list", each {[Year.1]..[Year.2]}),
#"Expanded list" = Table.ExpandListColumn(#"Added Custom", "list"),
#"Removed Columns" = Table.RemoveColumns(#"Expanded list",{"Year.1", "Year.2"})
in
#"Removed Columns"
Прикрепляю к посту несколько видео по теме: