Beleza galera! Estou com uma dúvida na montagem de um código, se puderem me ajudar ficarem agradecido. A dúvida segue da seguinte forma:
Tenho um matriz de (LXC ou I,J) de 5x1.Preciso fazer com que o loop ande por cada célula verificando ou testando se nas células anteriores, já ocorreu um valor igual ao valor (Podendo ser um valor numérico, por exemplo) da célula que está sendo testada, caso tenha ocorrido, então essa célula assume um “valor” vazio, senão assumirá um valor de uma outra célula qualquer, da mesma planilha, que tem como valor uma String.
Ex: matriz 5x1 de 5 linhas e 1 coluna, pendo ser A1XA1= 1 ; A2XA1=6; A3XA1=8 , A4XA1=6; A5XA1=1, esses são valores inicialmente preenchidos. Portanto as células que tiveram valores que ocorreram anteriormente ou nas células anteriores, recebe " " vazio como é o caso da célula A4XA1 e A5XA1, as outras receberão o valor string de outra célula qualquer, como por exemplo a célula D5 preenchida como “deu certo”. Lógicamente a 1º célula não será testada, pois antes dela não existe células, pois ela é a primeira, a verificação cameça da 2º célula A2XA1, que verifica a primeira, a 3º célula verifica a 1º e a 2º a 4º célula verifica 1º,2º,3º e assim por diante, sempre testando se alguma célula anterior tem o mesmo valor da célula em questão.
Comecei escrever o Código mas não tive êxito, segue abaixo:
Public Sub teste01()
Dim matrizteste(3, 3) As Integer
Dim i As Integer
Dim j As Integer
Dim Planilha As Worksheet
Set Planilha = Worksheets("plan1")
Range("d5").Value = 0
For i = 1 To 3
For j = 1 To 3
" desenvolvimento do código"
End If
Next j
Next i
End Sub
Início