Merge by Text Contain Any - Multiple values in a row

(this post is a continuation of the post https://community.powerbi.com/t5/Power-Query/Merge-by-Text-Contain-Any/m-p/744975#M24766 where the initial requirements have been changed and it was recommended to open a new post).

Hi Iamnvt,

I've prepared 2 tables and a PowerQuery query which combine these two tables.

TableWordValue with some sample data:

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WclTSUTI0UorViVZyBTKNIEwXkKgBmOkEZJqCWQpAllJsLAA=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [Word = _t, Value = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Word", type text}, {"Value", Int64.Type}})
in
    #"Changed Type"

The solution:

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WctRRcNJRcFaK1YlWAjJcwAxXHQU3pdhYAA==", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type text) meta [Serialized.Text = true]) in type table [Column1 = _t]),
    // split text in Column1 into a list
    SplitList = Table.AddColumn(Source, "SplitList", each Text.Split([Column1], ", ")),
    // look up for every word in the table TableWordValue and get a record Word;Value back
    Lookup = Table.AddColumn(
        SplitList, 
        "Lookup", 
        (row) => 
            List.Select(
                List.Transform(row[SplitList], (listItem) => Table.SelectRows(TableWordValue, each [Word] = listItem){0}?),
                each _ <> null
            )
    ),
    // expand lists into rows
    ExpandList = Table.ExpandListColumn(Lookup, "Lookup"),
    // expand record into word and value
    ExpandResultRecord = Table.ExpandRecordColumn(ExpandList, "Lookup", {"Word", "Value"})
in
    ExpandResultRecord