No caso de você desejar que um código VBA remova todos os espaços à direita apenas na planilha ativa, este artigo certamente o ajudará. Muitas vezes deixamos um espaço no final por engano ou às vezes copiamos dados da web e não percebemos. Neste artigo, aprenderemos como eliminar o espaço deixado em erro.
Pergunta): No Excel, podemos usar a função TRIM com SUBSTITUTE & CHAR, ou seja, = TRIM (SUBSTITUTE (A1, CHAR (160), "")) para remover o espaço à direita no final de qualquer texto.
Gostaria que uma macro me ajudasse a remover todos os espaços desnecessários deixados no final da string.
Para obter o código para remover o espaço no final do texto; precisamos seguir os passos abaixo para lançar o editor VB.
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
Copie o seguinte código no módulo de planilha
Sub trimspace ()
Dim c As Range, rngConstants As Range
Em caso de erro, continuar próximo
Defina rngConstants = ActiveSheet.UsedRange.SpecialCells (2, 2)
No erro GoTo 0
If Not rngConstants Is Nothing Then
'otimizar desempenho
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'trim cells incl char 160
Para cada c In rngConstants
c.Value = Trim $ (Application.Clean (Substituir (c.Value, Chr (160), "")))
Próximo c
'Redefinir as configurações
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Fim se
End Sub
- Isso removerá todos os espaços no final.
Observação: a macro acima será executada apenas na planilha ativa.
Dessa forma, podemos remover os espaços finais no final, usando o código VBA.
Download - Remova o espaço à direita por meio de VBA - xlsm