PQ-text split multiple columns at once

list1	list2	list3		list1	list2	list3
a,b,c	j,z	w,x,c,v		a	j	w
				b	z	x
				c		c
						v

Code:

---

// 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

---