a formula would work just a nicely

=OFFSET(Sheet1!$A$1,MOD(ROW(),3),INT(ROW()/3))

copy down then copy /pastespecial values



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


(Mark) wrote:

Was wondering if there is a simple way to re-arrange data with some VB
code. I have much more data than in the following example.
So this could actually save several hours of work.

Thanks in advance, Mark

Have data in this format:

BOB DAVE JIM HAROLD
1 33 31 15
19 23 22 99

I need it in this format:

BOB
1
19
DAVE
33
23
JIM
31
22
HAROLD
15
99