tableSkip =
   Table.Skip(
      tableSource,
      each
         [Column1] <> "ШАПКА"
   )

let
    Источник = Excel.CurrentWorkbook(){[Name="source"]}[Content],
    trsnf = Table.TransformColumnTypes(Источник,{{"_MODEL_", type text}, {"_ID_", type text}}),
    addcolumn = Table.AddColumn(trsnf, "column_analog", each Table.Group(trsnf, {"_MODEL_"},{{"column_analog", each Text.Combine([_ID_], "_--_"), type text}})),
    expand = Table.ExpandTableColumn(addcolumn, "column_analog", {"_MODEL_", "column_analog"}, {"_MODEL_.1", "column_analog.1"}),
    fltr = Table.SelectRows(expand, each ([_MODEL_] = [_MODEL_.1])),
    select = Table.SelectColumns(fltr,{"_ID_", "column_analog.1"}),
    splt = Table.ExpandListColumn(Table.TransformColumns(select, {{"column_analog.1", Splitter.SplitTextByDelimiter("_--_", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "column_analog.1"),
    fltr2 = Table.SelectRows(splt, each ([_ID_] <> [column_analog.1]))
in
    fltr2

let
    source =
      Excel.CurrentWorkbook(){[Name="source"]}[Content],
    list =
      Table.AddColumn(source, "Пользовательский", each {[Нач. значение]..[Конеч. Значение]}),
    select =
      Table.SelectColumns(list,{"Столбец1", "Пользовательский"}),
    transp = 
      Table.Transpose(select),
    head =
      Table.PromoteHeaders(transp, [PromoteAllScalars=true]),
    expandA =
      Table.ExpandListColumn(head, "Диапазон А"),
    expandB =
      Table.ExpandListColumn(expandA, "Диапазон Б"),
    expandC =
      Table.ExpandListColumn(expandB, "Диапазон В")
in
    expandC

// in

let
   source =
      Excel.CurrentWorkbook(){[Name="in"]}[Content],
    tableTransform =
      Table.TransformColumnTypes(
         source,
         {
            {"№ п/п", type text},
            {"Наименование раздела", type text},
            {"Номер проверяющего", type text},
            {"Статус согласования раздела", type text}
         }
      ),

   tableGroup =
      Table.Group(
         tableTransform,
         {"Наименование раздела"},
         {
            {
               "Статус согласования раздела",
               each
                  (if
                     List.Contains([#"Статус согласования раздела"], "замечания")
                  then
                     "замечания"
                  else
                     "согласован"),
               type text
            }
         }
      ),

    tableSort =
      Table.Sort(
         tableGroup,
         {
            {"Наименование раздела", Order.Ascending}
         }
      ),

    TaleGroup2 =
      Table.Group(
         tableSort,
         {"Статус согласования раздела"},
         {
            {
               "Разделы", each [#"Наименование раздела"]
            }
         }
      ),

    tableTransp =
      Table.Transpose(TaleGroup2),

    tableHeaders =
      Table.PromoteHeaders(
         tableTransp,
         [PromoteAllScalars=true]
      ),

    tableExpand =
      Table.ExpandListColumn(
         tableHeaders,
         "замечания"
      ),

    tableExpand2 =
      Table.ExpandListColumn(
         tableExpand,
         "согласован"
      )
in
    tableExpand2



// замечания


let
    source =
      #"in"[замечания],

    listDistinct =
      List.Distinct(source)
in
    listDistinct



// согласован

let
    source =
      #"in"[согласован],

    listDistinct =
      List.Distinct(source)
in
    listDistinct

let
   source =
      Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],

   tableTransformColumns =
      Table.TransformColumns(
         source,
         {
            {"Дата заезда", DateTime.Date, type date},
            {"Дата выезда", DateTime.Date, type date}
         }),

   tableSelectRows =
      Table.SelectRows(
         tableTransformColumns,
         each
            [Дата заезда] <> [Дата выезда]),

   addListDates = 
      Table.AddColumn(
         tableSelectRows,
         "ListDates",
         each
            List.Dates([Дата заезда], Number.From([Дата выезда] - [Дата заезда]) + 1, #duration(1, 0, 0, 0))),

   expandListDates =
      Table.ExpandListColumn(
         addListDates,
         "ListDates"),

   tableGroup =
      Table.Group(
         expandListDates,
            {"ListDates"},
            {{"Количество",
            each
               Table.RowCount(_), Int64.Type}}),

    ListDatesToDates =
      Table.TransformColumnTypes(
         tableGroup,
         {
            {"ListDates", type date}
         })
in
    ListDatesToDates

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each ([Столбец1] = 0))
in
    #"Строки с примененным фильтром"

let
    tableSource = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],

    tableGroup =
      Table.Group(
         tableSource,
         {"Столбец1"},
         {{"Сведено", 
            each 
               Text.Combine(_[Столбец2], "_--_"),
            type text}}),

    tableSplit =
      Table.SplitColumn(
         tableGroup,
         "Сведено",
         Splitter.SplitTextByDelimiter("_--_", QuoteStyle.Csv), 
         List.Max(
            Table.Group(
               tableSource,
               {"Столбец1"},
               {{"Количество", 
                  each 
                     Table.RowCount(_), 
                  Int64.Type}})[Количество]))
in
    tableSplit

let
    tableSource = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],

    tableGroup =
      Table.Group(
         tableSource,
         {"Столбец1"},
         {{"Сведено", each Text.Combine(_[Столбец2], "_--_"),
         type text}}),

    tableSplit =
      Table.SplitColumn(
         tableGroup,
         "Сведено",
         Splitter.SplitTextByDelimiter("_--_", QuoteStyle.Csv),
         {"Сведено.1", "Сведено.2", "Сведено.3", "Сведено.4"})
in
    tableSplit

let
    source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    unpivot = Table.UnpivotOtherColumns(source, {"Столбец1"}, "Атрибут", "Значение"),
    columns = Table.SelectColumns(unpivot,{"Атрибут", "Столбец1"}),
    sort = Table.Sort(columns,{{"Атрибут", Order.Ascending}, {"Столбец1", Order.Ascending}})
in
    sort

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"дата звонка", type date}}),
    #"Удаленные дубликаты" = Table.Distinct(#"Измененный тип", {"дата звонка", "ФИО"}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Удаленные дубликаты", "Месяц", each Date.Month([дата звонка])),
    #"Сгруппированные строки" = Table.Group(#"Добавлен пользовательский объект", {"ФИО", "Месяц"}, {{"Количество дней", each Table.RowCount(_), Int64.Type}}),
    #"Сведенный столбец" = Table.Pivot(Table.TransformColumnTypes(#"Сгруппированные строки", {{"Месяц", type text}}, "ru-RU"), List.Distinct(Table.TransformColumnTypes(#"Сгруппированные строки", {{"Месяц", type text}}, "ru-RU")[Месяц]), "Месяц", "Количество дней", List.Sum)
in
    #"Сведенный столбец"

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    y2020 = Table.SelectColumns(Источник,{"Товар", "продано в 2020 году"}),
    y2021 = Table.SelectColumns(Источник,{"Товар2", "Продано в 2021 году"}),
    #"Объединенные запросы" = Table.NestedJoin(y2020, {"Товар"}, y2021, {"Товар2"}, "Объединение", JoinKind.FullOuter),
    #"Развернутый элемент Объединение" = Table.ExpandTableColumn(#"Объединенные запросы", "Объединение", {"Товар2", "Продано в 2021 году"}, {"Товар2", "Продано в 2021 году"}),
    #"Удалены пустые строки" = Table.SelectRows(#"Развернутый элемент Объединение", each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Удалены пустые строки", "Динамика", each ([Продано в 2021 году] - [продано в 2020 году]) / [продано в 2020 году] * 100),
    #"Измененный тип" = Table.TransformColumnTypes(#"Добавлен пользовательский объект",{{"Динамика", type number}, {"Товар", type text}, {"Товар2", type text}, {"продано в 2020 году", type number}, {"Продано в 2021 году", type number}})
in
    #"Измененный тип"

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each ([Столбец1] <> null)),
    #"Объединенные столбцы" = Table.CombineColumns(Table.TransformColumnTypes(#"Строки с примененным фильтром", {{"Столбец1", type text}}, "ru-RU"),{"Столбец1", "Столбец2"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Сведено"),
    #"Транспонированная таблица" = Table.Transpose(#"Объединенные столбцы"),
    #"Объединенные столбцы1" = Table.CombineColumns(#"Транспонированная таблица",Table.ColumnNames(#"Транспонированная таблица"),Combiner.CombineTextByDelimiter(", ", QuoteStyle.None),"Результат")
in
    #"Объединенные столбцы1"

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each [дата] >= Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]{0}[5 Лет назад]),
    #"Сгруппированные строки" = Table.Group(#"Строки с примененным фильтром", {"Имя"}, {{"Часы", each List.Sum([часы]), type number}})
in
    #"Сгруппированные строки"