Guru do Excel e Power BI

Enviado: **01 Mar 2019 às 18:29**

Boa noite, comunidade!

Preciso de vossa ajuda para o seguinte problema:

Suponhamos que tenho uma planilha com 50 linhas e 50 colunas, sendo que cada uma dessas células está preenchida com algum algarismo de 0 a 9, aleatoriamente.

Necessito localizar e de alguma maneira realçar, caso apareçam determinadas sequências de 3 ou mais valores iguais horizontalmente, LADO a LADO (por exemplo: célula b36=1, c36=1, d36=1).

Para meus propósitos, tanto faz de que maneira essas células serão realçadas, pode ser com cor, em negrito, cor de fonte, ou até mesmo aparecendo em alguma célula a parte da tabela, no caso de uma fórmula.

Podem me ajudar? Desde já fico grato!

Segue planilha exemplificativa, coloquei intencionalmente algumas sequências para facilitar.

Enviado: **02 Mar 2019 às 22:24**

Se você quiser experimentar uma solução via macro, utilize o código abaixo.

Código: Selecionar todos

Sub PintaIguais()
 Dim k As Long, v As Long, x As Long
  [A1:AX50].Interior.ColorIndex = xlNone
  For k = 1 To 50
   For v = 1 To 49
    If Cells(k, v) = Cells(k, v + 1) Then
     x = x + 1
    ElseIf x >= 2 Then Cells(k, v - x).Resize(, x + 1).Interior.ColorIndex = 6: x = 0
    Else: x = 0
    End If
   Next v
   If x >= 2 Then Cells(k, v - x).Resize(, x + 1).Interior.ColorIndex = 6
   x = 0
  Next k
End Sub

Enviado: **03 Mar 2019 às 11:34**

Bom dia, amigo, sua solução funcionou perfeitamente, muito obrigado!

Guru do Excel e Power BI

Localizar células adjacentes com valores repetidos

Localizar células adjacentes com valores repetidos

Re: Localizar células adjacentes com valores repetidos

Re: Localizar células adjacentes com valores repetidos