#"Добавлен пользовательский объект" = Table.AddColumn (
    #"Измененный тип", 
    "Пользовательский", 
    each [ new_date = Date.AddMonths ( [Дата приема], 3 ), result = Date.AddDays ( new_date, Date.Day ( [Дата приема] ) - Date.Day ( new_date ) ) ][
      result
    ], 
    type date
  )

av:=
AVERAGEX (
    VALUES ( 'Таблица1'[Год] );
    VAR PY = 'Таблица1'[Год] - 1
    VAR valueCY =
        CALCULATE ( [кол-во] )
    VAR valuePY =
        CALCULATE ( [кол-во]; 'Таблица1'[Год] = PY )
    VAR result =
        DIVIDE ( valueCY; valuePY )
    RETURN
        result
)

/**
 * Unpivots columns (or optional other columns) while keeping empty fields (with
 * null). Any entry to the 3rd parameter will set to 'Unpivot Other Columns'
 * instead.
 * 
 * @categories table, pivot
 * @author https://github.com/ImkeF
 * @source https://github.com/ImkeF/M
 * @license MIT (c) 2017 Imke Feldmann
 * @version 2021-02-09-1
 */
let
  func = (Table_ as table, Columns as list, optional Others as any) =>
    let
      NonSelectedColumns = List.Difference(Table.ColumnNames(Table_), Columns),
      Unpivot = if Others <> null then NonSelectedColumns else Columns,
      AddColumn = Table.AddColumn(
        Table_,
        "Custom",
        each Record.ToTable(Record.SelectFields(_, Unpivot))
      ),
      Cleanup = Table.RemoveColumns(AddColumn, Unpivot),
      Expand = Table.ExpandTableColumn(Cleanup, "Custom", {"Name", "Value"}, {"Name", "Value"})
    in
      Expand,
  documentation = [
    Documentation.Name = " Table.UnpivotKeepNulls#(cr,lf)",
    Documentation.Description
      = " Unpivots columns (or optional other columns) while keeping empty fields (with null). #(cr,lf)",
    Documentation.LongDescription
      = " Unpivots columns (or optional other columns) while keeping empty fields (with null). Any entry to the 3rd parameter will set to ""Unpivot Other Columns"" instead. #(cr,lf)",
    Documentation.Category = " Table Transformation#(cr,lf)",
    Documentation.Source = " local#(cr,lf)",
    Documentation.Author = " Imke Feldmann: www.TheBIccountant.com .#(cr,lf)",
    Documentation.Examples = {[Description = " #(cr,lf)", Code = " #(cr,lf) ", Result = " #(cr,lf)"]}
  ]
in
  Value.ReplaceType(func, Value.ReplaceMetadata(Value.Type(func), documentation))

let
  func = (Table_ as table, Columns as list, optional Others as any) =>
    let
      NonSelectedColumns = List.Difference(Table.ColumnNames(Table_), Columns),
      Unpivot = if Others <> null then NonSelectedColumns else Columns,
      AddColumn = Table.AddColumn(
        Table_,
        "Custom",
        each Record.ToTable(Record.SelectFields(_, Unpivot))
      ),
      Cleanup = Table.RemoveColumns(AddColumn, Unpivot),
      Expand = Table.ExpandTableColumn(Cleanup, "Custom", {"Name", "Value"}, {"Name", "Value"})
    in
      Expand,
  documentation = [
    Documentation.Name = " Table.UnpivotKeepNulls#(cr,lf)",
    Documentation.Description
      = " Unpivots columns (or optional other columns) while keeping empty fields (with null). #(cr,lf)",
    Documentation.LongDescription
      = " Unpivots columns (or optional other columns) while keeping empty fields (with null). Any entry to the 3rd parameter will set to ""Unpivot Other Columns"" instead. #(cr,lf)",
    Documentation.Category = " Table Transformation#(cr,lf)",
    Documentation.Source = " local#(cr,lf)",
    Documentation.Author = " Imke Feldmann: www.TheBIccountant.com .#(cr,lf)",
    Documentation.Examples = {[Description = " #(cr,lf)", Code = " #(cr,lf) ", Result = " #(cr,lf)"]}
  ]
