let
    a = Table.TransformColumns(Source, {}, (x)=> Text.FromBinary(Text.ToBinary(Text.From(x), 866), 1251))

let
    fr  = Excel.Workbook(Web.Contents("https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=546525&action=download"), true, true){[Item="Лист1",Kind="Sheet"]}[Data],
    gr = Table.Group(fr, "Данные", {"повт", (x)=> Table.RowCount(x)}, GroupKind.Local, (x,y)=> Number.From(x<>y)),
    gr1 = Table.Group(gr, {"Данные", "повт"}, {"кол-во", (x)=> Table.RowCount(x)}),
    s = Table.Sort(gr1,{{"повт", Order.Ascending}, {"Данные", Order.Ascending}})
in
    s

let
    a = Excel.CurrentWorkbook(){[Name="xxx"]}[Content],
    b = Table.Skip(a, 1),
    c = List.Transform(List.Split(Table.ToRows(b), 2), (x)=> List.InsertRange(x{0}, 1, {x{1}{0}})),
    d = Table.FromList(c, (x)=> x)
in
    d

let
    a = Excel.Workbook(Web.Contents("https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=537996&action=download")){[Item="исх.",Kind="Sheet"]}[Data],
    b = Table.PromoteHeaders(Table.Skip(a,17)),
    c = Table.Skip(b,2),
    d = Table.FirstN(c,12),
    e = Table.SelectColumns(d, {"Column3"} & List.Select(Table.ColumnNames(d), (x)=> try Number.From(x) is number otherwise false)),
    g = Table.SplitColumn(e, "Column3", (x)=> List.Transform(Splitter.SplitTextByEachDelimiter({"("}, QuoteStyle.Csv, true)(x), (q)=> Text.Remove(q, ")")), {"q", "w"}),
    h = Table.TransformColumns(g, {}, (x)=> x??""),
    k = List.Split(Table.ToRows(h), 2),
    l = List.Transform(k, (x)=> List.Transform(List.Zip({x{0}, x{1}}) , (q)=> Text.Combine({q{1} & q{0}}))),
    m = List.Transform(List.Split(l, 2), (x)=> List.RemoveLastN(x{0}, 1) & List.Skip(x{1}, 2)),
    n = Table.FromList(m, (x)=> x, {"фио"} & {"долж"} & List.Transform({1..31}, Text.From))
in
    n

=УНИК(B3:B15)

=СЧЁТЗ(УНИК(ФИЛЬТР($C$3:$C$15;$B$3:$B$15=F3)))

=ЕСЛИ(A2="Итого";СЧЁТЕСЛИ($A$2:A2;"+")-СУММ($C$1:C1);"")

=УНИК(A2:A25)
=ОБЪЕДИНИТЬ(", ";;ЕСЛИ(A2:A25=E5;B2:B25;""))

let
    a = Table.FromList(Json.Document(File.Contents("C:\1\1.txt")), (x)=> {x}),
    b = Table.ExpandRecordColumn(a, "Column1", {"id", "avgTime", "distance", "hasDelivery"})
in
    b

let
    Source = Table.TransformColumnTypes(Excel.CurrentWorkbook(){[Name="tb_Date"]}[Content], {{"Date", type date}}),
    Addweek = Table.AddColumn(Source, "week", (x)=> Date.WeekOfYear(x[Date]) - Date.WeekOfYear(DateTime.LocalNow())),
    WeekDay = Table.AddColumn(Addweek,"Week_Day", each Date.DayOfWeek([Date],Day.Monday)),
    a = Table.Group(WeekDay, "week", {"w", (w)=> Table.AddColumn(w, "q", (x)=> if List.Min(List.Select(w[Week_Day], (q)=> q < 5)) = x[Week_Day] or List.Max(List.Select(w[Week_Day], (q)=> q < 5)) = x[Week_Day] then 1 else null)}),
    b = Table.Combine(a[w])
in
    b

=ФИЛЬТР(Работы;(Работы[Дата]>I1)*(Работы[Дата]<ДАТАМЕС(I1;1)))