none
Comparar celular sequenciais RRS feed

  • Pergunta

  • A situação é a seguinte, tenho uma planilha com valores na coluna A e na coluna B.

    Caso os valores da coluna A sejam iguais devo verificar se os valores da coluna B são sequenciais, caso sejam devo marcar a primeira célula dos valores A de azul, caso contrário não faço nada.

    j = 2
        For i = 1 To numLin
            If Worksheets("Sheet3").Cells(i, 2) <> Worksheets("Sheet3").Cells(j, 2) Then
                j = j + 1
            Else
                MyArray(count) = Worksheets("Sheet3").Cells(i, 5).Value
                count = count + 1
                j = j + 1
            End If
        Next
    Travei no código acima, não consigo encontrar uma forma de solucionar o problema.


    Caso alguém possa ajudar, agradeço.

    sexta-feira, 5 de fevereiro de 2016 20:59