【VBA】スペースを一括削除する方法｜Replace関数・Trim関数の使い分けと実務活用

Excel VBAでデータを処理していると、

氏名の前後に余分なスペースがある
CSVを取り込んだら不要な空白が付いていた
比較処理がうまく動かない

このようなケースに遭遇することがあります。

スペースは見た目では気付きにくいため、文字列比較や検索処理で思わぬ不具合の原因になります。

VBAでは主にReplace関数とTrim関数を使ってスペースを削除できますが、それぞれ役割が異なります。

この記事では、両者の違いや使い分け、実務で保守しやすいコードの書き方まで詳しく解説します。

✅ Replace関数とTrim関数の違いを理解しよう

スペースを削除するといっても、「すべて削除したい」のか、「前後だけ削除したい」のかで使う関数は変わります。この違いを理解せずに実装すると、必要なスペースまで消えてしまったり、逆に不要な空白が残ったりすることがあります。実務では処理内容を明確にしてから関数を選ぶことが重要です。まずはそれぞれの特徴を確認しましょう。

・Replace関数とは

Replace関数は、指定した文字列を別の文字列へ置換します。

スペースを削除する場合は、

Replace(文字列, " ", "")

のように指定します。

文字列中にある半角スペースをすべて削除できます。

・Trim関数とは

Trim関数は、

先頭
末尾

のスペースを削除する関数です。

文字列の途中にあるスペースは残ります。

氏名や住所などではこちらを利用する場面も多くあります。

・実務で使い分けるポイント

すべて削除したい → Replace
前後だけ削除したい → Trim

目的に応じて使い分けることが重要です。

✅ Replace関数でスペースを一括削除する方法

Replace関数は、文字列全体から不要なスペースを取り除きたい場面で最も利用されます。商品コードや社員番号など、スペースが存在してはいけないデータとの相性が良い方法です。ここでは保守性を意識した実装方法を紹介します。

・Replace関数を使う理由

この方法を採用する理由は、文字列中すべての半角スペースを一括で削除できるためです。

ループ処理や1文字ずつ判定する方法もありますが、Replace関数ならシンプルに記述でき、可読性も高くなります。

Option Explicit

Sub RemoveAllSpaces()

    Dim targetText As String

    targetText = Worksheets("Sheet1").Range("A2").Value

    ' 半角スペースをすべて削除
    targetText = Replace(targetText, " ", "")

    Worksheets("Sheet1").Range("B2").Value = targetText

End Sub

Replace関数による半角・全角スペースの削除について、さらに詳しい使い方や実務例を知りたい場合は、【VBA】Replace関数でスペース（半角:全角）を削除する方法の記事も参考にしてください。

・実務で注意したいポイント

Replace関数は途中のスペースも削除します。

例えば、

山田 太郎

は

山田太郎

になります。

途中のスペースを残したい場合はTrim関数を利用しましょう。

✅ Trim関数で前後のスペースだけ削除する方法

Trim関数は、入力ミスによる余分な空白を取り除きたい場合によく使われます。検索や比較処理の前処理として利用されることも多く、実務では非常に出番の多い関数です。

・Trim関数を使う理由

この書き方を採用する理由は、入力ミスで付いた前後のスペースだけを安全に削除できるためです。

途中のスペースは保持されるため、氏名や住所などでも安心して利用できます。

Option Explicit

Sub RemoveLeadingTrailingSpaces()

    Dim targetText As String

    targetText = Worksheets("Sheet1").Range("A2").Value

    ' 前後のスペースのみ削除
    targetText = Trim(targetText)

    Worksheets("Sheet1").Range("B2").Value = targetText

End Sub

・Replaceとの違い

例えば、

 山田 太郎

では、

Trim関数

山田 太郎

Replace関数

山田太郎

になります。

✅ セル全体のスペースを一括削除する方法

実務では1セルだけでなく、表全体を対象にすることがほとんどです。そのため、処理範囲を変数として管理し、後から流用しやすいコードにしておくことが重要になります。

・表全体を処理するコード

