You can use the following macro.
Note: This macro will move all the data to column-A.
'--------------------------------------------
Sub moveTo1Col()
Dim i As Integer, j As Integer
i = 2
While Cells(1, i) <> ""
Cells(1, i).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
j = Range("A1").End(xlDown).Row
Range("A" & j + 1).Select
ActiveSheet.Paste
i = i + 1
Wend
End Sub
'--------------------------------------------
Akhilesh Kumar Karna
On Thu, Nov 20, 2008 at 1:36 AM, TerryP <[EMAIL PROTECTED]> wrote:
>
> I have data in multiple columns like this :
> http://spreadsheets.google.com/pub?key=pD3DJDAymrEspkRfQWMOTUg
>
> I'd like data moved to one single column (like column #1)
>
> Can someone help me out with a macro ?
>
> Much appreciated.
>
> Terry
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
