Verifique se há duplicatas na coluna

Anonim

Neste artigo, criamos uma macro para destacar valores duplicados.

Os dados brutos consistem em nomes de carros diferentes. Queremos destacar entradas duplicadas.

Pressione o botão “Destacar duplicado” para executar a macro e destacar entradas duplicadas.

Explicação lógica

Criamos a macro “Check_Dups” para destacar entradas duplicadas. Eles serão destacados em vermelho. Na macro, verificamos a contagem de uma entrada específica. Se for maior que 1, os dados serão destacados.

Siga abaixo para o código

 Option Explicit Sub Check_Dups () 'Declarando variáveis ​​Dim Cell As Variant Dim Source As Range' Inicializando o intervalo da fonte Set Source = Range ("A9: A24") 'Removendo qualquer formatação anterior da fonte Source.Interior.Color = RGB (221, 235, 247) 'Looping através de cada célula no intervalo de origem para cada célula na origem' Verificar se o valor na célula já existe no intervalo de origem If Application.WorksheetFunction.CountIf (Source, Cell)> 1 Then 'Destacando valores duplicados em vermelho cor Cell.Interior.Color = RGB (255, 0, 0) End If Next End Sub 

Se você gostou deste blog, compartilhe com seus amigos no Facebook. Além disso, você pode nos seguir no Twitter e no Facebook.

Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar nosso trabalho e torná-lo melhor para você. Escreva para nós no site de e-mail