=ЕСЛИ(G4="RUB";ТЕКСТ(E9;"# ##0,00\ [$₽-ru-RU]");ЕСЛИ(G4="EUR";ТЕКСТ(E9;"* # ##0,00\ [$€-x-euro1]");ЕСЛИ(G4="USD";ТЕКСТ(E9;"* # ##0,00\ [$$-en-US]");"")))

let
  Источник = #table(
    type table [Дата = date, Листы = list], 
    {
      {#date(2022, 11, 30), {"A", "B", "C"}}, 
      {#date(2022, 12, 31), {"B", "C", "D", "E", "F"}}, 
      {#date(2023, 01, 31), {"C", "D", "H"}}
    }
  ), 
  #"Сортированные строки" = Table.Sort(Источник, {{"Дата", Order.Ascending}}), 
  #"Добавлен индекс" = Table.AddIndexColumn(#"Сортированные строки", "Индекс", 0, 1, Int64.Type), 
  БуферЛистов = List.Buffer(#"Добавлен индекс"[Листы]), 
  #"Добавлен пользовательский объект" = Table.AddColumn(
    #"Добавлен индекс", 
    "Предыдущий лист", 
    each List.Count(List.RemoveItems(БуферЛистов{[Индекс]}, БуферЛистов{[Индекс] - 1})))
in
  #"Добавлен пользовательский объект"

( table as table, columnNames as list, optional newColumnNames as list, optional operation as text, optional dictTableName as text ) =>
  let
    Dict = ПредстНасПунктов,
    Lookup = List.Buffer ( List.Zip ( Table.ToColumns ( Dict ) ) ),
    NewNames = newColumnNames ?? List.Transform ( columnNames, ( x ) => "new_" & x ),
    Corrected = List.Accumulate ( columnNames, {}, ( s, c ) => s & { List.ReplaceMatchingItems ( Table.Column ( table, c ), Lookup ) } ),
    ResultAdd = Table.FromColumns ( Table.ToColumns ( table ) & Corrected, Table.ColumnNames ( table ) & NewNames ),
    ResultTransform = Table.TransformColumns (
      table,
      List.Transform ( columnNames, ( x ) => { x, ( y ) => List.ReplaceMatchingItems ( { y }, Lookup ){0} } )
    ),
    Result = if operation = "transform" then ResultTransform else ResultAdd
  in
    Result

NewNames = newColumnNames ?? List.Transform ( columnNames, ( x ) => "new_" & x ),

let
  Источник = #table(
    null, 
    {
      {"file1", "data1", #table(null, {{"a", 10}, {"b", 20}})}, 
      {"file2", "data2", #table(null, {{"c", 30}, {"d", 40}})}
    }
  ), 
  #"Другие удаленные столбцы" = Table.SelectColumns(Источник, {"Column1", "Column3"}), 
  #"Развернутый элемент Column3" = Table.ExpandTableColumn(
    #"Другие удаленные столбцы", 
    "Column3", 
    {"Column1", "Column2"}, 
    {"Column1.1", "Column2"}
  )
in
  #"Развернутый элемент Column3"

let
    Источник = #table(null, 
{
   {"file1", "data1", #table(null, {{"a", 10}, {"b", 20}})}, 
   {"file2", "data2", #table(null, {{"c", 30}, {"d", 40}})}
}
),
    #"Добавленный столбец" = Table.TransformColumns(Источник, 
   {{"Column3", each let t = [Column1]
in 
   Table.AddColumn(_, "file", each t)}})
in
    #"Добавленный столбец"