let
    Source = Excel.CurrentWorkbook(){[Name="ГР_Светлое__4"]}[Content],
    ChangedType = Table.TransformColumnTypes(Source,{{"Наименование работ, ед. изм.", type text}, {"План-сутки", type number}, {"Факт-сутки", type number}}),
    Set = [List = List.Buffer( ChangedType[#"Наименование работ, ед. изм."] ), Count = List.Count(List), Q = 4],
    Maker = List.Generate(
        () => [id = 0, check = if Text.StartsWith( Set[List]{id}, "В т.ч." ) then 0 else Set[Q], l = Set[List]{id}],
        each [id] < Set[Count],
        each [id = [id] + 1, check = if Text.StartsWith( Set[List]{id}, "В т.ч." ) then 0 else [check] + 1, l = if check > 0 and check <= Set[Q] then "В т.ч. " & Set[List]{id} else Set[List]{id}],
        each [l]),
    Out = Table.FromColumns( {Maker} & List.Skip( Table.ToColumns( ChangedType ), 1 ), Table.ColumnNames( ChangedType ) )
in
    Out

let
    Source = Excel.CurrentWorkbook(){[Name="ГР_Светлое__4"]}[Content],
    ChangedType = Table.TransformColumnTypes(Source,{{"Наименование работ, ед. изм.", type text}, {"План-сутки", type number}, {"Факт-сутки", type number}}),
    Set = [List = List.Buffer( ChangedType[#"Наименование работ, ед. изм."] ), Count = List.Count(List), Q = 4],
    Maker = List.Generate(
        () => [id = 0, check = if Text.StartsWith( Set[List]{id}, "В т.ч." ) then 0 else Set[Q], l = Set[List]{id}],
        each [id] < Set[Count],
        each [id = [id] + 1, check = if Text.StartsWith( Set[List]{id}, "В т.ч." ) then 0 else [check] + 1, l = if check > 0 and check <= Set[Q] then "В т.ч. " & Set[List]{id} else Set[List]{id}],
        each [l]),
    Out = Table.FromColumns( Table.ToColumns( ChangedType ) & {Maker}, Table.ColumnNames( ChangedType ) & {"новый"} )
in
    Out

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ChangedType = Table.TransformColumnTypes(Source,{{"Столбец1", Int64.Type}, {"Столбец2", type text}}),
    Split1 = Table.ExpandListColumn(Table.TransformColumns(ChangedType, {{"Столбец2", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Столбец2"),
    Split2 = Table.SplitColumn(Split1, "Столбец2", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, true), {"ФИО", "e-mail"})
in
    Split2

let
    Source = Table.FromColumns( {{null, "", null, ""}} ),
    ReplacedValue = Table.ReplaceValue(Source,"",null,Replacer.ReplaceValue,Table.ColumnNames(Source))
in
    ReplacedValue

let
    Source1 = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Source2 = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    MergedQueries = Table.NestedJoin( Source1, Table.ColumnNames(Source1), Source2, Table.ColumnNames(Source2), "Source2",JoinKind.LeftOuter),
    Expanded = Table.ExpandTableColumn(MergedQueries, "Source2", {"Индекс"}, {"Индекс.1"}),
    SortedRows = Table.Sort(Expanded,{{"Индекс", Order.Ascending}})
in
    SortedRows

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    GroupedRows = Table.Group(Source, {"Ведомство"}, {{"Списки", each _[ФИО], type table}}),
    Out = Table.FromColumns( GroupedRows[Списки], GroupedRows[Ведомство] )
in
    Out

let
    //Функция, которая добавляет в таблицу (указанную как первый аргумент) копию столбца (указанного во втором аргументе) со смещением элементов на 1 строку вверх или вниз (в третьем аргументе 0 - вниз / 1 - вверх). 
    fnTableAddOffsetColumn = ( tbl as table, clmn as text, dir as number ) => //
        if dir = 0 
            then Table.FromColumns( 
                Table.ToColumns( tbl ) & Table.ToColumns( #table( {clmn}, {{null}} ) & Table.RemoveLastN( Table.SelectColumns( tbl, {clmn}), 1 ) ), 
                Table.ColumnNames( tbl ) & {"Пред."&clmn} )
            else Table.FromColumns( 
                Table.ToColumns( tbl ) & Table.ToColumns( Table.RemoveFirstN( Table.SelectColumns( tbl, {clmn}), 1 ) & #table( {clmn}, {{null}} ) ), 
                Table.ColumnNames( tbl ) & {"След."&clmn} ),

    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    SelectedColumns = Table.SelectColumns(Source,{"Номер оборудования", "Дата", "Время начала", "Время окончания"}),
    GroupedRows = Table.Group(SelectedColumns, {"Номер оборудования", "Дата"}, {{"Таб", each fnTableAddOffsetColumn( Table.Sort( _, {{"Время начала", Order.Ascending}} ), "Время начала", 1 ), type table}}),
    Combine = Table.Combine( GroupedRows[Таб] ),
    ChangedType = Table.TransformColumnTypes(Combine,{{"Дата", type date}, {"Время начала", type time}, {"Время окончания", type time}, {"Номер оборудования", type text}, {"След.Время начала", type time}}),
    AddedColumn = Table.AddColumn(ChangedType, "Простой", each [След.Время начала] - [Время окончания], type duration)
in
    AddedColumn

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content],
    GroupedRows = Table.Group(Source, {"ID"}, {{"Таб", each [a = Table.RowCount(_), b = Table.AddColumn(_, "PQ - дубли ID 2", each a )][b], type table }}),
    Out = Table.Combine( GroupedRows[Таб] )
in
    Out

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ChangedType = Table.TransformColumnTypes(Source,{{"Дата", type date}, {"Сумма", Int64.Type}}),
    DateMax = List.Max(ChangedType[Дата]),
    DateMin = List.Min(ChangedType[Дата]),
    ListDates = List.Dates(DateMin, Number.From(DateMax - DateMin) + 1, Duration.From(1) ),
    TableDates = Table.FromColumns( {ListDates}, type table [Дата = date]),
    MergedQueries = Table.NestedJoin(TableDates,{"Дата"},ChangedType,{"Дата"},"TableDates",JoinKind.LeftOuter),
    Expanded = Table.ExpandTableColumn(MergedQueries, "TableDates", {"Сумма"}, {"Сумма"})
in
    Expanded