PQ-text split multiple columns at once

[sandy666]

list1list2list3list1list2list3

a,b,cj,zw,x,c,vajw

bzx

cc

v



// Table1
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
TFC = Table.AddColumn(Table.DemoteHeaders(Source), "TFC", each Table.FromColumns({Text.Split([Column1],","),Text.Split([Column2],","),Text.Split([Column3],",")})),
Exp = Table.ExpandTableColumn(Table.SelectColumns(TFC,{"TFC"}), "TFC", {"Column1", "Column2", "Column3"}, {"List1", "List", "List3"}),
Promo = Table.PromoteHeaders(Exp, [PromoteAllScalars=true])
in
Promo