I have recorded a Macro on Excel 2007 to sort a column of 912 counts into its constituents. I am a VBA beginner and have tried to set up a loop. I have not succeeded over the last few days. Please could someone help?
Description:
The column exists as follows and contains 776 counts of three headers Name, Univ. Name, eMail :
Harry, Garry
My University
Harrysg1@myuniv ersity.edu
Next,Garry
NextMy University
NextHarrysg1@my university.edu
I am trying to sort this one continuous column into three rows with the headers mentioned above ie. Name, Univ. Name, eMail
How can I modify my Macro to loop so that it covers all the 912 cells in the column and spit out the results in rows?
Sheets("Sheet2" ).Select
Range("A1:A3"). Select
Selection.Copy
Sheets("Sheet3" ).Select
Selection.Paste Special Paste:=xlPasteA ll, Operation:=xlNo ne, SkipBlanks:= _
False, Transpose:=True
Range("A2").Sel ect
ActiveCell.Offs et(2, 0).Select
End Sub
Thanks
Description:
The column exists as follows and contains 776 counts of three headers Name, Univ. Name, eMail :
Harry, Garry
My University
Harrysg1@myuniv ersity.edu
Next,Garry
NextMy University
NextHarrysg1@my university.edu
I am trying to sort this one continuous column into three rows with the headers mentioned above ie. Name, Univ. Name, eMail
How can I modify my Macro to loop so that it covers all the 912 cells in the column and spit out the results in rows?
Sheets("Sheet2" ).Select
Range("A1:A3"). Select
Selection.Copy
Sheets("Sheet3" ).Select
Selection.Paste Special Paste:=xlPasteA ll, Operation:=xlNo ne, SkipBlanks:= _
False, Transpose:=True
Range("A2").Sel ect
ActiveCell.Offs et(2, 0).Select
End Sub
Thanks
Comment