let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    addGlobalId = Table.AddIndexColumn(Source, "gid"),
    addBaseId = Table.AddIndexColumn(Table.Group(addGlobalId, {"where"}, {"temp", each _}, GroupKind.Local), "baseid"),
    restoreBase = Table.ExpandTableColumn(addBaseId, "temp", {"what", "value", "gid"}),
    addLocalId = Table.Combine(Table.Group(restoreBase, {"where", "what"}, {"temp", each Table.AddIndexColumn(_, "loc")})[temp]),
    beforeRowId = Table.Sort(addLocalId,{{"loc", Order.Ascending}, {"where", Order.Ascending}, {"gid", Order.Ascending}}),
    rowId = Table.Group(beforeRowId, {"where", "loc"}, {{"temp", each _}, {"rowId", each List.Min([baseid])}}),
    #"Expanded {0}" = Table.Buffer(Table.ExpandTableColumn(rowId, "temp", {"what", "value"}, {"what", "value"})),
    #"Sorted Rows" = Table.Sort(#"Expanded {0}",{{"rowId", Order.Ascending}, {"loc", Order.Ascending}}),
    result = Table.RemoveColumns(#"Sorted Rows",{"loc"}),
    return = Table.Pivot(#"Expanded {0}", List.Distinct(Source[what]), "what", "value"),
    #"Sorted Rows1" = Table.Sort(return,{{"rowId", Order.Ascending}, {"loc", Order.Ascending}}),
    #"Removed Columns" = Table.RemoveColumns(#"Sorted Rows1",{"loc", "rowId"})
in
    #"Removed Columns"

/([а-яё])(?=[А-ЯЁ]|\(|автоном|округ|область|край)/g

let
    toJsString = (string) => Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(string, "\", "\\"), "&", "\&"), "'", "\'"), """", "\"""), "#(cr)", "\r"), "#(lf)", "\n"), "#(tab)", "\t"),
    jsReg = (string) => Web.Page("<script>var r =/([а-яё])(?=[А-ЯЁ]|\(|автоном|округ|область|край)/g;var t='" & string & "';document.write(t.replace(r,'$1 '));</script>")[Data]{0}[Children]{0}[Children]{1}[Text]{0},
    Source = Csv.Document(File.Contents("C:\path\data.csv"),[Delimiter=",", Columns=6, Encoding=65001, QuoteStyle=QuoteStyle.None]),
    setHead = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    uniques = List.Distinct(setHead[subject]),
    replaced = Text.Split(jsReg(toJsString(Text.Combine(uniques, "|"))), "|"),
    pairs = Table.FromRows(List.Zip({uniques, replaced}), {"link", "Требуемое"}),
    result = Table.Join(setHead, {"subject"}, pairs, {"link"}),
    #"Removed Columns" = Table.RemoveColumns(result,{"subject", "link"}),
    #"Reordered Columns" = Table.ReorderColumns(#"Removed Columns",{"Требуемое", "t1", "fond", "salary", "monthyear", "year"}),
    #"Renamed Columns" = Table.RenameColumns(#"Reordered Columns",{{"Требуемое", "subject"}})
in
    #"Renamed Columns"

let
    toJsString = (string) => Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(string, "\", "\\"), "&", "\&"), "'", "\'"), """", "\"""), "#(cr)", "\r"), "#(lf)", "\n"), "#(tab)", "\t"),
    jsReg = (string) => Web.Page("<script>var r =/([а-яё])(?=[А-ЯЁ]|\()/g;var t='" & string & "';document.write(t.replace(r,'$1 '));</script>")[Data]{0}[Children]{0}[Children]{1}[Text]{0},
    Source = Csv.Document(File.Contents("C:\path\data.csv"),[Delimiter=",", Columns=6, Encoding=65001, QuoteStyle=QuoteStyle.None]),
    setHead = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    cols = Table.ToColumns(setHead),
    maker = Text.Split(jsReg(toJsString(Text.Combine(cols{0}, "|"))), "|"),
    test = {maker} & List.Range(cols, 1),
    result = Table.FromColumns(test, Table.ColumnNames(setHead))
in
    result

Function iTowar(ByVal sText As String)
 With CreateObject("VBScript.RegExp")
     .IgnoreCase = True
     .Pattern = "([A-Z])(\d{1,2})(?=\s?[хx])"
     iTowar = .Replace(sText, "$1 $2")
 End With
End Function

Public Sub test()
    Dim pShape As Shape
    For Each pShape In ActiveSheet.Shapes
        Debug.Print pShape.OLEFormat.Object.Formula
    Next
End Sub

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    aggregate = Table.Group(Source, {"Создан"}, {"Заявок", each List.Sum([Заявок]), Number.Type}),
    addDayOfWeekNumber = Table.AddColumn(aggregate,  "DayOfWeek", each Date.DayOfWeek([Создан], Day.Saturday), Int64.Type),
    addPrevJoinDate = Table.AddColumn(addDayOfWeekNumber, "prevJoinDate", each Date.AddDays([Создан], (if [DayOfWeek] < 3 then -[DayOfWeek] else 0) - 1)),
    renameColumnForJoin = Table.RenameColumns(aggregate, {{"Создан", "Ранее создан"}, {"Заявок", "Ранее заявок"}}),
    result = Table.Join(addPrevJoinDate, {"prevJoinDate"}, renameColumnForJoin, {"Ранее создан"}, JoinKind.LeftOuter),
    #"Sorted Rows" = Table.Sort(result,{{"Создан", Order.Ascending}}),
    #"Removed Columns" = Table.RemoveColumns(#"Sorted Rows",{"DayOfWeek", "prevJoinDate"}),
    #"Changed Type" = Table.TransformColumnTypes(#"Removed Columns",{{"Создан", type date}, {"Ранее создан", type date}})
in
    #"Changed Type"

let
    Source = Excel.CurrentWorkbook(){[Name="Table3"]}[Content],
    colNames = Table.ColumnNames(Source),
    aggregateColNames = List.Select(colNames, each Text.StartsWith(_, "Stat")),
    groupColNames = List.RemoveItems(colNames, aggregateColNames),
    aggregateColumns = List.Transform(aggregateColNames, each {_ & " Average", (sub) => List.Average(Table.Column(sub, _)), Number.Type}),
    result = Table.Group(Source, groupColNames, aggregateColumns)
in
    result

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    result = List.Transform(Table.ColumnNames(Source), each [name = _, uniqueCount = List.Count(List.RemoveNulls(List.Distinct(Table.Column(Source, _))))])
in
    Table.FromRecords(result)