{=СЧЁТ(B5:AF5)-СЧЁТ(ЕСЛИОШИБКА(ЛЕВБ($B9:$AF9;ПОИСК("/";$B9:$AF9));)}

=ЕСЛИ(ПРАВСИМВ(C9;6)="000000";ЛЕВСИМВ(C9;1);ЕСЛИ(ПРАВСИМВ($C9;4)="0000";ЛЕВСИМВ($C9;3);ЕСЛИ(ПРАВСИМВ($C9;2)="00";ЛЕВСИМВ($C9;5);ЕСЛИ(C9="";ЕСЛИ(C8="";A8;C8);ЛЕВСИМВ($C9;7)))))

=СУММЕСЛИ($A9:$A64;ЕСЛИ(ПРАВСИМВ($C8;8)="00000000";ЛЕВСИМВ($C8;1);ЕСЛИ(ПРАВСИМВ($C8;6)="000000";ЛЕВСИМВ($C8;3);ЕСЛИ(ПРАВСИМВ($C8;4)="0000";ЛЕВСИМВ($C8;5);ЕСЛИ(ПРАВСИМВ($C8;2)="00";ЛЕВСИМВ($C8;7);""))));F9:F64)

fact = CALCULATE(sum(Report_IL[факт]), DATEADD(ALL('calendar'[Дата]), 12, month))

fact = CALCULATE(sum(Report_IL[факт]), ALL('calendar'[Дата]))

let
    Sourse = Excel.CurrentWorkbook(){[Name="Account_20"]}[Content],

    ReplaceValue = Table.ReplaceValue(Sourse, each [Column1], each if [Статьи затрат] = "Обороты" then Number.From(List.Max(Company[Column1]))+1 else [Column1],Replacer.ReplaceValue,{"Column1"}),
    SelectColumns = Table.SelectColumns(ReplaceValue,{"Column1", "Статьи затрат", "Код", "BalansO_D", "BalansO_K", "Turnover_D", "Turnover_K", "BalansE_D", "BalansE_K", "Comp", "Period"}),
    Trim = Table.TransformColumns(SelectColumns,{{"Статьи затрат", each Text.Trim(_, {" "}), type text}}),
    Headers = List.Buffer( List.Transform({0..List.Max(Trim[Column1])}, Text.From ) ),
    ReplacedValue = Table.ReplaceValue(Trim,null,0,Replacer.ReplaceValue,{"Column1"}),
    AddedRecs = Table.AddColumn(ReplacedValue, "recs", each Record.FromList( List.ReplaceRange( List.Repeat({null},List.Count(Headers)), [Column1], 1, {[Статьи затрат]} ), Headers ), type record ),
    ExpandedRecs = Table.ExpandRecordColumn(AddedRecs, "recs", Headers ),
    AddIndex = Table.AddIndexColumn(ExpandedRecs, "Индекс", 1, 1),
    FillDown = Table.FillDown(AddIndex,{"0"}),
    Group = Table.Group(FillDown, {"0"}, {{"Tab", each _, type table}}),
    ReplaceN = Table.ReplaceValue(Group, each [Tab], each Table.FillDown([Tab], {"1"}),Replacer.ReplaceValue,{"Tab"}),
    RemoveColumns = Table.RemoveColumns(ReplaceN,{"0"}),
    Expand = Table.ExpandTableColumn(RemoveColumns, "Tab", {"Column1", "Статьи затрат", "Код", "BalansO_D", "BalansO_K", "Turnover_D", "Turnover_K", "BalansE_D", "BalansE_K", "Comp", "Period", "0", "1", "2", "3", "4", "5", "6", "7", "8", "Индекс"}, {"Column1", "Статьи затрат", "Код", "BalansO_D", "BalansO_K", "Turnover_D", "Turnover_K", "BalansE_D", "BalansE_K", "Comp", "Period", "0", "1", "2", "3", "4", "5", "6", "7", "8", "Индекс"})
in
    Expand

let
    Token = Text.BetweenDelimiters( Text.FromBinary(Web.Contents("https://www.wunderground.com/history/daily/ru/ob/UNNT/date/2020-5-8")), "SUN_API_KEY&q;:&q;", "&q;,&q;SUN_DEVICE_API_KEY" ),
    list = Table.FromList(List.Dates(#date(2020, 05, 06), 3, #duration(1, 0, 0, 0)),Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Измененный тип" = Table.TransformColumnTypes(list,{{"Column1", type text}}),
    #"Замененное значение" = Table.ReplaceValue(#"Измененный тип",".","",Replacer.ReplaceText,{"Column1"}),
    F = (token, data)=>
        let
            a = Json.Document(Web.Contents("https://api.weather.com/v1/location/UNNT:9:RU/observations/historical.json?apiKey=" & token & "&units=e&startDate="&"data"))
        in 
            a,
    ListG = List.Generate(
                            ()=> [i = 1, v = #"Замененное значение"{i}, p = 1],
                            each [i] < List.Count (#"Замененное значение"),
                            each [ 
                                    i = [i] + 1, 
                                    v = #"Замененное значение" {i}, 
                                    p = F(Token, v)
                                 ],
                            each p
                          )

in
    ListG

let
    ID = Table.FromList({13000000..33000000}, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    Source = Table.AddColumn(ID, "Сведено", each try Web.Page(Web.Contents("https://novosibirsk.n1.ru/view/"&Text.From([Column1]))) otherwise null),
    SelectR = Table.SelectRows(Source, each [Сведено] <> null)
 in
    SelectR