Como remover todos os espaços após o último carácter no Excel?
Para eliminar todos os espaços após o último carácter (espaços à direita) das células, o que faria? Este artigo apresenta-lhe dois métodos eficazes para resolver este problema.
Remover todos os espaços após o último carácter com código VBA
Eliminar facilmente todos os espaços após o último carácter com Kutools para Excel
Remover todos os espaços após o último carácter com código VBA
O seguinte código VBA ajuda-o a remover todos os espaços após o último carácter nas células.
1. Selecione as células em que pretende remover todos os espaços após o último carácter e, em seguida, prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código VBA na janela do Módulo.
Código VBA: Remover todos os espaços após o último carácter
Sub NoSpaces()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Value = RTrim(xCell.Value)
Next
Application.ScreenUpdating = True
End Sub3. Prima a tecla F5 para executar o código. Em seguida, surge uma caixa de diálogo Kutools para Excel, onde deverá selecionar o intervalo em que pretende remover todos os espaços após o último carácter e, depois, clicar no botão OK.
Agora, todos os espaços após o último carácter das células selecionadas são removidos instantaneamente.
Eliminar facilmente todos os espaços após o último carácter com Kutools para Excel
Nesta secção, recomendamos-lhe o utilitário Remover Espaços do Kutools para Excel. Com este utilitário, pode eliminar não só os espaços finais, mas também qualquer tipo de espaços — como os iniciais ou excessivos — com apenas alguns cliques, conforme necessário.
1. Selecione o intervalo de células em que pretende remover todos os espaços após o último carácter e, em seguida, clique em Kutools > Texto > Remover Espaços. Veja a imagem:
2. Na caixa de diálogo Remover Espaços, selecione a opção Espaços Atrás e, em seguida, clique no botão OK. Veja a imagem:
Em seguida, todos os espaços após o último carácter das células selecionadas são removidos de uma só vez.
Nota: Se pretender remover todos os espaços à frente ou outros espaços conforme necessário, selecione a opção correspondente na caixa de diálogo Remover Espaços e aplique a função.
Se pretender experimentar gratuitamente esta utilidade durante 30 dias, clique para a transferir e, em seguida, siga os passos indicados acima.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos