VBAで自動化 VBA一覧 データ整形・分割 空白：削除

【VBA】Replace関数でスペースを削除する方法｜半角・全角を一括置換する実務テクニック

Excel VBAでデータを扱っていると、「セル内の不要なスペースを削除したい」という場面は非常に多くあります。

例えば、CSVファイルを取り込んだデータや他システムから出力された一覧では、文字列の前後や途中に不要な半角・全角スペースが含まれていることがあります。このままでは検索や比較、重複チェックが正しく行えず、思わぬ不具合につながることも少なくありません。

そのような場面で活躍するのがReplace関数です。

Replace関数を使えば、半角スペースや全角スペースを簡単に削除できます。また、文字列全体を対象に一括置換できるため、データ整形処理でも頻繁に利用されています。

この記事では、Replace関数でスペースを削除する基本的な使い方から、実務で保守しやすいコードの書き方まで分かりやすく解説します。

✅ Replace関数でスペースを削除する基本

Replace関数は、指定した文字列を別の文字列へ置き換える関数です。削除したい場合は、置換後の文字列を空文字（""）にすることで実現できます。

スペース削除は単純な処理に見えますが、実務では「半角だけ削除したい」「全角もまとめて削除したい」「元データを壊さず処理したい」など、用途によって実装方法が変わります。

まずは基本となる書き方を理解しておきましょう。

・半角スペースを削除する方法

最も基本的な使い方は、半角スペースを空文字へ置き換える方法です。

・まずはシンプルな書き方を理解しよう

次のコードは、文字列内に含まれる半角スペースをすべて削除します。

Sub RemoveHalfWidthSpaces()

    Dim originalText As String
    Dim cleanedText As String

    ' 元の文字列
    originalText = "Excel VBA Sample"

    ' 半角スペースを削除
    cleanedText = Replace(originalText, " ", "")

    MsgBox cleanedText

End Sub

・なぜこの書き方にしているのか

Replace関数は元の文字列を書き換えるのではなく、置換後の新しい文字列を返す関数です。

そのため、結果を別の変数へ代入する構成にしておくと、

  • 元データを保持できる
  • 処理前後を比較しやすい
  • デバッグしやすい
  • 後から処理を追加しやすい

というメリットがあります。

一方で、元の変数へ直接代入することもできますが、データの変化を追いにくくなるため、実務では処理結果を別変数で管理することをおすすめします。

・実務ではどんな場面で使われる？

半角スペース削除は、次のようなデータ整形でよく利用されます。

  • 商品コードの空白除去
  • 社員番号の整形
  • 郵便番号や電話番号の整形
  • CSV取込データの前処理
  • データ比較前のクリーニング

特に他システムから取得したデータでは、見た目では分からないスペースが混入していることがあるため、比較処理の前に削除しておくとトラブルを防ぎやすくなります。

✅ 全角スペースを削除する方法

日本語データでは、半角スペースだけでなく全角スペースが混在していることも珍しくありません。

住所や氏名などを扱うデータでは、入力者によって半角と全角が混在しているケースが多く、そのままでは一致判定や検索が正しく動作しない原因になります。

そのため、日本語データを扱う場合は全角スペースへの対応も重要です。

・全角スペースを削除するコード

全角スペースは、検索文字列へ全角スペースを指定するだけで削除できます。

・日本語データでも保守しやすい実装例

Sub RemoveFullWidthSpaces()

    Dim originalText As String
    Dim cleanedText As String

    ' 元の文字列
    originalText = "東京　営業所"

    ' 全角スペースを削除
    cleanedText = Replace(originalText, "　", "")

    MsgBox cleanedText

End Sub

・半角スペースとの違いを理解しておこう

半角スペースと全角スペースは見た目が似ていますが、別の文字として扱われます。

そのため、

Replace(text, " ", "")

では全角スペースは削除されません。

逆に、

Replace(text, "　", "")

では半角スペースは残ります。

日本語データでは、この違いを理解せずに処理を作ると、「スペースを削除したはずなのに一致しない」という原因になります。

実務では、どちらのスペースが含まれている可能性があるのかを事前に把握したうえで処理を設計することが大切です。

✅ 半角・全角スペースをまとめて削除する方法

実際の業務データでは、半角スペースだけ、あるいは全角スペースだけとは限りません。

コピー＆ペーストやCSV取込、複数人による入力などが重なると、同じ列の中に半角と全角が混在していることもよくあります。

そのため、実務では片方だけを削除するよりも、両方をまとめて削除できるコードの方が再利用しやすくなります。

・実務では段階的に置換する構成がおすすめ

半角・全角スペースをまとめて削除する場合は、それぞれを順番に置換します。

Sub RemoveAllSpaces()

    Dim originalText As String
    Dim cleanedText As String

    ' 元の文字列
    originalText = "Excel　 VBA Sample"

    ' 半角スペースを削除
    cleanedText = Replace(originalText, " ", "")

    ' 全角スペースを削除
    cleanedText = Replace(cleanedText, "　", "")

    MsgBox cleanedText

End Sub

・この構成が実務で扱いやすい理由

1回で複雑な処理を書こうとするよりも、半角スペースの削除と全角スペースの削除を分けて記述した方が、処理内容が明確になります。

例えば、後から「全角スペースだけ残したい」「半角だけ削除したい」と仕様が変更された場合でも、対象の処理だけを修正すれば済みます。

また、コメントを加えやすく、他の担当者がコードを見たときにも意図を理解しやすいため、保守性の高いコードになります。

今回はReplace関数を使ったスペース削除に焦点を当てて解説しましたが、複数セルへの適用方法やTrim関数との使い分けまで含めて詳しく知りたい方は、【VBA】スペースを一括削除する方法｜Replace関数・Trim関数の使い分けと実務活用も参考にしてください。

✅ セル範囲のスペースをまとめて削除する方法

ここまでは、1つの文字列を対象にReplace関数を使用する方法を紹介しました。

しかし、実務では1件だけ処理するケースは少なく、名簿や商品一覧など複数のセルをまとめて整形したいことがほとんどです。

そのような場合は、セルを1つずつ処理しながらReplace関数を適用する構成がおすすめです。

セルの値を直接書き換えるコードも作成できますが、対象範囲を変数で管理し、処理内容が分かるようにコメントを付けておくことで、後から別のシートや列へ流用しやすくなります。

・複数セルへ一括でスペースを削除するコード

次のコードは、A2セルから最終行までのデータを対象に、半角・全角スペースをまとめて削除します。

今回のようにセルを1件ずつ処理するコードでは、For文と条件分岐を組み合わせる場面も多くあります。繰り返し処理や条件抽出の実践例については、【VBA】条件に合うデータを抽出する方法｜For文・IF文で実務データを自在に扱うも参考にしてください。

・再利用しやすい実務向けサンプル

Sub RemoveSpacesInColumn()

    Dim targetWorksheet As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim cellValue As String

    ' 対象シート
    Set targetWorksheet = ActiveSheet

    ' A列の最終行を取得
    lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, "A").End(xlUp).Row

    ' A2セルから最終行まで処理
    For currentRow = 2 To lastRow

        cellValue = targetWorksheet.Cells(currentRow, "A").Value

        ' 半角スペースを削除
        cellValue = Replace(cellValue, " ", "")

        ' 全角スペースを削除
        cellValue = Replace(cellValue, "　", "")

        targetWorksheet.Cells(currentRow, "A").Value = cellValue

    Next currentRow

End Sub

・なぜこのような構成にしているのか

セルへ直接Replace関数を書き込むこともできますが、一度変数へ値を取得してから処理することで、後から条件分岐や追加処理を組み込みやすくなります。

例えば、

  • 空白セルは処理しない
  • 数値は対象外にする
  • 削除前後でログを残す

といった仕様変更にも対応しやすくなります。

また、「対象シート」「最終行」「現在処理中の行」をそれぞれ意味の分かる変数名で管理することで、コード全体の役割が把握しやすくなり、保守性も向上します。

