=ЗАМЕНИТЬ(A1;ДЛСТР(A1)-2;10;"")
=ЛЕВСИМВ(A1;ДЛСТР(A1)-3)

=ЕСЛИ(СУММПРОИЗВ(--(СЧЁТЕСЛИМН(B3:B9;{"*н*";"*в*";"*у*"})>0))>=3;"+";"-")

=ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A2;" ";"</i><i>")&"</i></j>";"//i[last()]")

=ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(A1;"_";"</i><i>")&"</i></j>";"//i[2]")

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    dct = [#"+"=(x,y)=>Value.Add(x,y),
           #"-"=(x,y)=>Value.Subtract(x,y),
           #"/"=(x,y)=>Value.Divide(x,y),
           #"*"=(x,y)=>Value.Multiply(x,y)],
    tr = Table.AddColumn(from,"tmp",(x)=>Record.Field(dct,x[Столбец2])(x[Столбец1],x[Столбец3]) )
in
    tr

 
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    nms=List.FirstN(List.Skip(Table.ColumnNames(from)),3),
    cols=List.Transform(nms,(x)=>{x,(y)=>Text.Split(y,"#(lf)")}),
    f=(x,i)=>if i>List.Count(nms)-1 then x else @f(Table.ExpandListColumn(x,nms{i}),i+1),
    to = f(Table.TransformColumns(from,cols),0)
in
   to

let
    from = Excel.CurrentWorkbook(){[Name="Команда_Образец"]}[Content],
    lst=List.Buffer({"А".."Я"}),
    count= List.Count(lst),   
    dct=Record.FromList(List.Repeat({1},count),lst),        
    f=(x)=>[
            b=Text.ToList(x),
            g=List.Transform(b,(x)=>Record.FieldOrDefault(dct,x,0)),
            pos=List.PositionOf(g,1,Occurrence.All),
            spl=Splitter.SplitTextByPositions(pos)(x) ,          
            to=if x=null  then {} else spl][to],
    spl=Table.SplitColumn(from,"Спецвозможности",f,{"1","2","3","4"})
in
    spl

=List.Sort(lst,(x)=>Text.Replace(x,"B","E"))

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f=(x)=>[
        a=List.Last(x),
        b=if a is null then -1 else Text.PositionOf(x{1},a),
        c=if b>-1 then Text.ReplaceRange(x{1},b,Text.Length(a),"") else null,
        d=if c is null then {} else Text.Split(c,". "),
        e=h("сделано за"),g=h("план на"),
        h=(x)=>List.PositionOf(d,x,Occurrence.First,(x,y)=>Text.Contains(x,y,Comparer.OrdinalIgnoreCase)),
        res=List.Skip(x,1)&{Text.Trim(c),if e>-1 then d{e} else null,if g>-1 then d{g} else null}
    ][res],
    to=Table.FromList(Table.ToList(from,f),(x)=>x,{"Новый","Старый","Новый1","Сделано","План"}) 
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    lst=Table.ToList(from,(x)=>[a=Text.Range(x{0},0,Text.PositionOf(x{0},x{1})-1),
                                b=Text.Split(a,". ")][b]),
    to=Table.FromList(lst,(x)=>x)                                
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    lst=List.Buffer(список),
    c=List.Count(lst),
    len=(x)=>Text.Length(x),
    b=(x,y)=>if y+1>c then x
             else if lst{y}=Text.End(x,len(lst{y}))
             then [a=lst{y},l=len(a),c=Text.End(x,l),r=Text.Range(x,0,len(x)-l)][r] 
             else @b(x,y+1),
     l = Table.TransformColumns(from,{"заказ",(x)=>b(x,0)})
in
    l

="info@mail.ru,"&ПОДСТАВИТЬ(E4;"info@mail.ru,";"")

let
    from = Table.AddIndexColumn(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],"ind",0,1),
    first=List.PositionOf(from[Нумерация],"Начало"),
    strt=iif(first),
    iif=(x)=> if Number.Mod(x,2)=0 then x+1 else x-1,
    lst = List.Buffer(from[Значение]),
    txt=(x)=>Text.From(x),
    dct = Record.FromTable(Table.RenameColumns(Table.Group(from,"Значение",{"Value",(x)=>x[ind]}),{"Значение","Name"})),
    f=(y,z)=>[a=lst{y},
                b=Record.Field(dct,a),
                c=List.Difference(b,{y}){0}?,  
                d=if c is null then  {Record.FromList({"Конец"},{txt(y)})}  else
                 {Record.FromList({z-1,z},{txt(y),txt(c)})}  & @f (iif(c),z+2)][d],
    cmb = Record.AddField(Record.Combine(f(strt,2)),txt(first),"Начало"),
    to = Table.AddColumn(from,"Seq",(x)=>Record.FieldOrDefault(cmb,txt(x[ind])))
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    g=(x,y,z)=>List.PositionOf(x,y,z,List.Contains),
    h=(x)=>if Number.Mod(x,2)=0 then x+1 else x-1,
    rpl=(x,y,z)=>List.ReplaceRange(x,y,1,z),
    fn=(x)=>List.FirstN(x,4),
    lst = List.Buffer(Table.ToList(from,(x)=>x)),
    start = g(lst,"Начало",0),
    pos = h(start),
    f=(x,p,i)=>[a=x{p}{2},
                ch=List.Difference(g(x,a,2),{p}),
                last=List.First(ch),    
                next=h(last), 
                con=if List.IsEmpty(ch) then rpl(x,p,{fn(x{p})&{"далее не найдено"}})
                    else if List.Count(ch)>1 then rpl(x,p,{fn(x{p})&{"Error"}}) else
                    @f([b=rpl(x,p,{fn(x{p})&{i-1}}),c=rpl(b,last,{fn(x{last})&{i}})][c],next,i+2)                 
               ][con],
    to = Table.FromList(f(lst,pos,2),(x)=>x,Value.Type(from))
in
    to