Às vezes, há valores duplicados nas diversas colunas que gostaríamos de iluminar. Aqui está uma macro que faz exatamente isso:
Sub HighlightDuplicates()
'Declare suas variáveis
Dim MyRange As Range
Dim MyCell As Range
'Defina o intervalo alvo.
Set MyRange = Selection
'Começa a percorrer o intervalo.
For Each MyCell In MyRange
'Certifique-se de que a célula tenha formatação de texto.
If WorksheetFunction.CountIf(MyRange, MyCell.Value) > 1 Then
MyCell.Interior.ColorIndex = 36
End If
'Obtém a próxima célula no intervalo
Next MyCell
End Sub
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário