Create duplicate rows

[k.03a]

Hi all,

This should be an easy one for those who know VBA.

I want to duplicate all my rows (20000 of them)

Basically I want to go from
col A
John
Daniel
David
Alex
....

to
col A
John
John
Daniel
Daniel
David
David
Alex
Alex
....

How can I do this?

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    Rows(i).Copy
    Rows(i).Insert
Next i
End Sub

 

[Sektor]

Result appears in column B.

[COLOR="Blue"]Sub[/COLOR] GenerateDuplicates()

    [COLOR="Blue"]Dim[/COLOR] i [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Long[/COLOR], j [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Long[/COLOR]
    [COLOR="Blue"]Dim[/COLOR] arr1 [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Variant[/COLOR], arr2 [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Variant[/COLOR]
    
    arr1 = Range("A1:A" & Cells(Rows.count, "A").End(xlUp).Row)
    [COLOR="Blue"]ReDim[/COLOR] arr2(1 [COLOR="Blue"]To[/COLOR] UBound(arr1) * 2, 1 [COLOR="Blue"]To[/COLOR] 1)
    
    j = 1
    [COLOR="Blue"]For[/COLOR] i = 1 [COLOR="Blue"]To[/COLOR] UBound(arr1, 1)
        arr2(j, 1) = arr1(i, 1)
        arr2(j + 1, 1) = arr1(i, 1)
        j = j + 2
    [COLOR="Blue"]Next[/COLOR]
    
    Range("B1").Resize(UBound(arr2, 1)) = arr2

[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[k.03a]

Perfect ! thanks guys

 

[Sektor]

You're welcome!