Conteúdo

Entre as ferramentas padrão do Microsoft Excel, existem muitas maneiras diferentes de destacar duplicatas com cores. A maneira mais fácil e rápida é com a formatação condicional. Para isso, basta selecionar um intervalo de células e selecionar na aba Home — Formatação Condicional — Regras de Seleção de Células — Valores Duplicados (Início — Formatação Condicional — Realçar Regras de Células — Valores Duplicados):

Dupla iluminação de duplicatas

No entanto, neste caso, a cor de preenchimento de todas as células será a mesma, ou seja, simplesmente sinaliza que o elemento tem duplicatas em algum outro lugar do intervalo, mas não faz nada para ajudar a encontrá-las. Você pode corrigir a situação com uma pequena macro que preencherá cada par (ou mais) de duplicatas repetidas com sua própria cor:

Dupla iluminação de duplicatas

Muito mais claro, certo? Obviamente, com um grande número de células repetidas, será difícil distinguir entre tons, mas com um número relativamente pequeno de duplicatas, esse método funcionará perfeitamente.

Para usar esta macro, pressione o atalho de teclado Alt + F11 ou botão Visual Basic aba Developer, insira um novo módulo vazio através do menu Inserir - Módulo e copie o código dessa macro lá:

Sub DuplicatesColoring() Dim Dupes() 'Declara um array para armazenar duplicatas ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Remove o preenchimento se i = 3 For Each cell In Seleção If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'se a célula já estiver no array de duplicatas, preencha If Dupes(k, 1) = cell Então celular. Interior. ColorIndex = Dupes(k, 2) Próximo k 'se a célula contiver uma duplicata, mas ainda não na matriz, adicione-a à matriz e preencha-a If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub  

Agora você pode selecionar qualquer intervalo com dados na planilha e executar nossa macro usando o atalho de teclado Alt + F8 ou através do botão Macros (Macros) aba revelador (Desenvolvedor).

  • Realce duplicatas com cores
  • O que são macros, onde inserir código de macro no Visual Basic, como executá-los
  • Como contar o número de valores únicos em um determinado intervalo de células

Deixe um comentário