Este fórum está sendo desativado

[leewroy]

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.

[osvaldomp]

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

[leewroy]

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