スペースを含むデータがたくさんあり、それらのスペースを削除する必要がありますか？別のプログラムからインポートしたか、スペースを誤って入力した可能性があります。たとえば、ワークシートに多数のポリシー番号があり、ポリシー番号にスペースがあるとします。これらのスペースを削除する場合は、2つの方法を使用できます。

最初のアプローチは、SUBSTITUTE関数を使用することです。ポリシー番号がセルA5にあるとしましょう。セルB5では、次の数式を使用できます。

=SUBSTITUTE(A5," ","")

その結果、セルB5には、すべてのスペースが削除されたポリシー番号が含まれます。

2番目のアプローチは、スペースを含むセルが多数あり、それらを1つのステップで削除する場合にうまく機能します。次のマクロを作成します：

Sub NoSpaces()

Dim c As Range

For Each c In Selection.Cells         c = Replace(c, " ", "")

Next End Sub

変更するセルを選択して、マクロを実行します。選択した範囲内の各セルを調べ、その範囲内のスペースをすべて削除します。その後、結果は同じセルに戻されます。

最後に、TRIM関数の使用について疑問に思われるかもしれません。このワークシート関数は余分なスペースを削除するのに役立ちますが、このヒントで説明されているように、スペースを完全に削除するために使用することはできません。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（10741）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkRemovingSpaces。