View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Mik Mik is offline
external usenet poster
 
Posts: 42
Default List cell content without duplication or blanks

On 16 Oct, 10:30, Mik wrote:
On 15 Oct, 17:33, Teethless mama





wrote:
=IF(ISERR(SMALL(IF((Names<"")*(MATCH(Names&"",Nam es&"",0))=ROW(INDIRECT("1**:"&ROWS(Names))),MATCH( Names&"",Names&"",0)),ROWS($1:1))),"",INDEX(Names, S*M*ALL(IF((Names<"")*(MATCH(Names&"",Names&"",0) )=ROW(INDIRECT("1:"&ROWS(Na*me*s))),MATCH(Names&"" ,Names&"",0)),ROWS($1:1))))


ctrl+shift+enter, not just enter
copy down as far as needed


"Mik" wrote:
Hello, looking for some help with the following:-
I have a list of names within Column A, some of which are repeated
numerous times.
What i require, is to list in Column B each of the names shown in
Column A (once only), so those names that are repeated, are only
displayed once.


Col A Col B


A A
B B
C C
B D
D E
E F
A
A
F- Hide quoted text -


- Show quoted text -


I'm not having too much joy with this one... can't get it to work.- Hide quoted text -

- Show quoted text -




Thanks for EVERYONE'S help.
Done what i wanted using following code.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Range("A1:A50").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("B1:B50"), Unique:=True

Range("B2:B50").Sort Key1:=Range("B2"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom,
_
DataOption1:=xlSortNormal

End Sub