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

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

注：

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

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

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

このヒント（3037）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkRemovingSpaces。