Dear karan, By Excel.... Use formula *=SUBSTITUTE(A1,CHAR(10),"-") * in second Column, and Copy and Paste it as value, then normal you can use Text to column................ .
On Tue, Sep 13, 2011 at 5:02 PM, karan 1237 <karan1...@gmail.com> wrote: > Dear Noorain thanks for replying, but still my query has not solved. I want > to transpose data from cell to columns, I don't want to do Text to columns. > Please see attached file. > > > Kaяan > > <http://www.facebook.com/singhkarann> <http://twitter.com/#%21/karan1237> > <https://plus.google.com/111143524614789164919/posts> > <http://www.myspace.com/singhkaran> > <http://www.linkedin.com/in/singhkarann> <http://karanxel.blogspot.com/> > <http://karanxel.wordpress.com/> > > > > > On Tue, Sep 13, 2011 at 4:14 PM, NOORAIN ANSARI > <noorain.ans...@gmail.com>wrote: > >> **Dear Karan, >> >> Please see attached Sheet............ >> ** >> ** >> *Sub cell_Transpose() >> Dim i, j, z, x, d As Long >> Dim k As Boolean >> Dim st As Long >> Dim abc, xyz As String >> On Error GoTo errh >> Range("A65356").Select >> Selection.End(xlUp).Select >> z = ActiveCell.Row >> For x = 1 To z >> d = 1 >> st = 2 >> Range("a" & x).Select >> abc = ActiveCell.Value >> For i = st To Len(abc) >> If i > Len(abc) Then >> Range("a" & x).Offset(0, d).Value = abc >> Exit For >> End If >> If Asc(Mid(abc, i, 1)) > 64 And Asc(Mid(abc, i, 1)) < 91 Then >> Range("a" & x).Offset(0, d).Value = Left(abc, i - 1) >> xyz = Right(abc, Len(abc) - i + 1) >> abc = xyz >> i = 1 >> d = d + 1 >> End If >> Next i >> If Len(Range("a" & x).Value) = Len(abc) Then >> Range("a" & x).Offset(0, 1).Value = Range("a" & x).Value >> End If >> Next x >> errh: >> Exit Sub >> End Sub >> >> * >> On Tue, Sep 13, 2011 at 2:35 PM, karan 1237 <karan1...@gmail.com>wrote: >> >>> Dear All, >>> >>> I'v to transpose data from a cell to columns. Please solve my query. >>> >>> >>> Thnx in advance >>> Kaяan >>> >>> <http://www.facebook.com/singhkarann> >>> <http://twitter.com/#%21/karan1237> >>> <https://plus.google.com/111143524614789164919/posts> >>> <http://www.myspace.com/singhkaran> >>> <http://www.linkedin.com/in/singhkarann> <http://karanxel.blogspot.com/> >>> <http://karanxel.wordpress.com/> >>> >>> >>> -- >>> >>> ---------------------------------------------------------------------------------- >>> 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 >>> >> >> >> >> -- >> Thanks & regards, >> Noorain Ansari >> *http://excelmacroworld.blogspot.com/*<http://excelmacroworld.blogspot.com/> >> *http://noorain-ansari.blogspot.com/*<http://noorain-ansari.blogspot.com/> >> >> -- >> >> ---------------------------------------------------------------------------------- >> 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 > -- Thanks & regards, Noorain Ansari *http://excelmacroworld.blogspot.com/*<http://excelmacroworld.blogspot.com/> *http://noorain-ansari.blogspot.com/* <http://noorain-ansari.blogspot.com/> -- ---------------------------------------------------------------------------------- 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