VBA For Loop – Loop em um Intervalo de Células

No VBA, você pode percorrer um intervalo de células, aplicando ações a cada célula do intervalo.

Se quiser testar uma condição para cada célula em um intervalo usando o VBA, a melhor maneira é fazer um loop pelo intervalo, testando cada célula. Aqui estão dois exemplos de código que demonstram como fazer loop em um intervalo. Você pode substituir o valor do intervalo por qualquer intervalo que precise percorrer.

Loop em um Intervalo de Células

Este exemplo fará um loop em um intervalo de células. A instrução if testa a condição se a célula contém o texto “Encontre-me” e mostra uma caixa de mensagem com a localização do texto, se encontrado.

Public Sub LoopCelulas()

Dim c As Range

For Each c In Range("A1:A10")
    If c.Value = "Encontre-me" Then
      MsgBox "Encontre-me localizado em " & c.Address
    End If
Next c

End Sub

Loop em Toda a Coluna

Este exemplo faz um loop por todo o intervalo da coluna A.

Public Sub LoopColuna()

Dim c As Range

For Each c In Range("A:A")
    If c.Value = "Encontre-me" Then
      MsgBox "Encontre-me localizado em " & c.Address
    End If
Next c

End Sub

Loop em Toda a Linha

O próximo exemplo percorre a linha 1 considerando toda a linha como um intervalo.

Public Sub LoopLinha()

Dim c As Range

For Each c In Range("1:1")
    If c.Value = "Encontre-me" Then
      MsgBox "Encontre-me localizado em " & c.Address
    End If
Next c

End Sub

<<Voltar para exemplos de VBA