let
    f=(x)=>[lst=Record.ToList(x),
            a=List.PositionOfAny(lst,{"Высота","Ширина","Длина"},Occurrence.First,(c,v)=>Text.Contains(Text.Proper(c),v)),
            b=if a=-1 then {} else List.Skip(List.FirstN(lst,(w)=>not Text.Contains(Text.Proper(w),"Нет")),a),
            c=Text.Combine(b,"||")][c],
    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    tr=Table.TransformColumns(from,{},(x)=>if x=null then "" else f_txtTrim(x)),
    add=Table.AddColumn(tr,"Высота/Ширина/Длина",f)
in
    add

let
    f=(x)=>[ls=List.Buffer(List.Skip(x)),
            a=List.PositionOfAny(ls,sp,Occurrence.First,(c,v)=>Text.Contains(Text.Lower(c),v)),
            b=if a=-1 then {} else List.Skip(List.FirstN(ls,(w)=>not Text.Contains(Text.Lower(w),"нет")),a),
            b1=List.Transform(b,(x)=>if List.Contains(num,x,(c,v)=>Text.Contains(v,c)) then Text.Combine(Text.Split(x," "),"||") else x),
            c={Text.Combine(b1,"||")}&x][c],
    from = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    num=List.Buffer({"0".."9"}),sp=List.Buffer({"высота","ширина","длина"}),
    tr=Table.TransformColumns(from,{},(x)=>if x=null then "" else f_txtTrim(x)),
    to=Table.FromList(Table.ToList(tr,f),(x)=>x,{"Высота/Ширина/Длина"}&Table.ColumnNames(from))
in
    to