Thanks Otto, How would I adjust this macro to transpose this set of data
(assuming data in columns A & B starting in A1, everything in Row 1)
101, abc 2215
102, abc 2406
103, ab 6
104, abc 403
I would like to have this format:
101, abc 2215, 102, abc 2406, 103, ab 6, 104, abc 403
each comma represents cell separation.
THanks for you help,
BK
"Otto Moehrbach" wrote:
I would use a macro something like the following. I assumed that your data
was in Columns A & B starting in A1 and that you wanted everything in Row 1.
Don't forget that you have only 256 columns on the sheet. I didn't write in
any error trap for running out of columns. HTH Otto
Sub ShuffleData()
Dim RngA As Range
Dim i As Range
Set RngA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For Each i In RngA
i.Resize(, 2).Copy [A1].End(xlToRight).Offset(, 1)
i.Resize(, 2).ClearContents
Next i
End Sub
"BK" wrote in message
...
I have the following spreadsheet:
1 a
2 b
3 c
4 d
I would like to have this format:
1 a 2 b 3 c 4 d
Any suggestions would be greatly appreciated!!
|