Excelのセル内の単語間の余分なスペースを削除するにはどうすればよいですか？

外部データソースからExcelにデータをインポートすると、多くの場合、余分なスペースが含まれています。不要なスペースを削除したい場合、どのようにすればよいでしょうか？この記事では、セル内の単語間の余分なスペースを削除するいくつかの方法をご紹介します。

ExcelでTRIMを使用して単語間の余分なスペースを削除する

VBAを使用して単語間の余分なスペースを削除する

Kutools for Excelを使用して単語間の余分なスペースを削除する

ExcelでTRIMを使用して単語間の余分なスペースを削除する

Excelでは、TRIMを使用して単語間の余分なスペースを削除できます。以下の手順で行ってください：

ステップ1. 隣接するセルA1の隣にあるセルB1に数式 =TRIM(A1) を入力してください。スクリーンショットをご覧ください：

ステップ2. Enterキーを押してB1を選択し、この数式を適用したいセル範囲にフィルハンドルをドラッグします。これで、範囲内の文字間のすべての余分なスペースが削除されます。スクリーンショットをご覧ください：

ヒント: これらは数式であるため、他の場所にコピーして貼り付ける場合は、値として貼り付ける必要があります。

VBAを使用して単語間の余分なスペースを削除する

VBAを使用しても、単語間の余分なスペースを削除できます。

1. ALTキーを押しながらキーボードでF11キーを押して、 Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」 > 「モジュール」をクリックし、VBAをモジュールにコピーします。

VBA：単語間の余分なスペースを削除する：

Sub TrimExcessSpaces()
'Update 20130815
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Application.WorksheetFunction.Trim(Rng.Value)
Next
End Sub

3. 「実行」ボタンをクリックするか、F5キーを押してVBAを実行します。そして、余分なスペースを削除したい範囲を選択するように求めるプロンプトボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、セル内の余分なスペースが削除されます。スクリーンショットをご覧ください：

Kutools for Excelを使用して単語間の余分なスペースを削除する

Kutools for Excelがインストールされている場合、スペースの削除機能を使用して、単語間の余分なスペースを迅速かつ簡単に削除できます。

Kutools for Excelには300以上の便利なExcelツールが含まれています。30日間無制限で無料試用可能です。今すぐ入手

Kutools > テキスト > スペースの削除をクリックして、 スペースの削除機能を適用してください。

ステップ1. セル内の余分なスペースを削除したい範囲を選択します。

ステップ2. Kutools > テキスト > スペースの削除をクリックすると、ダイアログが表示されます。スクリーンショットをご覧ください：

ステップ3. スペースのタイプオプションで「 すべての余分なスペース」をチェックします。

ステップ4. 「OK」または「適用」をクリックして、セル内のすべての余分なスペースを削除します。

Kutools for Excelのスペースの削除機能を使用すると、先頭のスペース、末尾のスペース、先頭と末尾のスペース、またはすべてのスペースのみを削除することもできます。スペースの削除についてさらに詳しく知るにはここをクリックしてください。

関連記事：

• セルから末尾のスペースを削除する
• セル内の先頭のスペースを削除する
• セル内の文字と数字の間のスペースを削除する
• 先頭と末尾のスペースを削除する
• セル内のインデントを削除する