Excelのセルから複数のスペースを単一のスペースに置き換えるにはどうすればよいですか？

テキスト文字列のリストがあり、その中に複数のスペースが含まれているとします。この場合、次のスクリーンショットに示すように、これらのスペースを単一のスペースに置き換えて、単語を分離する必要があります。一つ一つ削除するのではなく、一度に複数のスペースを単一のスペースに置き換えるにはどうすればよいでしょうか？

数式を使用して複数のスペースを単一のスペースに置き換える

Kutools for Excelを使用して複数のスペースを単一のスペースに置き換える

VBAコードを使用して複数のスペースを単一のスペースに置き換える

数式を使用して複数のスペースを単一のスペースに置き換える

Excelでは、通常の「検索と置換」機能ではこの問題を解決するのが難しい場合があります。そのため、簡単な数式を使って対処することができます。以下の手順で行ってください：

1. 空白のセルに次の数式を入力してください：=TRIM(SUBSTITUTE(A2,CHAR(32)," "))。スクリーンショットをご覧ください：

2. Enterキーを押して結果を得て、セルB2を選択し、この数式を適用したい範囲のセルまでフィルハンドルをドラッグすると、すべての余分なスペースがテキスト文字列から削除され、テキスト間には単一のスペースだけが残ります。スクリーンショットをご覧ください：

Kutools for Excelを使用して複数のスペースを単一のスペースに置き換える

先頭のスペース、末尾のスペース、またはテキスト内のすべてのスペースなど、他のタイプのスペースを削除する必要がある場合は、強力なツールであるKutools for Excelをお勧めします。その「スペースの削除」機能を使えば、先頭のスペース、末尾のスペース、すべてのスペースなどを自由に削除できます。

Kutools for Excelをインストール後、以下の手順を行ってください：

1. 余分なスペースを削除したいデータ範囲を選択します。

2. 「Kutools」＞「テキスト」＞「スペースの削除」をクリックします。スクリーンショットをご覧ください：

3. 「スペースの削除」ダイアログボックスで、「スペースのタイプ」セクションから「すべての余分なスペース」を選択すると、プレビューウィンドウで結果を確認できます。スクリーンショットをご覧ください：

4. 「OK」または「適用」ボタンをクリックすると、すべての余分なスペースがセルから削除され、テキスト間には単一のスペースだけが残ります。

今すぐKutools for Excelをダウンロードして無料トライアル！

VBAコードを使用して複数のスペースを単一のスペースに置き換える

VBAコードに興味がある場合、複数のスペースを単一のスペースに置き換えるコードを作成できますので、以下の手順を行ってください：

1. ALT + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：複数のスペースを単一のスペースに置き換える

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

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

4. 「OK」ボタンをクリックすると、すべての余分なスペースがテキスト間の単一のスペースに置き換えられます。