let
    l={-30..30},
    ft=(t)=>[   a = Table.ToColumns(t),
                b = List.Transform(a, each List.PositionOf(_,1,Occurrence.All)),
                c = Table.FromList(b, Splitter.SplitByNothing(),{"Списки"}),
                d = Table.AddIndexColumn(c,"Index",1,1)][d],
    fl=(x,y)=>[ a = List.Accumulate(l,{},(i,j)=> if List.ContainsAll(List.Transform(y,each _-j),x) then i&{j} else i),
                b = List.Transform(a,Text.From),
                c = Text.Combine(b,"; ")][c],
    base = ft(Excel.CurrentWorkbook(){[Name="основа"]}[Content]),
    add = ft(Excel.CurrentWorkbook(){[Name="дополнение"]}[Content]),
    tbl = Table.AddColumn(base,"tmp",each add),
    exp = Table.ExpandTableColumn(tbl, "tmp", {"Списки", "Index"}, {"tmp.Списки", "tmp.Index"}),
    fun = Table.AddColumn(exp, "Закономерность", each fl([Списки],[tmp.Списки])),
    select = Table.SelectColumns(fun,{"Index", "tmp.Index", "Закономерность"}),
    to = [  a = Table.TransformColumnTypes(select, {"tmp.Index", type text}),
            b = Table.Pivot(a, List.Distinct(a[tmp.Index]), "tmp.Index", "Закономерность")][b]
in
    to