Excel - повторять строки указанное количество раз

Строки на листе Excel могут повторяться указанное количество раз с помощью определенной пользователем функции. Пользовательская функция может быть написана так, чтобы повторять строки указанное количество раз . Для написания такой функции могут потребоваться некоторые знания о понятиях программирования, таких как условия if-then-else и циклы выполнения while. Команду Selection.insert можно использовать для вставки строк в рабочий лист программного обеспечения Excel Office. Нет необходимости писать код с нуля, так как фрагменты кода свободно доступны для использования на листах. Однако необходимо убедиться, что пользовательская функция или подпрограмма для повторения строк указанное количество раз вставляется в нужное место.

• вопрос
• Решение
• Заметка

вопрос

Кто-нибудь знает, как повторять строки в электронной таблице определенное количество раз, указанное в ячейке, присутствующей в этой строке?

то есть из этой таблицы:

 Столбец А Столбец Б
Петр 3
Джеймс 7
Давид 4 

Мне нужно произвести эту таблицу:

 Столбец А Столбец Б
Петр 3
Петр 3
Петр 3
Джеймс 7
Джеймс 7
Джеймс 7
Джеймс 7
Джеймс 7
Джеймс 7
Джеймс 7
Давид 4
Давид 4
Давид 4
Давид 4 

Любые идеи о простом способе сделать это?

Решение

Попробуй это:

 Sub CopyData ()
Тусклый как долго
Dim RepeatFactor как вариант
lRow = 1
Делать Пока (Клетки (lRow, "A") "")
RepeatFactor = Cells (lRow, "B")
Если ((RepeatFactor> 1) И IsNumeric (RepeatFactor)) Тогда
Диапазон (Ячейки (lRow, "A"), Ячейки (lRow, "B")). Копировать
Диапазон (ячейки (lRow + 1, «A»), ячейки (lRow + RepeatFactor - 1, «B»)). Выберите
Selection.Insert Shift: = xlDown
lRow = lRow + RepeatFactor - 1
End If
lRow = lRow + 1
петля
End Sub 

Заметка

Спасибо rizvisa1 за этот совет на форуме.