Jak odstranit / odstranit všechny mezery za posledním znakem v aplikaci Excel?

Co byste udělali pro odstranění všech mezer za posledním znakem (koncové mezery) z buněk? Tento článek vám ukáže dvě metody, jak se s tím vypořádat.

Odstraňte všechny mezery za posledním znakem pomocí kódu VBA
Pomocí Kutools pro Excel snadno odstraníte všechny mezery za posledním znakem

Odstraňte všechny mezery za posledním znakem pomocí kódu VBA

Následující kód VBA vám pomůže odstranit všechny mezery za posledním znakem z buněk.

1. Vyberte buňky, které potřebujete k odstranění všech mezer za posledním znakem, a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte a vložte následující kód VBA do okna modulu.

Kód VBA: Odstraňte všechny mezery za posledním znakem

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. zmáčkni F5 klíč ke spuštění kódu, pak a Kutools pro Excel Zobrazí se dialogové okno, vyberte rozsah, který potřebujete k odstranění všech mezer za posledním znakem, a poté klikněte na OK .

Nyní jsou všechny mezery za posledním znakem vybraných buněk okamžitě odstraněny.

Pomocí Kutools pro Excel snadno odstraníte všechny mezery za posledním znakem

V této části vám doporučíme Odebrat mezery užitečnost Kutools pro Excel. Pomocí tohoto nástroje můžete odstranit nejen koncové mezery, ale jakýkoli druh mezer, jako jsou přední nebo nadbytečné mezery, pouze kliknutím, jak potřebujete.

1. Vyberte rozsah buněk, které potřebujete k odstranění všech mezer za posledním znakem. Poté klikněte Kutools > Text > Odebrat mezery. Viz snímek obrazovky:

2. V Odebrat mezery V dialogovém okně vyberte Koncové mezery možnost a poté klikněte na OK knoflík. Viz screenshot:

Poté jsou všechny mezery za posledním znakem vybraných buněk odstraněny najednou.

Pozor: Pokud chcete odstranit všechny úvodní mezery nebo jiné mezery podle potřeby, vyberte odpovídající možnost v dialogovém okně Odebrat mezery a použijte funkci.