How to Transpose data in Excel through formula or code?

I have my data in the following format in one column:

AMERICAS\A.GIRARD
Alejandro
Girard
No

AMERICAS\A.M.LAWRENCE
Alex
Lawrence
Yes

AMERICAS\A.MATVIENK
Alexander
Matvienk
No

AMERICAS\AARON.FUHRR
Aaron
Fuhrr
No

Please note that there is a gap of one row between each set of Data of 4 lines.
I need this data to be organized in the following manner, either on same sheet or the new sheet does not matter:

AMERICAS\A.GIRARD       Alejandro       Girard       No
AMERICAS\A.M.LAWRENCE       Alex       Lawrence       Yes
AMERICAS\A.MATVIENK      Alexander      Matvienko      No
AMERICAS\AARON.FUHRR       Aaron       Fuhrr       No

Please help.

Regards

Imran
FridaybirdAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
Assuming the data starts in Sheet1, and you are putting the new table starting in cell A1 of another sheet:

=OFFSET(Sheet1!$A$1,COLUMN(A1)-1 + (ROW(A1)-1)*5,0)

Open in new window

0
Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
A bit more useful - assuming the data starts in Sheet1$A$1, and you are putting the new table starting in cell $a$1 of any sheet:

=OFFSET(Sheet1!$A$1,(COLUMN(A1)-COLUMN($A$1)) + (ROW(A1)-ROW($A$1))*5,0)

Change Sheet1!$A$1 to the correct location of the original data, and change the other two $A$1 to be the starting location of the new column. Both of them need to have the two dollar signs.

Copy this across three columns and down three rows for the full effect.
0
FridaybirdAuthor Commented:
did not work, it return some 'No' and '0's' in the same column. can you please review?
0
Cloud Class® Course: Microsoft Exchange Server

The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.

Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
Please see the attached spreadsheet.
Transpose.xlsx
0
Chris HandleyWintel ArchitectCommented:
not checked the other attachment, but find my attempt attached, just copy your data in a drag the cells in Sheet2 down.
0
Chris HandleyWintel ArchitectCommented:
helps if I press upload!
Book1.xlsx
0
FridaybirdAuthor Commented:
Apparently it works but, after few rows it wrecks order of the data, not sure if something wrong in the formation of my data or code stops working. can you please take look on the attached spreadsheet?

Many Thanks

Imran
TestTranspose.xlsx
0
Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
It's because you have two line gaps in rows 75 and 76.
0
Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
Same around row 491
0
FridaybirdAuthor Commented:
I am an idiat :( Apology.
0
FridaybirdAuthor Commented:
I've requested that this question be closed as follows:

Accepted answer: 0 points for Fridaybird's comment #a40370507
Assisted answer: 250 points for Phillip Burton's comment #a40370425
Assisted answer: 250 points for Phillip Burton's comment #a40370433

for the following reason:

Very quick and accurate response. Both Experts came up with wealth knowledge and courtesy. My salutes to both Philip Burton and Topper88.
0
Pratik MakwanaData AnalystCommented:
Pls run this macro in your excel, its will copy data from sheet1 and transpose & paste it into sheet2......

Sub Traspose()
i = 1
y = 1
x = 1

For i = 1 To Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    If IsEmpty(Sheets("sheet1").Cells(i, 1)) Then
    y = 1
    x = x + 1
    Sheets("sheet1").Cells(i, 1).Copy Destination:=Sheets("sheet2").Cells(x, y)
    Else
    Sheets("sheet1").Cells(i, 1).Copy Destination:=Sheets("sheet2").Cells(x, y)
    y = y + 1
    End If
Next

End Sub
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
FridaybirdAuthor Commented:
Thanks, issue was resolved
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Algorithms

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.