Deletar TODOS dados que estão duplicados.

Ir em baixo

Deletar TODOS dados que estão duplicados.

Mensagem por alexandrevba em Ter Abr 15, 2014 1:12 pm

Boa tarde!!

Como deletar TODOS dados que estão duplicados.

Todos os dados que se envolve na duplicação, é deletado da coluna.
------------
Coluna-A
Maria-Repete
Joana-Não Repete
Maria-Repete
#####Resultado#####
Coluna-A
Joana-Não Repete
Código:
Sub DeletarTODOSduplicados()
    Dim i  As Long
    i = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    Columns(1).Insert
    [A1] = "AleVBA"
    With Range("A1:A" & i)
        .Offset(1, 0).Resize(.Rows.Count - 1, 1).Formula = "=COUNTIF($B$2:$B$" & i & ",B2)>1"
        .AutoFilter field:=1, Criteria1:="VERDADEIRO"
        .Offset(1, 0).Resize(.Rows.Count - 1, 1).EntireRow.Delete
        .AutoFilter
    End With
    Columns(1).Delete
    Application.ScreenUpdating = True
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

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