Function извл$(t$)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Pattern = "[^А-Яа-яЁё]+"
        извл = Trim(.Execute(t)(0))
    End With
End Function

 let
    from1 = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    from2 = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    to = Table.NestedJoin(from1,{"Столбец1", "Столбец2"},from2,{"Столбец1", "Столбец2"},"temp",JoinKind.LeftAnti)[[Столбец1], [Столбец2]]
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    split = Table.FromList(List.Combine(List.Transform(from[Словосочетания], each Text.Split(_," ")))),
    to = Table.Group(split, {"Column1"}, {{"Количество", each Table.RowCount(_), type number}})
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    to = Table.Group(from, "Столбец1", {"фрукты", each Text.Combine([Столбец2], ", "), type text})
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.Combine(Table.Group(from, {"Имя", "Дата"}, {{"temp", each Table.AddIndexColumn(_,"index",1,1), type table}})[temp])
in
    to

Table.FromList(List.Distinct(Excel.Workbook(File.Contents("полный_путь\Файл пример откуда тянуть.xlsx")){[Item="Лист1",Kind="Sheet"]}[Data][Column1]))

 //код функции «баллы»
(score)=>List.Min({Number.IntegerDivide(score, 4)*7,42}) 

//сам запрос
let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.AddColumn(from, "Баллы", each баллы([Часы]))
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    to = Table.AddColumn(from, "Баллы", each List.Min({Number.IntegerDivide([Часы], шаг_часы)*цена_баллы,максимум}), Int64.Type)
in
    to