let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    g=(x)=>List.Accumulate(dict,x,h),
    h=(x,y)=>Text.Replace(x,y[Найти],y[Заменить]),
    k=(x,y)=>Table.TransformColumns(x,{y,g}),
 
    from = f("Данные"),
    dict = List.Buffer(Table.ToRecords(f("Справочник"))),
    to = List.Accumulate(Table.ColumnNames(from),from,k)
in
    to

let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    g=(x)=>List.Accumulate(dict,x,h),
    h=(x,y)=>Text.Replace(x,y{0},y{1}),
    k=(x,y)=>Table.TransformColumns(x,{y,g}),

    from = f("Данные"),
    dict = List.Buffer([a=f("Справочник"),b=List.Zip({a[Найти],a[Заменить]})][b]),
    to = List.Accumulate(Table.ColumnNames(from),from,k)
in
    to

=МАКС($A$2:$A$28*($B$2:$B$28=B2)*($A$2:$A$28<A2))

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.Group(from, "фигура", {"цвета", each Text.Combine([цвет],", ")})
in
   to

let
    l = {"0".."9"},
    t = {"инт", "ук", "штк", "сит", "отт"},
    
    f = Splitter.SplitTextByCharacterTransition(l,(x)=> not List.Contains(l,x)),
    g=(x)=>[a=f(x), b = if List.Count(a) = 1 then {1}&a else a][b],
    h=(x)=> List.Accumulate(List.Transform(Text.Split(x,"+"),g),[],(s,c)=>Record.AddField(s,c{1},c{0})),
 
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    trnsf = Table.AddColumn(from,"t",each h([Выгрузка с базы])),
    to = Table.ExpandRecordColumn(trnsf, "t",t)
in
    to

let
    l = {"0".."9"},
    t = {"инт", "ук", "штк", "сит", "отт"},
     
    f=(x)=>[a=Text.PositionOfAny(x,l,Occurrence.Last), 
            b = if a = -1 
                then {1,x} 
                else {Number.From(Text.Range(x,0,a+1)),Text.Range(x,a+1)}
            ][b],
    g=(x)=> List.Accumulate(List.Transform(Text.Split(x,"+"),f),
                            [],
                            (s,c)=>Record.AddField(s,c{1},c{0})
                            ),
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    add = Table.AddColumn(from,"t",each g([Выгрузка с базы])),
    to = Table.ExpandRecordColumn(add, "t",t)
in
    to

""""

=ОБЪЕДИНИТЬ(" ";1;LET(x;ПОСЛЕД(ДЛСТР(A3));LET(y;ПСТР(A3;x;1);z;ПСТР(B3;x;1);ЕСЛИ(y<>z;y&x&z;""))))

=ОБЪЕДИНИТЬ(" ";1;ЕСЛИ(ПСТР(A3;ПОСЛЕД(ДЛСТР(A3));1)<>ПСТР(B3;ПОСЛЕД(ДЛСТР(A3));1);ПСТР(A3;ПОСЛЕД(ДЛСТР(A3));1)&ПОСЛЕД(ДЛСТР(A3))&ПСТР(B3;ПОСЛЕД(ДЛСТР(A3));1);""))

=ОБЪЕДИНИТЬ(" ";1;ЕСЛИ(ПСТР(A3;СТРОКА($A$1:ИНДЕКС(A:A;ДЛСТР(A3)));1)<>ПСТР(B3;СТРОКА($A$1:ИНДЕКС(A:A;ДЛСТР(A3)));1);ПСТР(A3;СТРОКА($A$1:ИНДЕКС(A:A;ДЛСТР(A3)));1)&СТРОКА($A$1:ИНДЕКС(A:A;ДЛСТР(A3)))&ПСТР(B3;СТРОКА($A$1:ИНДЕКС(A:A;ДЛСТР(A3)));1);""))

=СУММ((ДАТА(C3:C23;D2:O2;1)>=ДАТА(R5;Q5;1))*(ДАТА(C3:C23;D2:O2;1)<=ДАТА(T5;S5;1))*(B3:B23=R8)*D3:O23)

=LET(x;ДАТА(C3:C23;D2:O2;1);СУММ((x>=ДАТА(R5;Q5;1))*(x<=ДАТА(T5;S5;1))*(B3:B23=R8)*D3:O23))

=СУММ((C3:C23+D2:O2%>=R5+Q5%)*(C3:C23+D2:O2%<=T5+S5%)*(B3:B23=R8)*D3:O23)

=LET(x;C3:C23+D2:O2%;СУММ((x>=R5+Q5%)*(x<=T5+S5%)*(B3:B23=R8)*D3:O23))

let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    g=(x,y)=>Text.Contains(y,x),
    h=(x)=>lst1{List.PositionOf(lst0,x,Occurrence.First,g)},
  
    dict = f("Таблица3"),
    lst0 = List.Buffer(dict[Город]),
    lst1 = List.Buffer(dict[Направление]),
    to = Table.AddColumn(f("Таблица2"),"Направление",each h([Маршрут строка]))
in
    to

let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content], //вспомогательная функция для подключения к таблицам текущей книги
    g=(x,y)=>List.First(//в итоге будем брать первый элемент из совпавших
                            List.Accumulate(y,//аккумулируем список из аргумента y - вданном случае сюда передается преобразованный словарь из lst
                                            {},//за опорное значение принимаем пустой список
                                            (s,c)=>if Text.Contains(x,c{0}) //если текст из аргумента x содержит город из пары "город-направление"
                                                    then s&{c{1}} //добавить к списку это направление
                                                    else s)//иначе ниего не добавлять
                        ),

    dict = f("Таблица3"),//подключаемся к словарю
    lst = List.Buffer(List.Zip({dict[Город],dict[Направление]})),//превращаем таблицу словаря в список - пары город-направление
    to = Table.AddColumn(f("Таблица2"), //подключаемся к основной таблице
                            "Направление",//добавляем столбец "Направление"
                            each g([Маршрут строка],lst))//значение которого - функция g от столбца "Маршрут строка"
in
    to //усё

let
    f=(x)=>Excel.CurrentWorkbook(){[Name=x]}[Content],
    g=(x,y)=>List.First(List.Accumulate(y,{},(s,c)=>if Text.Contains(x,c{0}) then s&{c{1}} else s)),

    dict = f("Таблица3"),
    lst = List.Buffer(List.Zip({dict[Город],dict[Направление]})),
    to = Table.AddColumn(f("Таблица2"),"Направление",each g([Маршрут строка],lst))
in
    to