Vba: como remover espaços iniciais e finais

Você pode usar a seguinte sintaxe básica para remover espaços iniciais e finais de strings usando VBA:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

Este exemplo específico remove espaços iniciais e finais de cada string no intervalo A2:A7 e gera os resultados no intervalo B2:B7 .

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

Exemplo: usando VBA para remover espaços iniciais e finais de strings

Suponha que temos a seguinte lista de strings no Excel:

Observe que muitas strings possuem espaços à esquerda ou à direita.

Suponha que queiramos remover espaços iniciais e finais de cada string.

Podemos criar a seguinte macro para fazer isso:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

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

A coluna B exibe cada uma das strings na coluna A com os espaços iniciais e finais removidos.

Observe que se você deseja remover apenas espaços iniciais ou finais de strings, você pode usar as funções LTrim ou RTrim , respectivamente.

Nota : Você pode encontrar a documentação completa para cada uma das funções do VBA Trim aqui .

Recursos adicionais

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

VBA: Como contar ocorrências de caracteres em uma string
VBA: como verificar se uma string contém outra string
VBA: Como contar células com texto específico