VBA - Duplicate a value n number of times
April 2018
I'm trying to write a macro that allows to replicate value n times (input).
Let's say, I have a list
- one
- two
- three
And I have to repeat it n (=4) times, the result should be in one column:
one one one one two two two two three three three three.
If your data is range from A1 to A3
Try this macro:
Sub test()
Dim r As String, n As Integer
n = InputBox("type number of times to be replicated")
r = InputBox("the cells address whose values to be replciated, e.g A2 ")
Range(Range(r).Offset(1, 0), Range(r).Offset(n - 1, 0)).EntireRow.Insert
Range(r).Copy Range(Range(r).Offset(1, 0), Range(r).Offset(n - 1, 0))
End Sub
Thanks to venkat1926 for this tip on the forum.
Related
- VBA - Duplicate a value n number of times
- Excel - Copy and insert rows n number of times » How-To - Excel
- Copy and insert rows n number of times (Solved) » Forum - Excel
- Copy X Row N Number of Times (Solved) » Forum - Excel
- Copy and insert rows n number of times in Excel (Solved) » Forum - Excel
- Copy and Paste row 5- row 9 n number of times » Forum - Excel