Table.SelectRows(#"Измененный тип", each [Дата окончания контракта] > Date.From(DateTime.LocalNow()))

let
    from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    split = Table.SplitColumn(from, "РД", Splitter.SplitTextByEachDelimiter({"("}, QuoteStyle.Csv, false), {"РД.1", "РД.2"}),
    rep = Table.ReplaceValue(split,")","",Replacer.ReplaceText,{"РД.2"}),
    split2 = Table.ExpandListColumn(Table.TransformColumns(rep, {{"РД.2", Splitter.SplitTextByDelimiter(", ")}}), "РД.2"),
    add = Table.AddColumn(split2, "РД", each [РД.1]&" ("&[РД.2]&")"),
    to = Table.RemoveColumns(add,{"РД.1", "РД.2"})
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    unpiv = Table.UnpivotOtherColumns(from, {"Столбец1"}, "Атрибут", "Значение"),
    name = Table.RenameColumns(unpiv,{{"Столбец1", "Название"}}),
    del = Table.RemoveColumns(name,{"Атрибут"}),
    split = Table.SplitColumn(del, "Значение", Splitter.SplitTextByEachDelimiter({"|"}), {"характеристика", "значение"}),
    list = List.Skip(Table.ColumnNames(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]),1),
    to = Table.Pivot(split, list, "характеристика", "значение")
in
    to

.Pattern = "(Бюрократ [\S]*\/) \(([A-z]*)\)"

.Replace(t, "$1") & UCase(.Replace(t, "$2"))

let
    from1 = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    from2 = Table.ColumnNames(Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]),
    to = Table.SelectColumns(from1,from2,MissingField.UseNull)
in
    to

For Each n In ActiveWorkbook.Names
            n.visible = True
        Next

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    group = Table.Group(from, {"Дата"}, {{"temp", each Table.FirstN(Table.Sort(Table.Group(_,{"Сумма покупок"},{"temp2", each _, type table}),{"Сумма покупок", Order.Descending}),5), type table}}),
    to = Table.Combine(Table.Combine(group[temp])[temp2])
in
    to

 =ЕСЛИОШИБКА(ИНДЕКС($E$5:$E$10;НАИМЕНЬШИЙ(ЕСЛИ(ЕОШ($E$5:$E$10/($C$5:$C$10=$H$3));"";СТРОКА($A$1:$A$6));СТРОКА(A1)));"")

Prodmap1 = Источник{[Name="Prodmap"]}[Data][[Column2],[Column4],[Column10]]

Table.Skip(#"Измененный тип", each [Column1] = null)

skip = Table.Skip(#"Измененный тип",4),
to = Table.PromoteHeaders(skip)

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    typ = Table.TransformColumnTypes(from,{{"Column8", type datetime}}),
    group = Table.Group(typ, {"Column2", "Column3"}, {{"temp", each Table.Max(_,"Column8"), type table}}),
    to = Table.FromRecords(group[temp])
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    group = Table.Group(from, {"Артикул", "Размер"}, {{"temp", each Table.Min(_,"Цена"), type table}}),
    table = Table.FromRecords(group[temp]),
    to = Table.Sort(table,{{"Артикул", Order.Ascending}, {"Размер", Order.Ascending}})
in
    to

Table.AddColumn(from, "Custom", each {"a","b","c"}{Number.Round(Number.RandomBetween(0,2))})

Table.AddColumn(from, "Custom", each {"a","b","c"}{Number.Round(Number.RandomBetween(-0.5,2.5))})