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