let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Typed = Table.TransformColumnTypes(Source,{{"Время", type time}}),
    Group = Table.Group(Typed, "№ АС", {"tmp", each _}, GroupKind.Local, (s,c)=> Number.From(s<>c and c<>null)),
    Index = Table.RemoveColumns(Table.AddIndexColumn(Group, "Большой цикл",1,1), {"№ АС"}),
    Expand = Table.ExpandTableColumn(Index, "tmp", Table.ColumnNames(Typed), Table.ColumnNames(Typed)),
    GroupAgain = Table.Group(Expand,"Операция",{"tmp", each _}, GroupKind.Local, (s,c)=> Number.From(c="Черпание")),
    SmallCycle = 
        Table.AddColumn(GroupAgain, "temp", each 
            if List.FirstN([tmp][Операция], 4) = {"Черпание", "Поворот с груженым ковшом", "Разгрузка", "Поворот с порожним ковшом"} 
            and List.NonNullCount([tmp][#"№ АС"]) > 0
            then 1 else 0),
    Generate = List.Generate(
    ()=> [index = 0, lst = {     SmallCycle[temp]{index}     }     ],
    each [index] < Table.RowCount(SmallCycle),
    each [index = [index]+1, lst = if  SmallCycle[temp]{index}  <> 0 
                                    then [lst] & {List.NonNullCount([lst])+1  } else [lst] & {null} ],
    each List.Last([lst])
),
    num = Table.FromColumns(Table.ToColumns(SmallCycle)&{Generate}, Table.ColumnNames(SmallCycle)&{"num"}),
    #"Добавлен пользовательский объект" = Table.AddColumn(num, "Пользовательский", each let a = [num] in Table.FromColumns(Table.ToColumns([tmp])&{{a,a,a,a}}, Table.ColumnNames([tmp])&{"small"})),
    Пользовательский1 = Table.Combine(#"Добавлен пользовательский объект"[Пользовательский]),
    #"Добавлен пользовательский объект1" = Table.AddColumn(Пользовательский1, "Малый цикл", each if[#"№ АС"] = null then null else [small]),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Добавлен пользовательский объект1",{"Большой цикл", "Малый цикл"}),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Другие удаленные столбцы",{"Малый цикл", "Большой цикл"})
in
    #"Переупорядоченные столбцы"