let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Split Column by Delimiter" = Table.SplitColumn(Source, "Column1", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4"}),
#"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Column1.1", type text}, {"Column1.2", type text}, {"Column1.3", type text}, {"Column1.4", type text}}),
#"Removed Columns" = Table.RemoveColumns(#"Changed Type",{"Column1.1", "Column1.2", "Column1.3"}),
#"Filtered Rows" = Table.SelectRows(#"Removed Columns", each ([Column1.4] <> null)),
#"Split Column by Delimiter1" = Table.SplitColumn(#"Filtered Rows", "Column1.4", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, true), {"Column1.4.1", "Column1.4.2"}),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter1",{{"Column1.4.1", type text}, {"Column1.4.2", type text}}),
#"Removed Columns1" = Table.RemoveColumns(#"Changed Type1",{"Column1.4.1"}),
#"Replaced Value" = Table.ReplaceValue(#"Removed Columns1","#","",Replacer.ReplaceText,{"Column1.4.2"}),
#"Replaced Value1" = Table.ReplaceValue(#"Replaced Value","</a>","",Replacer.ReplaceText,{"Column1.4.2"}),
#"Split Column by Delimiter2" = Table.SplitColumn(#"Replaced Value1", "Column1.4.2", Splitter.SplitTextByDelimiter(";>", QuoteStyle.Csv), {"Column1.4.2.1", "Column1.4.2.2"}),
#"Changed Type2" = Table.TransformColumnTypes(#"Split Column by Delimiter2",{{"Column1.4.2.1", type text}, {"Column1.4.2.2", type text}})
in
#"Changed Type2" |