let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Другие удаленные столбцы" = Table.SelectColumns(Источник,{"Дата", "Документ", "Операция", "Столбец4"}),
#"Добавлен индекс" = Table.AddIndexColumn(#"Другие удаленные столбцы", "Индекс", 0, 1),
#"Вставлено: деление с остатком" = Table.AddColumn(#"Добавлен индекс", "Остаток от деления", each Number.Mod([Индекс], 5), type number),
#"Условный столбец добавлен" = Table.AddColumn(#"Вставлено: деление с остатком", "Новый Столбец Категория", each if [Остаток от деления] = 3 then [Операция] else null),
#"Условный столбец добавлен1" = Table.AddColumn(#"Условный столбец добавлен", "Контрагент", each if [Остаток от деления] = 0 then [Операция] else null),
#"Заполнено вверх" = Table.FillUp(#"Условный столбец добавлен1",{"Новый Столбец Категория", "Контрагент"}),
#"Строки с примененным фильтром" = Table.SelectRows(#"Заполнено вверх", each [Документ] <> null and [Документ] <> ""),
#"Переупорядоченные столбцы" = Table.ReorderColumns(#"Строки с примененным фильтром",{"Дата", "Документ", "Операция", "Новый Столбец Категория", "Контрагент", "Столбец4", "Индекс", "Остаток от деления"}),
#"Переименованные столбцы" = Table.RenameColumns(#"Переупорядоченные столбцы",{{"Столбец4", "Сумма с Дебет"}}),
#"Другие удаленные столбцы1" = Table.SelectColumns(#"Переименованные столбцы",{"Дата", "Документ", "Операция", "Новый Столбец Категория", "Контрагент", "Сумма с Дебет"}),
#"Измененный тип" = Table.TransformColumnTypes(#"Другие удаленные столбцы1",{{"Дата", type date}, {"Сумма с Дебет", type number}})
in
#"Измененный тип"
|