Results 1 to 4 of 4
  1. #1
    Join Date
    Jan 2004
    Posts
    184

    Unanswered: HOW TO TRANSPOSE in EXCEL?

    Does anybody know how to transpose data in Excel?

    I want my columns to become rows

    I have tried using the TRANSPOSE Function to no avail
    In abundance of water only the fool is thirsty. Bob Marley.

  2. #2
    Join Date
    Jan 2004
    Location
    Aberdeen, Scotland
    Posts
    1,067

    Re: HOW TO TRANSPOSE in EXCEL?

    Originally posted by rami.haddad
    Does anybody know how to transpose data in Excel?

    I want my columns to become rows

    I have tried using the TRANSPOSE Function to no avail
    Try Copying the Data and in a new workbook.
    right click a cell choose paste special and check the transpose box

    David

  3. #3
    Join Date
    Oct 2003
    Posts
    1,091
    Also, keep in mind the column limit (256), so if you have more than 256 rows right now, it will not transpose properly.
    old, slow, and confused
    but at least I'm inconsistent!

    Rich
    (retired Excel 2003 user, 3/28/2008)

    How to ask a question on forums

  4. #4
    Join Date
    Mar 2004
    Location
    London, UK
    Posts
    1

    Re: HOW TO TRANSPOSE in EXCEL?

    Originally posted by rami.haddad
    Does anybody know how to transpose data in Excel?

    I want my columns to become rows

    I have tried using the TRANSPOSE Function to no avail
    Hello,

    suppose you have data in the range A1:C10. Three columns and 10 rows. The code below will transpose the cells into three rows and ten columns.

    Private Sub Disperse()

    ' Variable Declarations
    Dim I As Double
    Dim J As Double
    Dim doubleArray(9, 2) As Double

    ' Use two nested For/Next Loops to access both indeces of the array.
    For I = 1 To 3
    For J = 1 To 10
    doubleArray(J - 1, I - 1) = Cells(J, Chr(I + 64)).value
    Next J
    Next I

    ' Clear the contents of the range A1: C10.
    Range("a1:c10").ClearContents

    ' Now to swap over rows for columns exchange the indexes J & I.
    For I = 1 To 3
    For J = 1 To 10
    Cells(I, Chr(J + 64)).value = doubleArray(J - 1, I - 1)
    Next J
    Next I

    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •