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
#"Удаленные столбцы" |