Hi, And just to add that you will need XL2007, since earlier versions don't have enough rows for your requirements (about 180,000)
Regards - Dave. Date: Thu, 4 Mar 2010 06:16:37 -0800 From: schreiner_p...@att.net Subject: Re: $$Excel-Macros$$ Clever way to transpose required To: excel-macros@googlegroups.com this should work: Option Explicit Sub Summarize() Dim R, C, OutRow, OutSheet Dim rMax, cMax OutSheet = "Summary" rMax = ActiveCell.SpecialCells(xlLastCell).Row cMax = ActiveCell.SpecialCells(xlLastCell).Column OutRow = 0 For R = 1 To rMax For C = 1 To cMax If (ActiveSheet.Cells(R, C).Value <> "") Then OutRow = OutRow + 1 Sheets(OutSheet).Cells(OutRow, 1) = ActiveSheet.Cells(R, C).Value End If Next C Next R End Sub Paul From: Gerry <gmccaff...@acutus.co.uk> To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com> Sent: Thu, March 4, 2010 6:49:55 AM Subject: $$Excel-Macros$$ Clever way to transpose required I have a large spreadsheet (say 3000 rows with 60 columns). Not all cells are populated. Using that data I want to create a single column capturing all of the data. The number of rows will equal the number of pieces of Data. Help..... Thanks in Advance Gerry. -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe _________________________________________________________________ Get personal with Windows. Download a free gift for your PC. http://experience.windows.com -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 6,800 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe