#"Развернутый элемент Объекты.Data" = Table.Combine(#"Удаленные столбцы"[Объекты.Data])

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    func = (delimiter as text) => Splitter.SplitTextByDelimiter(delimiter),
    final = Table.AddColumn(Source, "ВК", each if List.Contains(func("; ")([Столбец1]), "Отклонение") then "Брак" else if List.AllTrue(List.Transform(func("; ")([Столбец1]), each _ = "Акцептовать")) then "Акцп" else "В работе")
in
    final

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ИзмененныйТип = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}, {"Столбец2", type text}}),
    Замена = Table.FromRecords(
        Table.TransformRows(
            ИзмененныйТип,
            (r) => Record.TransformFields(
                r,
                {"Столбец1", each if r[Столбец1] = "привет" and r[Столбец2] = "a" then Text.Replace( _, "при", "за" ) else _} )
        )
    )
in
    Замена

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ИзмененныйТип = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}, {"Столбец2", type text}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(ИзмененныйТип, "Пользовательская", each if [Столбец1] = "привет" and [Столбец2] = "a" then Text.Replace( [Столбец1], "при", "за" ) else [Столбец1]),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Добавлен пользовательский объект",{"Пользовательская", "Столбец2"}),
    #"Переименованные столбцы" = Table.RenameColumns(#"Другие удаленные столбцы",{{"Пользовательская", "Столбец1"}})
in
    #"Переименованные столбцы"

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    ИзмененныйТип = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}, {"Столбец2", type text}}),
    Замена = Table.FromRecords( 
        Table.TransformRows( 
            ИзмененныйТип, 
            each [Столбец1 = if [Столбец1] = "привет" and [Столбец2] = "a" then Text.Replace( [Столбец1], "при", "за" ) else [Столбец1], 
                Столбец2 = [Столбец2]]
        ) 
    )
in
    Замена

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Вставлено: объединенный столбец" = Table.AddColumn(Источник, "Сведено", each [Документ] & Text.From([Субконто Дт], "ru-RU"), type text),
    #"Заполнение вниз" = Table.FillDown(#"Вставлено: объединенный столбец",{"Сведено"}),
    #"Сгруппированные строки" = Table.Group(#"Заполнение вниз", {"Сведено"}, {{"Таб", each _, type table}, {"Признак", each List.Last(_[Субконто Дт]) = null, type logical}}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Сгруппированные строки", each ([Признак] = false)),
    #"Развернутый элемент Таб" = Table.ExpandTableColumn(#"Строки с примененным фильтром", "Таб", {"Столбец1", "Дата", "Документ", "Содержание", "Дт", "Столбец2", "Кт", "Столбец3", "Сумма", "Субконто Дт", "Субконто Кт"}, {"Столбец1", "Дата", "Документ", "Содержание", "Дт", "Столбец2", "Кт", "Столбец3", "Сумма", "Субконто Дт", "Субконто Кт"}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Развернутый элемент Таб",{"Сведено", "Признак", "Столбец1"})
in
    #"Удаленные столбцы"