Massive formula
=LET(z,B6,c,", ",d,"-",xm,"<x><m>",mm,"</m><m>",mx,"</m></x>",m,"//m",y,FILTERXML(xm&SUBSTITUTE(z,c,mm)&mx,m),
r,REDUCE(z,y,LAMBDA(a,v,LET(t,IFERROR(FILTERXML(xm&SUBSTITUTE(a,c,mm)&mx,m),""),x,XLOOKUP(v,y,t),
l,LEFT(v,FIND(d,v)-1),r,MID(v,LEN(l)+2,99),TEXTJOIN(c,0,IF(COUNT(FIND(l,t))>1,SUBSTITUTE(IF(v=y,"",t),l,x),IF(COUNT(FIND(r,t))>1,SUBSTITUTE(IF(v=y,"",t),r,x),t)))))),
s,SUBSTITUTE(TRIM(SUBSTITUTE(r,",",))," ",c),t,TRANSPOSE(FILTERXML(xm&SUBSTITUTE(s,c,mm)&mx,m)),l,MAX(LEN(t)),n,MAX(LEN(t)-LEN(SUBSTITUTE(t,d,))+1),
TEXTJOIN(c,,BYCOL(TRIM(MID(SUBSTITUTE(t,d,REPT(" ",l)),SEQUENCE(n,,,l),l)),LAMBDA(w,TEXTJOIN(d,,SORT(UNIQUE(w)))))))
or with new TEXTSPLIT only available for Office insider
https://techcommunity.microsoft.com/...s/ba-p/3186066
=LET(z,B6,c,", ",d,"-",y,TEXTSPLIT(z,,c),
r,REDUCE(z,y,LAMBDA(a,v,LET(t,IFERROR(TEXTSPLIT(a,,c),""),x,XLOOKUP(v,y,t),
l,LEFT(v,FIND(d,v)-1),r,MID(v,LEN(l)+2,99),TEXTJOIN(c,0,IF(COUNT(FIND(l,t))>1,SUBSTITUTE(IF(v=y,"",t),l,x),IF(COUNT(FIND(r,t))>1,SUBSTITUTE(IF(v=y,"",t),r,x),t)))))),
t,TRANSPOSE(TEXTSPLIT(r,d,c,,"")),TEXTJOIN(c,,BYCOL(t,LAMBDA(w,TEXTJOIN(d,,SORT(UNIQUE(w)))))))
Bookmarks