Como encontrar duplicatas no Excel Visual Basic

Encontre duplicatas no Microsoft Excel 2010.

Passo 1

Abra o arquivo do Microsoft Excel 2010 que contém os dados que você deseja verificar para duplicatas. Quando a planilha abrir, pressione as teclas "Alt" e "F11" para carregar o console VBA.

Passo 2

Clique na planilha no lado esquerdo da tela do VBA. Mova o mouse sobre "Inserir" e escolha a opção "Módulo". Clique duas vezes no novo módulo que aparece algumas linhas abaixo da planilha.

Passo 3

Coloque o cursor no espaço em branco no lado direito da tela. Escreva "Sub Dupecheck ()" e pressione Enter. O VBA irá inserir automaticamente o comando "End Sub" para você.

Passo 4

Coloque o cursor na linha entre os comandos "Sub" e "End Sub". Digite as seguintes linhas de código:

Dim x As Long Dim endrow As Long endrow = Intervalo ("A50000"). End (xlUp) .Row

Esse código cria duas variáveis, "EndRow" e "x" e, em seguida, define o valor de "EndRow". Este código irá pesquisar através de 50 mil linhas em uma única coluna, mas se você precisar pesquisar mais linhas, aumentará de 50 mil para qualquer número que você precisar. Esse código também é projetado para procurar na coluna "A", mas você só precisa alterar "A" para qualquer letra na coluna de que precisa.

Passo 5

Coloque o cursor na linha a seguir e escreva o seguinte código:

Para x = endrow To 1 Step -1 Se Application.WorksheetFunction.CountIf (Range ("A1: A" & x), Range ("A" & x) .Text)> 1 Então Range ("A" & x). Interior.Color = RGB (200, 160, 35) End If Próximo x

Esse é o coração do código que pesquisará cada célula e determinará se existe uma célula idêntica acima dela. Se encontrar uma duplicata, ela transformará a parte inferior da célula em uma cor amarela. Você pode alterar todas as ocorrências de "A" se estiver trabalhando em uma coluna diferente. Você também pode alterar os três números após "Interior.color" para alterar a cor na qual a célula será convertida.

Passo 6

Clique no "x" no canto superior direito da tela para fechar o console VBA. Clique na guia "Desenvolvedor" na parte superior da tela. Encontre o botão "Macro" no lado esquerdo da fita e clique nele. Selecione "Dupecheck" na lista de macros disponíveis e clique em "Executar". O Excel agora destacará cada duplicata na coluna de dados.