No VBA, você pode percorrer um intervalo de células, aplicando ações a cada célula no intervalo.
Se você quiser testar uma condição para cada célula em um intervalo usando o VBA, a melhor maneira é percorrer o intervalo, testando cada célula. Aqui estão dois exemplos de código para demonstrar como fazer um loop em um intervalo. Você pode substituir o valor do intervalo por qualquer intervalo que precise percorrer.
Loop por intervalo de células
Este exemplo percorrerá um intervalo de células. A instrução if testa a condição se a célula contém o texto “FindMe” e mostra uma caixa de mensagem com a localização do texto, se encontrado.
| 1234567891011 | Public Sub LoopCells ()Dim c As RangePara cada c no intervalo ("A1: A10")Se c.Value = "FindMe" EntãoMsgBox "FindMe encontrado em" & c.AddressFim sePróximo cEnd Sub |
Loop por toda a coluna
Este exemplo percorre todo o intervalo da coluna A.
| 1234567891011 | Public Sub LoopColumn ()Dim c As RangePara cada c no intervalo ("A: A")Se c.Value = "FindMe" EntãoMsgBox "FindMe encontrado em" & c.AddressFim sePróximo cEnd Sub |
Loop por toda a linha
O próximo exemplo percorre a linha 1 considerando toda a linha um intervalo.
| 1234567891011 | Public Sub LoopRow ()Dim c As RangePara cada c no intervalo ("1: 1")Se c.Value = "FindMe" EntãoMsgBox "FindMe encontrado em" & c.AddressFim sePróximo cEnd Sub |