in
  Value.ReplaceType(func, Value.ReplaceMetadata(Value.Type(func), documentation))

let
  data     = Excel.CurrentWorkbook(){[ Name = "airport_codes" ]}[Content],
  unpivot  = Table.UnpivotOtherColumns ( data, { "Аэропорт" }, "Тип кода", "Код" ),
  distinct = Table.Distinct ( unpivot, { "Аэропорт", "Код" } ),
  typed    = Table.TransformColumnTypes ( distinct, { { "Аэропорт", type text }, { "Код", type text } } ),
  rec      = Record.FromList ( typed[Аэропорт], typed[#"Код"] )
in
  rec

let
  data = Excel.CurrentWorkbook(){[ Name = "routes" ]}[Content],
  typed = Table.TransformColumnTypes ( data, { { "Маршрут", type text } } ),
  transform = Table.TransformColumns (
    typed,
    {
      {
        "Маршрут",
        ( x ) =>
          [
            split = Text.Split ( x, "-" ),
            tr    = List.Transform ( split, ( y ) => Record.FieldOrDefault ( airport_codes, y, y ) ),
            res   = Text.Combine ( tr, "-" )
          ][res],
        type text
      }
    }
  )
in
  transform

let
  data      = routes_1, 
  value     = "УФА", 
  transform = Table.TransformColumns ( data, { { "Маршрут", ( x ) => Text.AfterDelimiter ( "-" & x, "-" & value & "-" ), type text } } ), 
  rename    = Table.RenameColumns ( transform, { { "Маршрут", "Из " & value & " в" } } )
in
  rename

Наценка:=
DIVIDE (
    SUMX ( VALUES ( 'Таблица1'[Наименование] ); [Наценка товара] * [Выручка] );
    [Выручка]
)

Выручка:=SUM ( 'Таблица1'[Сумма] )

СС:=SUM ( 'Таблица1'[Себестоимость] )

Наценка товара:=DIVIDE ( [Выручка]; [СС] ) - 1

Наценка:=
DIVIDE (
    SUMX ( VALUES ( 'Таблица1'[Наименование] ); [Наценка товара] * [Выручка] );
    [Выручка]
)

let
  clmns = { "Страховые премии ", "Страховые выплаты", "Количество договоров ", "Количество урегул. страховых случаев" }, 
  data = Excel.CurrentWorkbook(){[ Name = "Свод_данных_Кварталы" ]}[Content], 
  typed = Table.TransformColumnTypes (
    data, 
    {
      { "Страховые премии ", type number }, 
      { "Страховые выплаты", type number }, 
      { "Количество договоров ", Int64.Type }, 
      { "Количество урегул. страховых случаев", Int64.Type }, 
      { "Средняя страховая премия", type number }, 
      { "Средняя страховая выплата", type number }, 
      { "Частота страховых случаев", type number }, 
      { "Год", Int64.Type }
    }
  ), 
  group = Table.Group (
    typed, 
    { "Наименование СК", "Регион", "Федеральный округ" }, 
    {
      {
        "t", 
        ( t ) =>
          [
            sort = Table.Sort ( t, { { "Год", Order.Ascending }, { "Квартал", Order.Ascending } } ), 
            recs = List.Buffer ( Table.ToRecords ( sort ) ), 
            gen = List.Generate (
              () =>  [
                i       = 0, 
                vals    = Record.FromList ( Record.FieldValues ( Record.SelectFields ( recs{i}, clmns ) ), clmns ), 
                new_rec = recs{i}
              ], 
              ( x ) => x[i] < List.Count ( recs ), 
              ( x ) =>  [
                i = x[i] + 1, 
                vals = Record.FromList ( Record.FieldValues ( Record.SelectFields ( recs{i}, clmns ) ), clmns ), 
                new_rec = Record.TransformFields (
                  recs{i}, 
                  List.Transform ( clmns, ( c ) => { c, ( y ) => y - Record.Field ( x[vals], c ) } )
                )
              ], 
              ( x ) => x[new_rec]
            ), 
            toTbl = Table.FromRecords ( gen, Value.Type ( typed ) )
          ][toTbl], 
        type table
      }
    }
  ), 
  combine = Table.Combine ( group[t] )
in
  combine