let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Пониженные заголовки" = Table.DemoteHeaders(Источник),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Пониженные заголовки", "Пользовательская", each Text.Start(#"Пониженные заголовки"[Column1]{0},3)),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Добавлен пользовательский объект", [PromoteAllScalars=true])
in
    #"Повышенные заголовки"

let
  table = [
    generate = List.Buffer (
      List.Generate (
        () =>  [
          data     = List.Random ( 100 ), 
          clmnName = "A_" & Text.From ( n + 1 ) & "_" & Text.From ( Number.Round ( 100 * Number.Random() ) ), 
          n        = 0
        ], 
        each [n] < 9, 
        each [
          data     = List.Random ( 100 ), 
          clmnName = "A_" & Text.From ( n + 1 ) & "_" & Text.From ( Number.Round ( 99 * Number.Random() + 1 ) ), 
          n        = [n] + 1
        ], 
        each [[clmnName], [data]]
      )
    ), 
    table = Table.FromColumns ( List.Transform ( generate, ( x ) => x[data] ), List.Transform ( generate, ( x ) => x[clmnName] ) )
  ][table], 


  clmnNames = List.Buffer ( Table.ColumnNames ( table ) ), 
  trimmedClmns = List.Accumulate ( clmnNames, table, ( s, c ) => Table.AddColumn ( s, c & "_trimm", each Text.Start ( c, 3 ) ) )
in
  trimmedClmns