Sub ReOrganize()

'JBeaucaire (11/4/2009)
'Turns row data into columnar data

Dim LR As Long, i As Long, r As Long, c As Long, v As Long
Application.ScreenUpdating = False

LR = Range("A" & Rows.Count).End(xlUp).Row
i = 1

Do Until Range("A" & i) = ""
If Range("C" & i) < "" Then
c = Cells(i, Columns.Count).End(xlToLeft).Column
v = i
For r = 3 To c
i = i + 1
Rows(i).Insert xlShiftDown
Range("A" & i) = Range("A" & i - 1)
Range("B" & i) = Cells(v, r)
Next r
End If
i = i + 1
Loop

Range("C1", Cells(Rows.Count, Columns.Count)).ClearContents
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP


On Thu, 5 Nov 2009 02:39:07 -0800, Buyone
wrote:

Hello,

I have a set of data that i need to modify.
A B C D E ......AA
14-Oct 03:23 04:23 06:20 06:34

I need to transpose B:AA into a single column while keeping the date in A.

So it should look like

A B
14-Oct 03:23
14-Oct 04:23
14-Oct 06:20

This data goes on for a number of rows so doing it manually (as i have been
doing) can take hrs.

Can anyone save me from my excel hell?

Thanks in advance