let
Source = Table1,
Result = Table.AddColumn(Source, "Result", (This) => Text.Combine(List.Select(Source[Key], each Text.Contains(This[Text], _)),", "))
in
Result
[FONT=Helvetica-Normal]let[/FONT][FONT=Helvetica-Normal] Source = Table1,[/FONT]
[FONT=Helvetica-Normal] fxc = (This as table, s)=> Text.Combine(List.Select(Source[Key], each Text.Contains(This{s}[Text], _)),", "),[/FONT]
[FONT=Helvetica-Normal] Result = Table.AddColumn(Source, "Result", each fxc(Source,_))[/FONT]
[FONT=Helvetica-Normal]in[/FONT]
[FONT=Helvetica-Normal] Result[/FONT]
Text.Contains(string as nullable text, substring as text, optional comparer as nullable function) as nullable logical
(keys as list, s as text) as text => Text.Combine(List.Select(keys, each Text.Contains(s, _)),", ")
let
Source = Table1,
Result = Table.AddColumn(Source, "Result", each fxc(Source[Key],[Text]))
in
Result