let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Split Column by Delimiter" = Table.SplitColumn(Source, "document", Splitter.SplitTextByDelimiter(".", QuoteStyle.Csv), {"document.1", "document.2"}),
#"Duplicated Column" = Table.AddColumn(#"Split Column by Delimiter", "document.2 - Copy", each [document.2], type text),
#"Inserted Merged Column" = Table.AddColumn(#"Duplicated Column", "Merged", each Text.Combine({[document.1], [document.2]}, "."), type text),
#"Removed Columns" = Table.RemoveColumns(#"Inserted Merged Column",{"document.2"}),
#"Pivoted Column" = Table.Pivot(#"Removed Columns", List.Distinct(#"Removed Columns"[#"document.2 - Copy"]), "document.2 - Copy", "Merged"),
#"Removed Columns1" = Table.RemoveColumns(#"Pivoted Column",{"document.1"})
in
#"Removed Columns1"