Como encontrar duplicatas no Excel Visual Basic

O Microsoft Excel 2010 pode destacar valores duplicados usando um comando de formatação condicional predefinido, mas se você precisar encontrar duplicatas usando uma macro, poderá usar o Visual Basic for Applications (VBA), baseado no Microsoft Excel. Embora o VBA não tenha uma função que encontre duplicatas, você pode aproveitar a função COUNTIF para descobrir quais células contêm informações duplicadas.

Passo 1

Abra o arquivo do Microsoft Excel 2010 que contém os dados nos quais você deseja verificar se há duplicatas. Quando a planilha for aberta, pressione as teclas “Alt” e “F11” para carregar o console do VBA.

Etapa 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.

Etapa 3

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

Etapa 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 = Range (“A50000”). End (xlUp) .Row

Este código cria duas variáveis, “EndRow” e “x” e, em seguida, define o valor de “EndRow”. Esse código pesquisará 50 mil linhas em uma única coluna, mas se você precisar pesquisar mais linhas, aumente de 50 mil para qualquer número necessário. Este código também foi projetado para pesquisar na coluna “A”, mas você só precisa alterar “A” para qualquer letra da coluna necessária.

Etapa 5

Coloque o cursor na seguinte linha e digite o seguinte código:

Para x = endrow Para 1 Etapa -1 Se Application.WorksheetFunction.CountIf (Intervalo (“A1: A” e x), Intervalo (“A” e x). Texto)> Texto)> 1 Em seguida, Alcance (“A” e x). Interior.Color = RGB (200, 160, 35) Fim se próximo x

Esse é o coração do código que pesquisará cada célula e determinará se uma célula idêntica existe acima dela. Se você encontrar uma duplicata, a parte inferior da célula ficará amarela. Você pode alterar todas as instâ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 que a célula se tornará.

Etapa 6

Clique no “x” no canto superior direito da tela para fechar o console do VBA. Clique na guia “Programador” 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 duplicado na coluna de dados.

Referências

 

Você pode estar interessado:

Deixe um comentário