Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: Transpose one column into multiple rows

  1. #1
    New Member
    Join Date
    Dec 2010
    Posts
    10
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Smile Transpose one column into multiple rows

    Hi,
    i am working on a huge database, let say i have column A, and it lists

    a1
    a2
    a3
    a4



    a5
    a6


    a7
    a8
    a9



    and so on

    how do i transpose them into columns (there are three space between them) like:
    a1 a2 a3
    a5 a6
    a7 a8 a9
    and so forth.

    thanks in advance

  2. #2
    MrExcel MVP VoG's Avatar
    Join Date
    Jun 2002
    Location
    127.0.0.1
    Posts
    63,651
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    8 Thread(s)

    Default Re: Transpose one column into multiple rows

    Try this macro

    Code:
    Sub TrsPose()
    Dim Area As Range, i As Long
    Dim LR As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row
    For Each Area In Range("A1:A" & LR).SpecialCells(xlCellTypeConstants).Areas
        i = i + 1
        Range("B" & i).Resize(, Area.Rows.Count).Value = Application.Transpose(Area)
    Next Area
    End Sub
    HTH, Peter
    Please test any code on a copy of your workbook.

  3. #3
    New Member
    Join Date
    Dec 2010
    Posts
    10
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Transpose one column into multiple rows

    thanks, it works, you the man

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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