Dear Murali, Please try below Code and See attached sheet.
Sub re_arrange() Dim i, j, k, l As Integer j = Range("A65536").End(xlUp).Row l = 3 For i = 3 To j For k = 1 To 3 Sheet1.Range("F" & l).Value = Sheet1.Cells(i, k).Value l = l + 1 Next k Next i End Sub -- Thanks & regards, Noorain Ansari *http://excelmacroworld.blogspot.com/*<http://excelmacroworld.blogspot.com/> *http://noorain-ansari.blogspot.com/* <http://noorain-ansari.blogspot.com/> On Mon, Oct 24, 2011 at 5:18 PM, MURALI NAGARAJAN <muralin...@gmail.com>wrote: > Dear excel experts, > > I have a doubt below attached file, kindly provide exact solution for this > problem. > > Thanks & Regards > Murali.N > Chennai-50 > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 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 > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 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 <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
Re-arrange_the_products(Solved).xls
Description: MS-Excel spreadsheet