=IF(CALCULATE(COUNTROWS('Есть таблица'); ALLEXCEPT('Есть таблица'; 'Есть таблица'[Имя]; 'Есть таблица'[Еда])) > 1; "Да"; "Нет")

Как-то так:=SUMX(SUMMARIZE('есть таблица'; 'есть таблица'[№ рейса]; 'есть таблица'[стоимость перевозки]); 'есть таблица'[стоимость перевозки])

let
    source = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    toList = List.Transform(Table.ToList(source), Text.ToList),
    toZip = List.Zip(toList),
    chars = List.Transform(toZip, each [
        toTable = Table.FromColumns({_}, {"f"}),
        defineCount = Table.Group(toTable, {"f"}, {"c", Table.RowCount}),
        defineMax = Table.Max(defineCount, "c")

    ][defineMax][f]),
    return = Text.Combine(chars)
in
    return

function getCartesianTable(firstRows, secondRows) {
  return firstRows.reduce(function (items, firstRow) {
    secondRows.forEach(function (secondRow) {
      items.push(firstRow.concat(secondRow));
    });
    return items;
  }, []);
} // getCartesianTable

=getCartesianTable(A2:B7; D2:F4)

var statyaIpodstatya = sh.getRange('A1').getDataRegion().getValues()

let
    Источник = DateTime.ToText(DateTime.FixedLocalNow(), "yyyy-MM-dd HH:mm:ss")

in
    Источник

let
    source = Excel.CurrentWorkbook(){[Name="Дано"]}[Content],
    selector = List.Buffer(Table.ToRecords(Excel.CurrentWorkbook(){[Name="Условия"]}[Content])),
    result = Table.AddColumn(source, "Выбор", (rec) =>
    [
        values = List.Accumulate(selector, {null, null}, (state, current) => 
        if Text.Contains(rec[Наименование], current[Наименование]) then
            List.ReplaceRange(state, current[Выбор], 1, {current[Выбор]})
        else
            state
        ),
        result = Record.FromList(values, {"Выбор0", "Выбор1"})
    ][result]),
    return = Table.ExpandRecordColumn(result, "Выбор", {"Выбор0", "Выбор1"})
in
    return

let
    source = Excel.CurrentWorkbook(){[Name="Дано"]}[Content],
    selector = List.Buffer(Table.ToRecords(Excel.CurrentWorkbook(){[Name="Условия"]}[Content])),
    result = Table.AddColumn(source, "Выбор", (rec) =>
    [
        value = List.Accumulate(selector, -100500, (state, current) => 
        if Text.Contains(rec[Наименование], current[Наименование]) then
            if current[Выбор] > state then current[Выбор] else state
        else
            state
        ),
        result = if value = -100500 then null else value
    ][result])
in
    result

let
    source = Excel.CurrentWorkbook(){[Name="Дано"]}[Content],
    splitToWords = Table.AddColumn(source, "word", each Text.Split([Наименование], " ")),
    expandList = Table.ExpandListColumn(splitToWords, "word"),
    selector = Table.PrefixColumns(Excel.CurrentWorkbook(){[Name="Условия"]}[Content], "f"),
    join = Table.Join(expandList, {"word"}, selector, {"f.Наименование"}, JoinKind.LeftOuter),
    result = Table.Group(join, {"Наименование"}, {{"Выбор", each List.Max(_[f.Выбор])}})
in
    result

let
    commonColumnTypeDefinition = [
        #"ИНН" = Int64.Type,
        #"ЮЛ" = type text,
        #"Name" = type text,
        #"Дата" = type datetime,
        #"Текст3" = Int64.Type,
        #"Количество" = type number,
        #"Сумма" = type number 
    ],
    filter = { "ИНН", "ЮЛ", "Name" },
    selectedColumnTypes = List.Transform(filter, each {_, Record.Field(commonColumnTypeDefinition, _)})
in
    selectedColumnTypes

REGEXP_EXTRACT( URL , '^https://[^/]+/([^/]+)/' )

REGEXP_EXTRACT( URL , '^https://[^\.]+\.([^\.]+)' )

Private Declare Function SHMessageBoxCheckA Lib "shlwapi" (ByVal hWnd As Long, _
    ByVal lpszText As String, ByVal lpszTitle As String, ByVal dwType As VbMsgBoxStyle, _
    ByVal iDefault As Long, ByVal lpszId As String) As Long
 
Sub testMSGCHK()
    Dim message As Long
    message = SHMessageBoxCheckA(Application.hWnd, "Текст сообщения", "Заголовок окна", vbOKCancel Or vbInformation, vbOK, "{d9118bc3-8a61-4398-bfbc-b02102c77e8a}")
    Debug.Print message
End Sub

Excel.CurrentWorkbook(){[Name="ссылка_на_ячейку"]}[Content]{0}[Column1]

let
    baseList = List.Buffer(Excel.CurrentWorkbook(){[Name="Эталон"]}[Content][Мощность Эталон]),
    getNearest = (x) => List.Min(baseList, null, (a, b) => Number.Abs(a - x) - Number.Abs(b - x)),
    data = Excel.CurrentWorkbook(){[Name="факт"]}[Content],
    result = Table.AddColumn(data, "Мощность Эталон", each getNearest(_[Мощность факт]))
in
    result