Excluir dados iguais

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Excluir dados iguais

Mensagem  Leluir Burilli em Seg Abr 14, 2014 6:14 pm

Ola boa noite gostaria de uma macro que fosse possivel excluir dados iguais de uma coluna "A", que contem ex: A1 luiz, A2Luiz, A5 \luiz quero excluir todas A1,A2,A5 obrigado.

Leluir Burilli

Mensagens : 1
Data de inscrição : 14/04/2014

Voltar ao Topo Ir em baixo

Remover Duplicados

Mensagem  KDU em Seg Jan 23, 2017 11:40 pm

Vamos ao código.

Por favor, antes de solicitar uma macro, informe a versão do Excel que você está utilizando. Isto é importante porque dependendo da versão o código pode não funcionar, ou pode ser escrito de uma maneira mais simples usando os novos recursos do Excel, Valeu !

ALT+F11 para abrir o módulo do VBA Excel. Crie um novo módulo em seguida cole este código.

ATENÇÃO: Para quem for utilizar este código. Salve a planilha antes de fazer os testes, porque, quando você roda um VBA não existe um CRTL+Z ( não tem como desfazer o resultado)


Código:
Sub Remover_Duplicadas()
    
    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
avatar
KDU
Admin

Mensagens : 26
Data de inscrição : 17/08/2011
Idade : 37

http://excel.queroforum.net

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum