Transpose columns in rows

Microsoft Office 2003 professional editi...
May 5, 2010 at 06:16:53
Specs: Windows XP, 3/1
Hi Experts,
Can help my with transpose columns in rows for ex.
initial sheet:
TOTYS
AANDY1
NANCY1
NANCY1
ADYSA3
ADYSA2
VALEY1
BOBYS2
BOBYS1
TOTYS
BOBYS2
VALEY2
VALEY1
AANDY1
BOBYS1
TOTYS
BOBYS1
ADYSA2
AANDY1
BOBYS2
TOTYS
FDASC3
ADYSA1
BORCK2
BORCK1
FDASC2
FDASC1
TOTYS
FDASC2
ADYSA1
FASIRA3
FDASC3
FDASC1
TOTYS
FDASC1
BORCK1
FDASC2
FDASC1
FASIRA3
FDASC3
FDASC2
and final:
TOTYS AANDY1 NANCY1 NANCY1 ADYSA3 ADYSA2 VALEY1 BOBYS2 BOBYS1
TOTYS BOBYS2 VALEY2 VALEY1 AANDY1 BOBYS1
TOTYS BOBYS1 ADYSA2 AANDY1 BOBYS2
TOTYS FDASC3 ADYSA1 BORCK2 BORCK1 FDASC2 FDASC1
TOTYS FDASC2 ADYSA1 FASIRA3 FDASC3 FDASC1
TOTYS FDASC1 BORCK1 FDASC2 FDASC1 FASIRA3 FDASC3 FDASC2
Thanks very much .

See More: Transpose columns in rows

Report •

#1
May 5, 2010 at 08:06:21
If all you want is to Transpose your list, without the use of a Macro, then:

Select cells A1 through A9
TOTYS
AANDY1
NANCY1
NANCY1
ADYSA3
ADYSA2
VALEY1
BOBYS2
BOBYS1

On the Task Bar,
Edit
Copy

Move your cursor to Column B cell 1

On the Task Bar,
Edit
Paste Special
Select Transpose, (near the bottom)
Click OK

Repeat the same process 6 times, starting at the word TOTYS.

MIKE

http://www.skeptic.com/


Report •

#2
May 5, 2010 at 08:54:17
This code assumes your list starts in A1 and that you want the Transposed Data to start in B1:

Option Explicit
Sub TransWords()
Dim lstRw, rw, col, nxtRw As Integer
'Determine Last Cell with Data in Column A
 lstRw = Range("A" & Rows.Count).End(xlUp).Row
'Loop from Row 1 to Last Row
  For rw = 1 To lstRw
'Start new Row at each TOTYS
   If Cells(rw, 1) = "TOTYS" Then
'Reset Column to 1 and Increment Row
    col = 1
    nxtRw = nxtRw + 1
  End If
'Increment Column
  col = col + 1
'Copy Data
  Cells(nxtRw, col) = Cells(rw, 1)
 Next
End Sub


Report •

#3
May 6, 2010 at 06:42:51
Thank you very much Derby. Work perfect.
Again thanks

Report •

Related Solutions

#4
May 6, 2010 at 10:28:24
Glad I could help.

Report •

Ask Question