let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Inserted Cleaned Text" = Table.AddColumn(Source, "Clean", each Text.Clean([Column1]), type text),
#"Split Column by Delimiter" = Table.SplitColumn(#"Inserted Cleaned Text", "Clean", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"Clean.1", "Clean.2", "Clean.3", "Clean.4"}),
#"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Clean.1", type text}, {"Clean.2", type text}, {"Clean.3", type text}, {"Clean.4", type text}})
in
#"Changed Type"