Try this:
Sub test()
Dim vIn, vOut()
Dim i As Long, j As Long, ii As Long
vIn = Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 2).Value
For i = 1 To UBound(vIn, 2)
For j = 1 To UBound(vIn, 1)
ii = ii + 1
ReDim Preserve vOut(1 To ii)
vOut(ii) = vIn(i, j)
Next j
Next i
Range("C1").Resize(UBound(vOut), 1).Value = Application.Transpose(vOut)
End Sub
or,
Sub test2()
Dim rng As Range, vOut(), i As Long
Set rng = Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 2)
For i = 1 To rng.Cells.Count
ReDim Preserve vOut(1 To i)
vOut(i) = rng.Item(i).Value
Next i
Range("C1").Resize(UBound(vOut), 1).Value = Application.Transpose(vOut)
End Sub
Cheers, berlan
Bookmarks