Размножить строки в Excel - повторить каждую N раз

[@kairats1843]

Смотрю уже минут 10 болтовня когда уже формула)

[@olesyaexcel]

Это только ваше мнение 🙂 Формулы сию секунду по требованию где-то в другом месте. Наверное )

[@axdtorko9754]

List.Repeat({[Column2]}, [Column2])
Пасхалка :)
PS совсем нету комментов. Пусть хоть мой будет :)
Sub MultiplyRows()
a = Cells(Rows.Count, 1).End(xlUp).Row
For i = a To 1 Step -1
counter = 1
Do While counter < Cells(i, 2).Value
Rows(i + 1).Insert
Cells(i + 1, 1).Value = Cells(i, 1).Value
Cells(i + 1, 2).Value = Cells(i, 2).Value
counter = counter + 1
Loop
Next i
End Sub
PS Самое плохое в VBA, что назад ничего провернуть нельзя
и поэтому это не инструмент, а скальпель, который портит данные

[@olesyaexcel]

Как раз по этой и ряду других причин, я даю альтернативные решения, без макросов, через встроенные формулы 🙂

[@axdtorko9754]

​@@olesyaexcel к счастью, с приходом динамических массивов формул стало нужно меньше :)

[@olesyaexcel]

​@@axdtorko9754 вы удивитесь, но прям далеко не у всех эти версии Excel

[@olesyaexcel]

​@@axdtorko9754вы удивитесь, но прям далеко не у всех эти версии Excel

[@kairats1843]

Сколько болтовни

[@olesyaexcel]

Сколько писанины 😁