Transposing columns to rows:programmatically

[pcdj]

I am looking to somehow programmatically transpose columns to rows, replicating each instance of the data in the first column to the related transposed rows.

For example:

1 a b c d
2 e f

Would become:

1 a
1 b
1 c
1 d
2 e
2 f

The number of rows will vary, and the number of columns for each row will also vary. The first column is not always numeric and the remaining columns are not always letters.

I am aware of how to paste special and transpose, which sort of serves the purpose manually, but was wondering whether there was a more efficient way to do this?

An example is attached - thanks!

[StephenR]

Try this. It puts results on sheet2.

Please Login or Register  to view this content.

[stanleydgromjr]

pcdj,

Detach/open the attached worbook "Transposing columns to rows - pcdj - SDG11.xls" with macro "ReorgData".

The "ReorgData" macro will create a new worksheet called "Results".