let
Source = Excel.CurrentWorkbook(){[Name="YourTableName"]}[Content],
#"Grouped Rows" = Table.Group(Source, {"ID"}, {{"tbl", (x) => Table.AddColumn( x, "Word_1", each x[Word]), type table}}),
#"Removed Columns" = Table.RemoveColumns(#"Grouped Rows",{"ID"}),
#"Expanded {0}" = Table.ExpandTableColumn(#"Removed Columns", "tbl", {"ID", "Word", "Word_1"}, {"ID", "Word", "Word_1"}),
#"Expanded {0}1" = Table.ExpandListColumn(#"Expanded {0}", "Word_1")
in
#"Expanded {0}1"