VBA – Fazer um Loop Numa Cadeia de Caracteres

Este tutorial demonstrará como fazer loop em uma cadeia de caracteres usando o VBA.

Você pode executar a lógica ou retornar caracteres individuais de uma cadeia de caracteres no VBA fazendo um loop pela cadeia.

Fazer Loop em Cada Caractere de uma Cadeia de Caracteres

A seguir, um exemplo de loop em uma cadeia de caracteres usando um loop For…Next e retornando cada caractere em uma caixa de mensagem.

Sub LoopAtravesDoString()

Dim Contador As Integer
Dim MeuTexto As String

MeuTexto = "AutomateExcel" 'definir a cadeia de caracteres

For Contador = 1 To Len(MeuTexto)
 'fazer algo para cada caractere na cadeia de caracteres
 'aqui vamos colocar cada caractere em uma msgbox
 MsgBox Mid(MeuTexto, Contador, 1)
Next

End Sub

A função Len conta o número total de caracteres na cadeia de caracteres. Portanto, a expressão

For Counter = 1 to Len(MeuTexto)

percorrerá cada letra da cadeia de caracteres.

Percorrer Cada Caractere em uma Cadeia de Caracteres – Alternativa

Ler Cada Caractere em uma Cadeia de Caracteres
Este exemplo lê cada caractere de uma cadeia de caracteres da esquerda para a direita e retorna o resultado em uma caixa de mensagem. Ele faz uso da função Mid.

Sub LoopAtravesDoString()

Dim VerAqui As String
Dim Contador As Integer

'Use seu próprio texto aqui
VerAqui = "AutomateExcel.com"

For Contador = 1 To Len(VerAqui)
 MsgBox Mid(VerAqui, Contador, 1)
Next

End Sub

Ler todas as palavras em uma cadeia de caracteres

Este exemplo lê cada palavra em uma cadeia de caracteres da esquerda para a direita e retorna o resultado em uma caixa de mensagem. Ele faz uso da função Split.

Sub LoopAtravesDoString2()

Dim VerAqui As String
Dim Contador As Integer
Dim GuardarSplit As Variant

'Use seu próprio texto aqui

VerAqui = "Eu adoro AutomateExcel.com"

GuardarSplit = Split(VerAqui, " ")

For Contador = 0 To UBound(GuardarSplit)
 MsgBox GuardarSplit(Contador)
Next

End Sub

<<Retorno aos exemplos de VBA