Дублирование строк

Пользователь

Сообщений: 10 Регистрация: 15.05.2024

20.05.2024 16:38:28

Добрый день всем!

На входе есть неограниченное количество строк, и неограниченное количество столбцов, нужно разбить строки на то количество, которое указано в столбце D, и к наименованиям должны быть добавлены порядковые номера. Прикрепляю пример с входными данными и то, что должно получиться

Заранее спасибо!

Прикрепленные файлы

Лист Microsoft Excel.xlsx (9.04 КБ)

Изменено: RedIsDead - 20.05.2024 16:39:04

AlienSx

Пользователь

Сообщений: 2649 Регистрация: 10.01.2023

Excel 365

20.05.2024 17:08:27

PQ
let Source = Excel.CurrentWorkbook(){[Name="vhod"]}[Content], to_list = Table.ToList( Source, (w) => List.TransformMany( {w}, (x) => List.Transform(List.Numbers(1, x{2}), Text.From), (x, y) => {x{0} & " " & y, x{1}, 1, x{3}, x{4}} ) ), to_tbl = Table.FromRows(List.Combine(to_list)) in to_tbl

Прикрепленные файлы

Лист Microsoft Excel-32.xlsx (17.11 КБ)

Пришелец-прораб.

RedIsDead Пользователь Сообщений: 10 Регистрация: 15.05.2024	#3 20.05.2024 17:19:46 AlienSx, А можете подсказать как использовать запрос?) Я вообще в них не разбираюсь) Изменено: RedIsDead - 20.05.2024 17:19:56

RedIsDead

Пользователь

Сообщений: 10 Регистрация: 15.05.2024

20.05.2024 17:25:46

AlienSx, Разобрался с тем как использовать, но не совсем понимаю как расширить количество столбцов, указывал что количество столбцов неограниченное
Подскажете еще, пожалуйста?

Упд разобрался как увеличить количество столбцов, спасибо огромное

Изменено: RedIsDead - 20.05.2024 17:27:03

AlienSx

Пользователь

Сообщений: 2649 Регистрация: 10.01.2023

Excel 365

20.05.2024 17:44:35

Цитата
RedIsDead написал: Я вообще в них не разбираюсь)

Цитата
RedIsDead написал: Упд разобрался как увеличить количество столбцов

ничего себе скорость

все столбцы
let Source = Excel.CurrentWorkbook(){[Name="vhod"]}[Content], to_list = Table.ToList( Source, (w) => List.TransformMany( {w}, (x) => List.Transform(List.Numbers(1, x{2}), Text.From), (x, y) => {x{0} & " " & y, x{1}, 1} & List.RemoveFirstN(x, 3) ) ), to_tbl = Table.FromRows(List.Combine(to_list)) in to_tbl

Пришелец-прораб.

RedIsDead

Пользователь

Сообщений: 10 Регистрация: 15.05.2024

21.05.2024 09:07:12

Цитата
написал: ничего себе скорость

Ну при должном желании в готовом коде можно и разобраться)