サンプルコードでは、処理内容が分かりやすい変数名を使用しています。保守しやすいVBAを書くための命名ルールについては、【VBA】変数名の付け方｜キャメルケース・スネークケースなど命名規則を徹底解説で詳しく解説しています。

 

✅ Replace関数とTrim関数はどちらを使うべき？

スペースを削除する方法として、Replace関数だけでなくTrim関数もよく紹介されます。

しかし、この2つは目的が異なるため、違いを理解せずに使うと思った結果にならないことがあります。

実務では「すべてのスペースを削除したい」のか、「不要なスペースだけ整理したい」のかによって使い分けることが重要です。

・Replace関数が向いているケース

Replace関数は、指定した文字をすべて削除したい場合に適しています。

例えば、

  • 商品コード
  • 社員番号
  • 郵便番号
  • 電話番号
  • 管理番号

などでは、途中のスペースも不要なことが多いため、Replace関数が適しています。

・Trim関数が向いているケース

Trim関数は、文字列の前後や連続した半角スペースを整理するための関数です。

そのため、

Excel    VBA

は、

Excel VBA

になります。

一方、Replace関数なら

ExcelVBA

となります。

つまり、

  • スペースそのものを不要にしたい → Replace関数
  • 文章として読みやすく整理したい → Trim関数

という使い分けになります。

BAだけでなく、Excel関数でスペースを整理したい場合はTRIM関数も便利です。ワークシート上で文字列を整える方法については、【Excel】TRIM関数とLEN関数で文字列を整える方法で詳しく解説しています。

✅ Replace関数でスペースを削除するときの注意点

Replace関数は非常に便利ですが、すべてのデータに対して無条件でスペースを削除すれば良いわけではありません。

業務データでは、スペースが意味を持っている場合もあるため、削除対象をよく確認してから実行することが大切です。

・氏名や住所ではスペースが必要な場合がある

例えば、

山田 太郎

をReplace関数で処理すると、

山田太郎

になります。

氏名や住所では、スペースを残したいケースもあるため注意が必要です。

・処理前にバックアップを残す

セルの値を書き換える処理では、元のデータへ戻せなくなる可能性があります。

実務では、

  • シートをコピーする
  • 別列へ処理結果を出力する
  • ファイルを保存してから実行する

など、安全にやり直せる状態を作ってから実行すると安心です。

・用途に応じて削除対象を決める

すべての列へ同じ処理を実行するのではなく、

  • 商品コード
  • 管理番号
  • 郵便番号

などはReplace関数でスペースを削除し、

  • 氏名
  • 住所
  • 備考

などはTrim関数や目視確認を組み合わせる方が、安全なケースもあります。

データの意味を考えて処理方法を選ぶことが、実務では非常に重要です。

Replace関数はスペースだけでなく、特定の記号や文字をまとめて削除することもできます。文字列を一括で整形したい場合は、【VBA】複数の特定文字を削除する方法｜Replace関数で一括置換する実務テクニックも参考になります。

 

✅ まとめ

この記事では、VBAのReplace関数を使って半角・全角スペースを削除する方法について解説しました。

  • Replace関数は指定した文字を空文字へ置き換えることでスペースを削除できる
  • 半角スペースと全角スペースは別の文字なので、それぞれ置換する必要がある
  • 実務では半角・全角を順番に削除する構成が保守しやすい
  • セル範囲へ適用する場合は、変数を活用して再利用しやすいコードにする
  • Replace関数はすべてのスペースを削除したい場合に適している
  • Trim関数は文字列を読みやすく整える用途に向いている
  • スペースが意味を持つデータでは、削除前に対象を十分確認することが大切

Replace関数はシンプルな関数ですが、データ整形やCSVの前処理、検索・比較前のクリーニングなど、実務では非常に使用頻度の高い関数です。

単に動くコードを書くのではなく、意味の分かる変数名・処理意図が伝わるコメント・仕様変更しやすい構成を意識することで、保守性の高いVBAコードになります。今後も「あとで自分や他の人が見ても分かるコード」を意識して実装することが、長く使える自動化につながります。

    -VBAで自動化, VBA一覧, データ整形・分割, 空白：削除