Este fórum está sendo desativado

[Pegorini]

Bom dia.

Tenho o seguinte problema:

Tenho vários números em uma determinada coluna e eventualmente ocorre de alguns números estarem repetidos.

Então se algum número estiver repetido gostaria que seja identificado esses números.

A ideia é que os números sejam identificados com preenchimento de cor nas células conforme modelo anexo, mas é possível outra forma caso essa não seja possível.

Sendo assim gostaria da ajuda da comunidade neste problema.

[osvaldomp]

Olá, @Pegorini .

É possível uma solução via macro. Retorne se houver interesse.

[Pegorini]

Olá Osvaldo.

Gostaria muito dessa solução. Poderias me ajudar?

[osvaldomp]

Olá, @Pegorini .

Veja se o código abaixo lhe atende.

Instale uma cópia em um módulo comum (Alt+F11 | Inserir Módulo).

Código: Selecionar todos

Sub PintaDuplicados()
 Dim x As Long, s As Range, frst As String, c As Long
  [B:B].Interior.ColorIndex = xlNone
  For x = 3 To Cells(Rows.Count, 2).End(3).Row
   If Application.CountIf([B:B], Cells(x, 2)) > 1 Then
    If Cells(x, 2).Interior.ColorIndex = xlNone Then
     Set s = [B:B].Find(Cells(x, 2), Lookat:=xlWhole)
     If Not s Is Nothing Then
      frst = s.Address
      Do
       s.Interior.ColorIndex = c + 33
       Set s = [B:B].FindNext(s)
      Loop While Not s Is Nothing And s.Address <> frst
     End If
    End If
    c = c + 1
   End If
  Next x
End Sub

[Pegorini]

Muito obrigado Osvaldo.