let
    from = Csv.Document(File.Contents( Excel.CurrentWorkbook(){[Name="adres"]}[Content]{0}[adres] & "тест.txt"),[Delimiter="¦", Columns=11, Encoding=1251, QuoteStyle=QuoteStyle.None]),
    remC = Table.RemoveColumns(from,{"Column1"}),
    remR = Table.Skip(remC,10),
    prom = Table.PromoteHeaders(remR, [PromoteAllScalars=true]),
    remU = Table.Skip(prom,2),
    remD = Table.RemoveLastN(remU,5),
    list = List.Zip({Table.ColumnNames(remD),List.Transform(Table.ColumnNames(remD), each Text.Trim(_))}),
    rename = Table.RenameColumns(remD,list),
    typ = Table.TransformColumnTypes(rename,{{"Дата", type date}, {"N", Int64.Type}, {"КО", Int64.Type}, {"КС", type text}, {"Оборот по дебету", type number}, {"Оборот по кредиту", type number}, {"Лицевой  счет", type text}, {"БИК", type text}, {"Корр счет", type text}}),
    fill = Table.FillDown(typ,{"Дата", "N", "КО"}),
    group = Table.Group(fill, {"Дата", "N", "КО"}, {{"Количество", each _, type table}}),
    add = Table.AddColumn(group, "Пользовательская", each Text.Combine(Table.Column([Количество],"Наименование корреспондента"),"")),
    transf = Table.TransformColumns(add,{{"Количество", each _{0}}}),
    expand = Table.ExpandRecordColumn(transf, "Количество", {"КС", "Оборот по дебету", "Оборот по кредиту", "Лицевой  счет", "БИК", "Корр счет"}, {"Количество.КС", "Количество.Оборот по дебету", "Количество.Оборот по кредиту", "Количество.Лицевой  счет", "Количество.БИК", "Количество.Корр счет"})
in
    expand