0132-Eliminando registros duplicados

Eis um código de macro que permite que os registros duplicados sejam excluídos de um conjunto de dados:

Sub EliminarDuplicados()

Dim wf      As WorksheetFunction
Dim rg      As Range
Dim LinIni  As Integer
Dim LinFim  As Integer
Dim i       As Integer
Dim c       As Integer
Dim Cont    As Integer

Set wf = Application.WorksheetFunction
Set rg = Application.InputBox(Prompt:="Informar o intervalo coluna com os dados", _
Type:=8)
LinIni = rg.Row
LinFim = rg.Rows.Count - LinIni + 1
c = rg.Column
For i = LinFim To LinIni Step -1
Cont = wf.CountIf(rg, Cells(i, c))
If Cont > 1 Then Rows(i).Delete
Next i
End Sub
Anúncios

In Excel We Trust

Marcado com: , , , , ,
Publicado em Nível: Avançado
4 comentários em “0132-Eliminando registros duplicados
  1. Qual a diferença e vantagem/desvantagem dessa macro em relação ao remover duplicadas?

    • A opção de remoção de duplicatas foi introduzida na versão 2007, portanto aqueles que utilizam versões anteriores são obrigados a utilizar códigos VBA para esta tarefa.
      O fato de aprendermos a criar código como estes permite-nos maior controle sobre a atividade: ao utilizarmos a remoção de duplicatas, num intervalo que contenha 10 colunas, serão considerados duplicados os registros que possuirem as 10 colunas iguais. Com os devidos ajustes podemos fazer com que o código VBA elimine, por exemplo, registros em que haja coincidência de 5 campos não contínuos.
      Abraços.

  2. FranChasing disse:

    Gostaria de saber se existe uma macro que REMOVA CÉLULAS DUPLICADAS na LINHA separadamente. Exemplo abaixo:

    ANTES
    01 02 01 03 04 02 05
    02 03 04 03 05 06 04
    03 04 05 06 05 07 08

    DEPOIS
    01 02 03 04 05
    02 03 04 05 06
    03 04 05 06 07 08

    Obs. Tenho esta macro, mas infelizmente ela remove selecionando linha por linha individual.
    O ideal era selecionar todas linhas e a macro executar a remoção das duplicadas automaticamente.

    Muito grato !

  3. saimado disse:

    serviu bem. obrigado

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 2,077,127

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.537 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: