let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type any}, {"Столбец2", type datetime}, {"Столбец3", type any}, {"Столбец4", type text}}),
#"Строки с примененным фильтром" = Table.SelectRows(#"Измененный тип", each ([Столбец1] <> null and [Столбец1] <> "")),
#"Несвернутые столбцы" = Table.UnpivotOtherColumns(#"Строки с примененным фильтром", {}, "Атрибут", "Значение"),
#"Удаленные столбцы" = Table.RemoveColumns(#"Несвернутые столбцы",{"Атрибут"}),
#"Добавлен индекс" = Table.AddIndexColumn(#"Удаленные столбцы", "Индекс", 1, 1),
#"Вставлено: деление с остатком" = Table.AddColumn(#"Добавлен индекс", "Остаток от деления", each Number.Mod([Индекс], 10), type number),
#"Сведенный столбец" = Table.Pivot(Table.TransformColumnTypes(#"Вставлено: деление с остатком", {{"Остаток от деления", type text}}, "ru-RU"), List.Distinct(Table.TransformColumnTypes(#"Вставлено: деление с остатком", {{"Остаток от деления", type text}}, "ru-RU")[#"Остаток от деления"]), "Остаток от деления", "Значение"),
#"Заполнение вниз" = Table.FillDown(#"Сведенный столбец",{"1", "2", "3", "4", "5", "6", "7"}),
#"Заполнено вверх" = Table.FillUp(#"Заполнение вниз",{"9", "0"}),
#"Строки с примененным фильтром1" = Table.SelectRows(#"Заполнено вверх", each ([8] <> null)),
#"Удаленные столбцы1" = Table.RemoveColumns(#"Строки с примененным фильтром1",{"Индекс"}),
#"Переупорядоченные столбцы" = Table.ReorderColumns(#"Удаленные столбцы1",{"1", "4", "2", "0", "3", "5", "9", "6", "7", "8"})
in
#"Переупорядоченные столбцы"
|