Preciso de Ajuda em uma lógica

Programação
#1

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.

#2

Qual linguagem?

#3

Vba Precisamente.

#4

Tenho boa parte do código pronto porem, de alguma forma não consigo comparar os valores.

#5 
 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
#6

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.

#7

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:

  1. Pegar a lista de itens
  2. Colocar em ordem crescente
  3. Comparar o item atual com o anterior:
    a) se igual, pular pro próximo item
    b) se diferente, adicionar na 2a lista aquele item
  4. Mostrar a 2a lista