let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}}),
    #"Замененное значение" = Table.ReplaceValue(#"Измененный тип"," ","",Replacer.ReplaceText,{"Столбец1"}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Замененное значение", "SplitList", each Text.SplitAny([Столбец1],",")),
    #"Дублированный столбец" = Table.DuplicateColumn(#"Добавлен пользовательский объект", "SplitList", "Val"),
    #"Развернутый элемент Val" = Table.ExpandListColumn(#"Дублированный столбец", "Val"),
    #"Add ListsS" = Table.AddColumn(#"Развернутый элемент Val", "Lists", each List.Accumulate(List.Numbers(0, List.Count(#"Дублированный столбец"[SplitList])),{[Val]}, (x,y)=> if List.Count(List.Intersect({#"Дублированный столбец"[SplitList]{y},x}))>0 then List.Union({#"Дублированный столбец"[SplitList]{y},x}) else x)),
    #"Удаленные дубликаты" = Table.Distinct(#"Add ListsS", {"Lists"}),
    #"Добавлен пользовательский объект1" = Table.AddColumn(#"Удаленные дубликаты", "Res", each Text.Combine(List.Sort([Lists]), ", ")),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Добавлен пользовательский объект1",{"Res"})
in
    #"Другие удаленные столбцы"

let
    lst = Excel.CurrentWorkbook(){[Name="lst"]}[Content][Column1],
    fr = List.Transform(lst, (x)=>Text.Split(x, ",")),
    f1=(x) => [ z1 = List.Distinct(List.Transform(x, (x)=>List.Union(List.Select(fr, (y)=>List.ContainsAny(y,x))))),
                z2 =  if x=z1 then x else @f1(z1)][z2],
    b1 = List.Buffer(f1(fr)),
    to = Table.FromList(b1, (x)=>{Text.Combine(x, ",")})
in
    to