add=Table.AddColumn(Источник,"not_0", (x)=>List.Count(List.RemoveItems(Record.ToList(Record.SelectFields(x, {"П1","П2","П3","П4"})), {0, null})))

cch:=var totSSH = SUM('Таблица1'[Среднесписочная численность персонала])
var countMonth = DISTINCTCOUNT('Таблица1'[Месяц])
var averag = DIVIDE(totSSH;countMonth)
return averag

let
    fr = Json.Document(Web.Contents("https://alfazdrav.ru/api/prices/tabs/?regionId=779"))[tabs],
    a=List.Combine(List.Transform(Record.FieldValues(fr), (x)=>Record.FieldValues(x[content]))),
    a1=Table.TransformColumns(Table.FromRecords(a, {"title","items"}), {"items", (x)=>Table.FromRecords(x, {"name","price"})}),
    to=Table.ExpandTableColumn(a1, "items", {"name","price"})
in
    to

let
    fr = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    a0 = Table.Group(fr, "Код1", {"new", (x)=>x[Код2]}),
    rec = Record.FromList(a0[new],a0[Код1]),
    lst = List.Buffer(a0[Код1]),
    frec=(x)=>Record.Field(rec,x),
    f1=(x)=>List.Select(lst, (y)=>y<>x),
    f2=(x,y)=>{x,y, List.Count(List.Intersect({frec(x),frec(y)})), List.Count(frec(y))},
    decart = List.TransformMany(lst, f1, f2),
    tbl = Table.FromList(decart, (x)=>x),
    tbl1 = Table.AddColumn(Table.SelectRows(tbl, (x)=>x[Column3]>0), "perc", (x)=>x[Column3]/x[Column4]),

    to = tbl1
in
    to

let
    fr = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    nm = List.Buffer(Table.ColumnNames(fr)),
    nmk = List.Buffer(List.Combine(List.Transform(List.Distinct(Table.Column(fr, nm{2})), (x)=> {x&" (артикул)", x&" (цена)"}))),
    f = (x)=> Table.ToList(x, (y)=>Record.FromList(List.Skip(y, 3), {y{2}&" (артикул)", y{2}&" (цена)"})),
    a1 = Table.Group(fr, List.FirstN(nm,2), {"new", (x)=>Record.Combine(f(x))}),
    to = Table.ExpandRecordColumn(a1, "new", nmk)
in
    to

(fr as table, nm as list, delim as text)=>

    [f = Table.CombineColumns(fr, nm, (y)=>Table.FromList(List.Zip(List.Transform(y, (x)=>if x is text then Text.Split(x, delim) else {x})), (x)=>x, nm), "new"),
    a1 = Table.ExpandTableColumn(f, "new", nm)
    ][a1]

a1 = Table.TransformColumns(таблица2, {"нумерация", (x)=>x+List.Max(таблица1[нумерация]})

let
    fct = Table.AddColumn(Excel.CurrentWorkbook(){[Name="Actual"]}[Content], "fact", (x)=>1),
    nmf = Table.ColumnNames(fct),
    pln = Excel.CurrentWorkbook(){[Name="Target"]}[Content], 
    nm = List.Skip(Table.ColumnNames(pln),3),
    pl = Table.Unpivot(pln, nm, "Category", "plan"),
    f = (x)=> [ z1 = Table.Group(x, "SKU", {{"plan", (x)=>List.Sum(x[plan]&{0})},{"fact",(x)=>List.Sum(x[fact]&{0})}}),
                z2 = Table.SelectRows(z1, (x)=>x[plan]<>0),
                z3 = Byte.From(List.Sum(z2[plan])*0.8<=List.Sum(z2[fact]))][z3],
    a1 = Table.Group(pl&fct, List.RemoveLastN(nmf,2), {"compare", f})
in
    a1

let
    lst = Excel.CurrentWorkbook(){[Name="lst"]}[Content][Column1],
    fr = List.Transform(lst, (x)=>Text.Split(x, ",")),
    f1=(x) => [ z1 = List.Distinct(List.Transform(x, (x)=>List.Union(List.Select(fr, (y)=>List.ContainsAny(y,x))))),
                z2 =  if x=z1 then x else @f1(z1)][z2],
    b1 = List.Buffer(f1(fr)),
    to = Table.FromList(b1, (x)=>{Text.Combine(x, ",")})
in
    to

Дубль = Table.AddColumn(Тип, "Номер2", (x)=>Text.Combine(Text.SplitAny(x[Номер],",_"), ".")),

    a1 = Table.AddIndexColumn(fr, "Уникальные простои"),
    a2 = Table.TransformColumns(a1, {"Уникальные простои", (x)=> if x = 0 then "формула для первого значения" else Byte.From(List.AnyTrue({a1[3 уровень]{x}=a1[3 уровень]{x-1}, (a1[Начало простоя]{x}-a1[Оконч. простоя]{x-1})*1440<10}))}),
    to = Table.TransformColumns(a2, {{"Начало простоя", (x)=>Time.From(x), type time}, {"Оконч. простоя", (x)=>Time.From(x), type time}})

Excel.Workbook(x, [UseHeaders = false, DelayTypes = false, InferSheetDimensions=true])

RecCol = Table.TransformColumns(#"Другие удаленные столбцы", {"Аналитика Дт", (x)=>[z1 = Text.Split(x, "#(lf)"),
                                                                                    z2 = Record.FromList((if List.Count(z1)=3 then z1 else List.Skip(z1)), {"аналитика1","аналитика2","аналитика3"})][z2]})

let
    fr = Excel.CurrentWorkbook(){[Name="tbl"]}[Content],
    a0 = List.Buffer(Table.ColumnNames(fr)),
    a1 = Table.Group(fr, a0{0}, {"new", (x)=>List.Count(List.Distinct(Table.Column(x,a0{1})))}),
    a3 = Record.FromList(a1[new], Table.Column(a1, a0{0})),
    a4 = Table.AddColumn(Table.SelectColumns(fr, a0{0}), "Unique value", (x)=>Record.Field(a3, Record.FieldValues(x){0}))

in
    a4

let
    fr = Excel.CurrentWorkbook(){[Name="Исходник"]}[Content],
    
    f = (x)=> [ z1 = x{0}+#duration(0,0,0,x{1}),
                z2 = DateTime.From(DateTime.ToText(x{0}, "dd.MM.yyyy HH:00"), "ru-RU"),
                z3 = List.Generate(()=> [i=1, q1 = z2, q2 = if (z1>z2+#duration(0,1,0,0)) then Duration.TotalSeconds((z2+#duration(0,1,0,0)-x{0})) else Duration.TotalSeconds(z1-x{0})],
                                (x)=>x[q1]<z1,
                                (x)=>[i=x[i]+1, q1 = x[q1]+#duration(0,1,0,0), q2 = if z1>(q1+#duration(0,1,0,0)) then 3600 else Duration.TotalSeconds(z1-q1)],
                                (x)=>[DT = x[q1], DU = x[q2]]),
                z4 = Table.FromRecords(z3)][z4],

    a1 = Table.CombineColumns(fr, {"DateTimeStart", "Duration"}, f, "new"),
    a2 = Table.ExpandTableColumn(a1, "new", Table.ColumnNames(a1[new]{0})),
    a3 = Table.Group (a2, {"Condition", "DT"}, {"DU", (x)=>List.Sum(x[DU])})
        
in
    a3