Hur tar jag bort / tar bort alla mellanslag efter det sista tecknet i Excel?

För att radera alla mellanslag efter det sista tecknet (efterföljande mellanslag) från celler, vad skulle du göra? Den här artikeln visar två metoder för att hantera det.

Ta bort alla mellanslag efter det sista tecknet med VBA-kod
Ta enkelt bort alla mellanslag efter det sista tecknet med Kutools för Excel

Ta bort alla mellanslag efter det sista tecknet med VBA-kod

Följande VBA-kod kan hjälpa dig att ta bort alla mellanslag efter det sista tecknet från celler.

1. Markera cellerna du behöver för att ta bort alla mellanslag efter det sista tecknet och tryck sedan på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera och klistra sedan in följande VBA-kod i modulfönstret.

VBA-kod: Ta bort alla mellanslag efter det sista tecknet

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. tryck på F5 nyckel för att köra koden, sedan a Kutools för Excel dialogrutan dyker upp, välj det intervall du behöver för att ta bort alla mellanslag efter det sista tecknet och klicka sedan på OK knapp.

Nu tas alla mellanslag efter det sista tecknet i valda celler bort direkt.

Ta enkelt bort alla mellanslag efter det sista tecknet med Kutools för Excel

I det här avsnittet rekommenderar vi dig Ta bort utrymmen nytta av Kutools för Excel. Med det här verktyget kan du ta bort inte bara de efterföljande utrymmena, utan alla typer av utrymmen som ledande eller överskott av utrymmen med bara klick som du behöver.

1. Välj det cellområde som du behöver för att ta bort alla mellanslag efter det sista tecknet. Klicka sedan Kutools > text > Ta bort utrymmen. Se skärmdump:

2. I Ta bort utrymmen Välj dialogrutan Efterföljande utrymmen och klicka sedan på OK knapp. Se skärmdump:

Sedan tas alla mellanslag efter det sista tecknet i valda celler bort på en gång.

Anmärkningar: Om du vill ta bort alla ledande utrymmen eller andra utrymmen som du behöver, välj motsvarande alternativ i dialogrutan Ta bort utrymmen och använd funktionen.