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.

Remover todos os espaços após o último caractere com código VBA
Remova facilmente todos os espaços após o último caractere com o Kutools para Excel

Remover todos os espaços após o último caractere com código VBA

O seguinte código VBA pode ajudá-lo a remover todos os espaços após o último caractere das células.

1. Selecione as células das quais você precisa remover todos os espaços após o último caractere e, em seguida, pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código VBA na janela Módulo.

Código VBA: Remover 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. Pressione a tecla F5 para executar o código; em seguida, uma caixa de diálogo do Kutools para Excel aparecerá. Por favor, selecione o intervalo do qual você precisa remover todos os espaços após o último caractere e, em seguida, clique no botão OK.

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, recomendaremos a você a ferramenta Remover Espaços do Kutools para Excel. Com essa ferramenta, você pode remover não apenas os espaços à direita, mas qualquer tipo de espaço, como espaços à frente ou excessivos, com apenas alguns cliques conforme necessário.

1. Selecione o intervalo de células do qual você precisa remover todos os espaços após o último caractere. Em seguida, clique em Kutools > Texto > Remover Espaços. Veja a captura de tela:

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 captura de tela:

Então, todos os espaços após o último caractere das células selecionadas são removidos de uma vez.

Observação: Se você deseja 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.