Replacing Rows with columns.

  • Thread starter Thread starter OL
  • Start date Start date
If you copy the table you can Paste Special | Transpose it to a different
location. You could then copy it back to where it was.

Code to do this might look like this:

Range("D9:F11").Copy
Range("H9").PasteSpecial _
Paste:=xlAll, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=True
Range("H9:J11").Cut Range("D9")
Range("D9").Select

Regards

Trevor
 
Yes

Copy>Paste Special>Transpose.

Note: if you have more than 256 rows this cannot be done.

Gord Dibben XL2002
 
Back
Top