let
  src = Excel.CurrentWorkbook(){[ Name = "data" ]}[Content],
  fields = List.Buffer ( Excel.CurrentWorkbook(){[ Name = "fields" ]}[Content][Поля] ),
  transform = Table.TransformColumns (
    src,
    {
      {
        "Строка",
        ( x ) =>
          [
            addDelimiter = List.Accumulate ( fields, x, ( s, c ) => Text.Replace ( s, c, "|" & c ) ),
            list = List.Select ( Text.Split ( addDelimiter, "|" ), ( y ) => y <> "" ),
            toRecs = Record.FromList (
              List.Transform ( list, ( x ) => Text.AfterDelimiter ( x, ":" ) ),
              List.Transform ( list, ( x ) => Text.BeforeDelimiter ( x, ":" ) )
            ),
            price = Record.FromList (
              List.Select ( List.Transform ( Text.Split ( toRecs[Рек. цена], "р." ), Text.Trim ), ( x ) => x <> "" ),
              { "Рек. цена", "было", "стало" }
            ),
            result = try Record.RemoveFields ( toRecs, { "Рек. цена" } ) & price otherwise toRecs
          ][result]
      }
    }
  ),
  toTbl = Table.FromRecords ( transform[Строка] )
in
  toTbl