Create repeating rows?

[anantathaker]

Hi all,
I'm wondering if there is a quick way to create repeating rows without losing their order, that is:

A
B
C
D

into

A
A
B
B
C
C
D
D

Only, instead of repeating them twice, I'd like to repeat them 100 times

Thanks!

 

[delaneyjm]

Someon may be able to suggest a formula, but try this macro

Sub Test()
    Dim x As Long
    For x = 1 To 26 Step 1
        If x > 1 Then
            With Range("A" & 100 * x, Range("A" & 100 * (x + 1)))
                .Value = Chr(64 + x)
            End With
        Else
            With Range("A" & 1 * x, Range("A" & 100 * x))
                .Value = Chr(64 + x)
            End With
        End If
    Next
End Sub