この構成にしている理由は、処理範囲を変更しやすく、他のシートでも流用できるためです。

Option Explicit

Sub RemoveSpacesInRange()

    Dim targetCell As Range
    Dim targetRange As Range

    Set targetRange = Worksheets("Sheet1").Range("A2:A100")

    For Each targetCell In targetRange

        If targetCell.Value <> "" Then

            targetCell.Value = Replace(targetCell.Value, " ", "")

        End If

    Next targetCell

End Sub

・実務で意識したいこと

空白セルを判定してから処理することで、

不要な処理を減らす
保守しやすくする

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

今回は基本的な範囲処理を紹介しましたが、列全体や任意範囲を効率よく処理したい場合は、【VBA】列・範囲のスペースを削除する方法の記事で詳しく解説しています。

空白セルを事前に判定してから処理を行うと、無駄な処理を減らし、保守性の高いコードになります。空白判定の方法については、【VBA】範囲内に値があるか確認する方法｜空白判定と実務で安全なチェック処理の記事も参考にしてください。

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

日本語データでは、半角だけでなく全角スペースも混在していることがあります。Replace関数は対象文字を指定するため、それぞれ個別に削除する必要があります。

・半角・全角の両方を削除する

Option Explicit

Sub RemoveAllKindsOfSpaces()

    Dim targetText As String

    targetText = Worksheets("Sheet1").Range("A2").Value

    targetText = Replace(targetText, " ", "")
    targetText = Replace(targetText, "　", "")

    Worksheets("Sheet1").Range("B2").Value = targetText

End Sub

シート全体を対象に半角・全角スペースや改行までまとめて整理したい場合は、【VBA】シート全体のスペースを削除する方法｜全角・半角・改行まで実務で完全対策の記事も参考になります。

・実務での注意点

CSVや外部システムから取り込んだデータでは、全角スペースが混在していることがあります。

半角だけ削除しても問題が解決しない場合は、全角スペースも確認しましょう。

✅ 実務ではReplaceとTrimを組み合わせて使う

業務では一つの関数だけで解決することは少なくありません。データの内容に応じて、Replace関数とTrim関数を組み合わせることで、安全性と保守性を両立できます。

・比較処理の前処理として利用する

検索や一致判定の前にスペースを削除すると、不要な比較エラーを防げます。

スペースを削除した後に文字列比較を行う場合は、StrComp関数を利用すると大文字・小文字も含めて安全に判定できます。詳しくは、【VBA】StrComp関数の活用｜文字列比較を安全・正確に行う実務テクニックの記事をご覧ください。

・CSV取り込み後のデータ整理

外部データでは不要な空白が混在しやすいため、最初にスペースを整理すると後続処理が安定します。

CSVデータには不要なスペースが含まれていることも少なくありません。CSVを読み込んだ後の実務的な処理については、【Excel VBA】CSVデータを簡単に読み取り・保存する実務設計ガイドの記事で詳しく解説しています。

・処理目的に合わせて関数を選ぶ

「すべて削除したい」のか、「前後だけ削除したい」のかを意識すると、適切な関数を選択できます。

スペース削除だけでなく、文字列全体をまとめて置換したい場面ではReplaceメソッドも活躍します。実務での活用方法は、【VBA】文字列を一括置換する方法｜Replaceメソッドで効率的にデータを整理するテクニックの記事で詳しく紹介しています。

✅ まとめ：Replace関数とTrim関数を使い分けて安全にスペースを削除しよう

今回は、VBAでスペースを一括削除する方法について解説しました。

Replace関数は文字列中のスペースをすべて削除できる
Trim関数は前後のスペースだけ削除する
途中のスペースを残したい場合はTrimが適している
表全体はRangeとFor Eachで処理すると保守しやすい
全角スペースも忘れずに削除する
比較処理やCSVデータの前処理としても有効
処理目的に応じてReplaceとTrimを使い分けることが重要

スペースは見落としやすい一方で、検索や比較処理の精度に大きく影響します。用途に応じてReplace関数とTrim関数を使い分け、保守しやすいVBAコードを作成しましょう。