try to use this UDF (user defined function) Function UniqueList(Dat As Range) ' List of UnSorted Unique Values ' '-----------------------------------------' Dim Cel As Range, vArr(), n As Long, Tx As String Tx = ", " For Each Cel In Dat If InStr(1, Tx, ", " & Cel & ", ") = 0 Then Tx = Tx & Cel & ", " End If Next Cel If Len(Tx) > 0 Then Tx = Left(Tx, Len(Tx) - 2) If Len(Tx) > 0 Then Tx = Right(Tx, Len(Tx) - 2) UniqueList = Tx End Function
On Sat, May 7, 2011 at 3:50 PM, karan 1237 <karan1...@gmail.com> wrote: > * > LIST1* *LIST1* *LIST1* *RESULT* BACK SIDE FRONT BACK, SIDE, FRONT FRONT > SIDE FRONT FRONT, SIDE BACK FRONT BACK BACK, FRONT FRONT FRONT FRONT > FRONT > *Hi Experts, > > I want like this. Please help. > > Thnx in Advance. > > > * > ııllllııllıı ~ ♣ кαяαηη ♣ ~ ııllllııllıı > > -- > > ---------------------------------------------------------------------------------- > 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
UDF_UniqValues.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12