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.

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.