=ДАТАМЕС(A1;ПОСЛЕД(РАЗНДАТ(A1;B1;"M")+1;;0))

=ЧПС(B9;ИНДЕКС(B6:F6;ПОИСКПОЗ(B1;B4:F4;)):ИНДЕКС(B6:F6;ПОИСКПОЗ(B2;B4:F4;)))

let
    from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    lst = Table.Split(from,4),
    rec = List.Transform(lst, each [Ф=_{0}[Столбец1],И=_{1}[Столбец1],О=_{2}[Столбец1],Д=_{0}[Столбец2]]),
    to = Table.FromRecords(rec)
in
     to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    fn=(t,n)=>[ a=Table.Split(t,n),
                b=(t)=>List.Combine(List.Transform(Table.ToColumns(t),List.RemoveNulls)),
                c=Table.FromRows(List.Transform(a,b))][c],
    to=fn(from,4)
in
    to

  Function СтандОтклонNew(Arr, Optional gen = 0)
  For Each x In Arr
        If x <> "" Then
            n = n + 1
            s = s + x
            sq = sq + x ^ 2
        End If
    Next
    If gen = 1 Then
        СтандОтклонNew = Sqr((sq - s ^ 2 / n) / n)
    Else
        СтандОтклонNew = Sqr((sq - s ^ 2 / n) / (n - 1))
    End If
End Function

let
    from = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    add = Table.AddIndexColumn(from, "Индекс", 0, 1),
    to = Table.TransformColumns(add, {"Индекс", each Number.RoundDown(_ / 4)+1})
in
    to

=СЧЁТЕСЛИМН(База!$A$2:$A$398;G$1;База!$D$2:$D$398;">="&$F1;База!$D$2:$D$398;"<"&$F2)

=   VAR mi = MIN([Дата начала условия])
   VAR ma =MAX( [Дата окочания условия])
   RETURN
   CALCULATE(
      COUNTROWS('Tranz');
      'Tranz'[Дата транзакции]>=mi;
      'Tranz'[Дата транзакции]<=ma
      )

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    //d = Table.RemoveColumns(Source,{"N", "Документ", "Кол.", "Количество Дт", "Валюта Дт", "Вал. сумма Дт", "Подразделение Дт", "Субконто2 Дт", "Субконто3 Дт", "Кол.2", "Количество Кт", "Валюта Кт", "Вал. сумма Кт", "Подразделение Кт", "Субконто2 Кт", "Субконто3 Кт", "Содержание", "НУ", "ПР", "ВР", "Сумма НУ Дт", "Сумма ПР Дт", "Сумма ВР Дт", "Сумма НУ Кт", "Сумма ПР Кт", "Сумма ВР Кт"}),
    a = {"Дата", "Организация", "Счет Дт", "Счет Кт", "Сумма", "Субконто1 Дт", "Субконто1 Кт"},
    //b = {"Дата", "Организация", "Счет","Сумма Дт", "Сумма Кт", "Субконто"},
    c = Table.CombineColumns(from, a, 
                                                        (x)=>{  [Дата =  x{0}, Организация = x{1}, Счет = x{2}, Сумма = x{4}, Субконто = x{5}],
                                                            [Дата = x{0}, Организация = x{1}, Счет = x{3}, Сумма = -x{4}, Субконто = x{6}]},"tmp")[tmp],
    tolst = List.Combine(c),
    to = Table.FromRecords(tolst)
in
    to

let
    from = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    fn =(lst)=>List.PositionOf(lst,{"1".."9"}, Occurrence.First,(x,y)=>List.Contains(y,Text.Start(x,1)))+1,
    num = fn(from[Статьи затрат]),
    num1 = fn(List.Skip(from[Статьи затрат],num)),
    to = Table.Range(from,num-1,num1)
in
    to

=ОБЪЕДИНИТЬ(;1;ЕСЛИ($T$2:$U$12=H5;$T$1:$U$1;""))

let
    from = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    max = #date(Date.Year(DateTime.LocalNow())+5,12,31),
    add = Table.AddColumn(from,"Dates", each 
                                            try List.Dates( Date.From([Next Due]),
                                                            Int64.From(max - Date.From([Next Due]))/[Interval],
                                                            #duration([Interval],0,0,0)) 
                                            otherwise null),
    to = Table.ExpandListColumn(add, "Dates")
in
    to

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Removed Other Columns" = Table.SelectColumns(Source,{"Счет Дт", "Счет Кт", "Сумма"}),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Removed Other Columns", {"Сумма"}, "Атрибут", "Значение"),
    #"Extracted Text After Delimiter" = Table.TransformColumns(#"Unpivoted Other Columns", {{"Атрибут", each Text.AfterDelimiter(_, " "), type text}}),
    #"Pivoted Column" = Table.Pivot(#"Extracted Text After Delimiter", List.Distinct(#"Extracted Text After Delimiter"[Атрибут]), "Атрибут", "Сумма", List.Sum)
in
    #"Pivoted Column"

List.Count(List.Distinct(List.Transform(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][ID номер], each Text.BeforeDelimiter(_, "-",1))))