Notifications
Clear all

Tirar repetições de lista

6 Posts
2 Usuários
0 Reactions
1,594 Visualizações
(@daniel-dalence)
Posts: 37
Trusted Member
Topic starter
 

Bom dia!

Tenho numa planilha uma listagem com cerca de 1.600 nomes, porém vários estão repetidos, como posso obter uma listagem somente com nomes diferentes, ou seja, tirando as repetições?

Agradeço

 
Postado : 18/12/2013 12:01 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Posta o arquivo que fica mais facil.

 
Postado : 18/12/2013 5:00 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Supondo que os nomes esteja na coluna A.

Option Explicit
 
Sub AleVBA_9960()
     
    Dim x               As Long
    Dim LastRow         As Long
     
    LastRow = Range("A65536").End(xlUp).Row
    For x = LastRow To 1 Step -1
        If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
            Range("A" & x).EntireRow.Delete
        End If
    Next x
     
End Sub
 
Postado : 18/12/2013 6:45 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia Daniel

Dá para fazer isso usando o filtro avançado, marcando a opção somente registros exclusivos.
Você pode filtrar os nomes na mesma coluna ou para outra coluna.

Dê retorno.

At.te

 
Postado : 18/12/2013 7:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

" ... mil maneiras ... "

1) Copie e cole a coluna de nomes noutro local, pois vc não quer estragar sua tabela original
2) Vá ao local onde você colou os dados, e selecione a coluna
3) Na faixa de opções (ribbon) vá ao item "Dados", encontre o grupo "Ferramentas de Dados" e clique no botão "Remover Duplicatas".
4) Pronto

FF

 
Postado : 18/12/2013 7:37 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 18/12/2013 4:09 pm