let
    //функции
    f=(x,y)=>List.Transform(x,(x)=>{x,y}),
    g=(x)=>{x,(y)=>List.Sum(Table.Column(y,x)),type number},
    h=(x)=>{x,(y)=>Text.Combine(List.Distinct(Table.Column(y,x)),";")},
    j=(x,y)=>{y&x,(z)=>Text.Combine(List.Transform(List.Zip({Table.Column(z,y),List.Transform(Table.Column(z,x),Text.From)}),(x)=>Text.Format("#{0} (x#{1})",x)),"; ")},
    
    //подключение
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    
    //списки
    nms = Table.ColumnNames(from),
    nms1 = List.Select(nms,(x)=>List.Contains({"Кол","СУММ"},x,(x,y)=>Text.Contains(y,x))),
    nms2= List.Difference(nms,nms1),
    
    //преобразование
    typ=Table.TransformColumnTypes(from,f(nms2,Text.Type)&f(nms1,Number.Type)),
    gr=Table.Group(typ,List.Skip(nms2),List.Transform(nms1,g)&{h(nms2{0}),j(nms1{0},nms2{0})})
in
    gr