Vba: como remover espaços de uma string

Você pode usar a seguinte sintaxe básica para remover espaços de uma string usando VBA:

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(Range(" A " & i), " ", "")
    Next i
    
End Sub

Este exemplo específico remove espaços de cada string no intervalo A2:A8 e exibe os resultados no intervalo B2:B8 .

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

Exemplo: usando VBA para remover espaços de strings

Suponha que temos a seguinte lista de strings no Excel:

Suponha que queiramos remover espaços de cada string.

Podemos criar a seguinte macro para fazer isso:

 SubRemoveSpaces ()

    Dim i As Integer

    For i = 2 To 8
    Range(" B " & i) = Replace(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 espaços removidos.

Nota : Você pode encontrar a documentação completa para o método VBA Replace 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