Como reverter uma string em vba (com exemplo)

Você pode usar a função StrReverse no VBA para reverter uma string de texto.

Esta é uma maneira comum de usar esta função na prática:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Este exemplo específico inverte cada string no intervalo A2:A11 e exibe os resultados no intervalo B2:B11 .

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como reverter strings usando VBA

Suponha que temos a seguinte coluna de nomes de times de basquete no Excel:

Suponha que queiramos inverter o nome de cada equipe e exibir os resultados na célula correspondente da coluna B.

Podemos criar a seguinte macro para fazer isso:

 SubReverseStrings ()
    
Dim i As Integer

For i = 2 To 11
    Range("B" & i) = StrReverse(Range("A" & i))
Next i

End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A coluna B exibe o nome de cada equipe na coluna A ao contrário.

Por exemplo:

• Mavs se torna svaM
• Spurs se tornam SrupS
• Foguetes se tornam StekcoR
• Kings se torna sgniK

E assim por diante.

Observe que a função StrReverse também funciona com números.

Por exemplo, aplicar a função StrReverse ao número 1234 retornaria 4321 .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: como verificar se uma string contém outra string
VBA: Como contar o número de linhas no intervalo
VBA: Como escrever funções COUNTIF e COUNTIFS