let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Исходная таблица", type text}, {"Столбец1", type text}}),
    #"Разделить столбец по разделителю" = Table.SplitColumn(#"Измененный тип","Столбец1",Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv),{"Столбец1.1", "Столбец1.2", "Столбец1.3", "Столбец1.4", "Столбец1.5", "Столбец1.6", "Столбец1.7", "Столбец1.8", "Столбец1.9", "Столбец1.10", "Столбец1.11", "Столбец1.12", "Столбец1.13", "Столбец1.14", "Столбец1.15", "Столбец1.16", "Столбец1.17", "Столбец1.18", "Столбец1.19", "Столбец1.20"}),
    #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Разделить столбец по разделителю", {"Исходная таблица"}, "Атрибут", "Значение"),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Другие столбцы с отмененным свертыванием",{"Атрибут"}),
    #"Переименованные столбцы" = Table.RenameColumns(#"Удаленные столбцы",{{"Значение", "Товары"}})
in
    #"Переименованные столбцы"

let
    src = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][Столбец1]{0},
    lst = {"М1.701","В701","СН701"},
    acc = List.Sort( List.Accumulate(lst, {}, (s,c)=> s &  Text.PositionOf( src, c, Occurrence.All)), Order.Ascending),
    gen = Table.FromRecords( List.Generate(()=> [x = 1 , y = acc, s = Text.Middle (src, y{x-1}, y{x} - y{x-1}) , a = if                                                        Text.Contains(s, lst{0}) then x else null ],
                                each [x]<= List.Count(acc)   ,
                                each [x = [x] + 1, y =[y], s = try Text.Middle (src, y{x-1}, y{x} - y{x-1} ) otherwise Text.Middle (src, y{x-1} )  , a = if Text.Contains(s, lst{0}) then x else null ],
                                each [[s], [a]])),
    filld = Table.FillDown(gen,{"a"}),
    gr = Table.Combine( 
                Table.Group(filld, {"a"}, 
                                    {{"All", (x)=> 
                                    [ tab = List.Accumulate (lst, x, (s,c)=> Table.AddColumn(s, c, (y)=> if Text.Contains(y[s], c) then y[s] else null )), 
                                    filldown = Table.FillDown(tab, {lst{0}, lst{1}}), 
                                    select = Table.SelectColumns( 
                                                    Table.SelectRows(filldown, each Record.Field(_, lst{2}) <>  null), 
                                                            lst) & #table(lst, {{null, null,null}})
                                                            ][select]}}
                                )[All])
in
    gr