Como remover / excluir todos os espaços após o último caractere no Excel?
Para excluir todos os espaços após o último caractere (espaços à direita) das células, o que você faria? Este artigo mostrará dois métodos para lidar com isso.
Remova todos os espaços após o último caractere com o código VBA
Remova facilmente todos os espaços após o último caractere com o Kutools para Excel
Remova todos os espaços após o último caractere com o código VBA
O código VBA a seguir pode ajudá-lo a remover todos os espaços após o último caractere das células.
1. Selecione as células de que você precisa para remover todos os espaços após o último caractere e pressione outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie e cole o seguinte código VBA na janela Módulo.
Código VBA: Remova todos os espaços após o último caractere
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 Sub
3. aperte o F5 para executar o código, então um Kutools for Excel caixa de diálogo aparece, selecione o intervalo que você precisa para remover todos os espaços após o último caractere e, em seguida, clique no OK botão.
Agora, todos os espaços após o último caractere das células selecionadas são removidos imediatamente.
Remova facilmente todos os espaços após o último caractere com o Kutools para Excel
Nesta seção, iremos recomendar a você o Remover Espaços utilidade de Kutools for Excel. Com este utilitário, você pode remover não apenas os espaços à direita, mas qualquer tipo de espaço, como espaços iniciais ou em excesso com apenas os cliques necessários.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Selecione o intervalo de células que você precisa para remover todos os espaços após o último caractere. Então clique Kutools > Texto > Remover Espaços. Veja a imagem:
2. No Remover Espaços caixa de diálogo, selecione o Espaços desnecessários à direita do texto opção e, em seguida, clique no OK botão. Veja a imagem:
Então, todos os espaços após o último caractere das células selecionadas são removidos de uma vez.
Note: Se você deseja remover todos os espaços iniciais 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 você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!