Excelで最後の文字の後に続くすべてのスペースを削除/除去するにはどうすればよいですか？

セルから最後の文字の後にあるすべてのスペース（末尾のスペース）を削除する場合、どのようにしますか？この記事では、その問題を解決するための2つの方法をご紹介します。

VBAコードを使用して最後の文字の後のすべてのスペースを削除する
Kutools for Excelを使用して簡単に最後の文字の後のすべてのスペースを削除する

VBAコードを使用して最後の文字の後のすべてのスペースを削除する

次のVBAコードを使用すると、セル内の最後の文字の後に続くすべてのスペースを削除できます。

1. 最後の文字の後に続くすべてのスペースを削除したいセルを選択し、Alt + F11キーを同時に押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックしてください。その後、次のVBAコードをモジュールウィンドウにコピーして貼り付けます。

VBAコード：最後の文字の後のすべてのスペースを削除する

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. コードを実行するためにF5キーを押すと、Kutools for Excelダイアログボックスが表示されますので、最後の文字の後に続くすべてのスペースを削除したい範囲を選択し、OKボタンをクリックしてください。

これで、選択したセルの最後の文字の後に続くすべてのスペースがすぐに削除されます。

Kutools for Excelを使用して簡単に最後の文字の後のすべてのスペースを削除する

このセクションでは、Kutools for Excelの「スペースの削除」機能をお勧めします。この機能を使用すると、末尾のスペースだけでなく、先頭や余分なスペースなど、必要な種類のスペースをクリックだけで削除できます。

1. 最後の文字の後に続くすべてのスペースを削除したいセルの範囲を選択します。次に、Kutools > テキスト > スペースの削除をクリックします。スクリーンショットをご覧ください：

2. 「スペースの削除」ダイアログボックスで、「後ろのスペース」オプションを選択し、OKボタンをクリックします。スクリーンショットをご覧ください：

これで、選択したセルの最後の文字の後に続くすべてのスペースが一度に削除されます。

注釈: 先頭のスペースやその他のスペースを削除したい場合は、「スペースの削除」ダイアログボックスで対応するオプションを選択し、関数を適用してください。