Copy X Row N Number of TimesSolved/Closed

Question

Hi.

I need the formula to Copy X Row N No.of Times.
For Example

Col 1        Col 2
ABC            3
DEF            5
GHI            4


Outcome
Col 3
ABC
ABC
ABC
DEF
DEF
DEF
DEF
DEF
GHI
GHI
GHI
GHI

TrowaD · Accepted Answer

Hi Lionsclaw,

The following code will do as requested:
Sub RunMe()
Dim lRow As Long
Dim x, MyCount As Integer

lRow = Range("A1").End(xlDown).Row

For Each cell In Range("A1:A" & lRow)
    cell.Copy
    MyCount = cell.Offset(0, 1)
    
    Do
        x = x + 1
        Range("C" & x).PasteSpecial
        MyCount = MyCount - 1
    Loop Until MyCount = 0
Next cell
        
Application.CutCopyMode = False
End Sub

Best regards,
Trowa

Copy X Row N Number of Times

1 reply

Subscribe To Our Newsletter!