Excel - разбить данные на несколько строк
![](http://img.brin-designs.com/img/games/359/excel-split-data-into-several-rows.png)
вопрос
Я хотел бы разбить строку данных на несколько строк с одинаковыми данными в MS Excel. Например, у меня есть товар со стандартным размером упаковки 100 шт. В коробке. Мой клиент размещает заказ на 1000 шт. Я хотел бы, чтобы этот элемент заказа повторялся 10 раз на рабочем листе, и в каждой строке указывалось 100 шт.
Решение
Сначала выберите всю строку, которую вы хотели бы повторить.
Запустите следующий код:
Sub RepeatRow () Dim iRow как целое число Dim x как целое число Dim y как целое число iRow = ActiveCell.Row x = InputBox ("Количество раз, когда вы хотите отобразить выбранную строку:") y = 1 Do Rows (iRow). Выбор копии .Insert Shift: = xlDown y = y + 1 Цикл До y = x Application.CutCopyMode = False End Sub
- Выполнение кода позволит вам ввести количество раз, которое вы хотите увидеть повторение строки.
- В вашем случае выберите строку с 100шт., Запустите код, введите 10, и вы увидите, что одна строка превратилась в 10 строк.
Спасибо Trowa за этот совет.