Arquivo Discussoes de Programacao e Tecnologia 
Boa noite,
Estou com dificuldade em desenvolver uma lógica é o seguinte.
Eu tenho 1000 contatos em uma lista, e gostaria filtrar no meio desses mil contatos apenas os contatos que aparecem uma única vez.
Se alguém poder me ajudar fico agradecido demais.
Qual linguagem?
Vba Precisamente.
Tenho boa parte do código pronto porem, de alguma forma não consigo comparar os valores.
Sub TESTE()
Dim LINHA As Integer
Dim CONTADOR As Integer
Dim ULTIMA_LINHA As Integer
Dim PASTA As String
Dim PLANILHA As String
PASTA = "Teste.xlsm"
PLANILHA = "Planilha1"
ULTIMA_LINHA = Workbooks(PASTA).Worksheets(PLANILHA).Cells(Rows.Count, 1).End(xlUp).Row
For LINHA = 1 To ULTIMA_LINHA
For CONTADOR = 1 To ULTIMA_LINHA
If StrComp(Workbooks(PASTA).Worksheets(PLANILHA).Range("A" & LINHA), Workbooks(PASTA).Worksheets(PLANILHA).Range("A" & CONTADOR), 1) Then
Workbooks(PASTA).Worksheets(PLANILHA).Range("B" & CONTADOR) = "É Igual"
'MsgBox ("É igual")
Else
Workbooks(PASTA).Worksheets(PLANILHA).Range("B" & CONTADOR) = "É Igual"
'MsgBox ("É Diferente")
End If
Next CONTADOR
LINHA = LINHA + 1
Next LINHA
End Sub
Não sei muito sobre VB, mas a lógica que você vai ter que aplicar é.:
1º Crie duas listas genéricas
2º Toda vez que adicionar um contato na lista 1 faça a verificação se já contem esse valor dentro dela, se não contem você adiciona se o valor já estiver dentro da lista adicione ele na segunda lista
No final você terá dois List um com valores exclusivos e outro com os valores que se repetem.
Também não sei de VB, de repente tem até uma função melhor.
Pelo que entendi do código, a lista já existe e será extraída de uma planilha do Excel. Ele não precisa se preocupar em adicionar.
O que eu faria seria: