セルやフィールドの空白を削除する方法｜VBAで文字列をきれいに整えるテクニック

Excelでデータを扱っていると、セルの中に不要な空白が含まれていることがあります。
特に、名前や住所などのフィールドに余計なスペースがあると、データの照合や検索、印刷に支障が出ることも。
そこで便利なのが、VBA（Visual Basic for Applications）を使って自動的に空白を削除する方法です。
この記事では、VBA初心者でもわかるように、セルやデータベースのフィールドから空白を削除するテクニックを紹介します。
実用的なコード例や注意点も交えて、丁寧に解説していきます。

VBAで空白を削除するとは？

ExcelのVBAでは、セル内の空白を削除するためにReplace関数やTrim関数、またはWorksheetFunction.Trimなどを使います。
これにより、ユーザーが手動で修正する必要なく、一括でデータをきれいに整えることが可能です。

たとえば、次のような空白が問題になるケースがあります。

  • 氏名の前後に空白が入っている（例：「 山田太郎」）
  • 住所の途中に全角スペースが混じっている（例：「東京都 新宿区」）
  • セル内に見えない空白（ノーブレークスペースなど）

これらの空白を削除することで、検索やVLOOKUP、MATCH関数の精度も向上します。

Trim関数で前後の空白を削除する

最も基本的な方法が、Trim関数です。これは、文字列の前後にある半角スペースを取り除いてくれます。

Sub TrimSample()
    Dim rng As Range
    For Each rng In Selection
        rng.Value = Trim(rng.Value)
    Next rng
End Sub

解説：

  • Selectionは、現在選択しているセル範囲です。
  • Trim(rng.Value)で前後の空白を削除。
  • 中間のスペース（「山田 太郎」など）は削除されません。

このコードは「前後の余計な空白」だけを対象にしたシンプルな処理に適しています。

Replace関数で中間の空白を削除する

次に紹介するのは、文字列のすべての空白を削除する方法です。
Replace関数を使えば、スペース（半角 or 全角）を任意に除去できます。

Sub RemoveAllSpaces()
    Dim rng As Range
    For Each rng In Selection
        If Not IsEmpty(rng.Value) Then
            rng.Value = Replace(rng.Value, " ", "")
        End If
    Next rng
End Sub

解説：

  • " "で半角スペースを削除。
  • "　"（全角スペース）を削除したい場合は、Replace(rng.Value, "　", "")を使います。
  • 複数の置換処理を組み合わせることも可能。
Sub RemoveAllSpacesFull()
    Dim rng As Range
    For Each rng In Selection
        If Not IsEmpty(rng.Value) Then
            rng.Value = Replace(rng.Value, " ", "")
            rng.Value = Replace(rng.Value, "　", "")
        End If
    Next rng
End Sub

フィールド（列全体）を対象に処理する

特定の列だけを対象にしたい場合、たとえばA列のすべてのデータをきれいにしたいときは、以下のようなコードを使います。

Sub CleanColumnA()
    Dim i As Long
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A").Value = Trim(Replace(Replace(Cells(i, "A").Value, " ", ""), "　", ""))
    Next i
End Sub

解説：

  • Cells(Rows.Count, "A").End(xlUp).RowでA列の最終行を取得。
  • 各セルに対して、半角・全角スペースを削除したあと、前後の空白をTrimで除去。

空白削除の対象を複数列に拡張する方法

複数列（たとえばA列とC列とE列）のみ空白を削除したい場合は、以下のように列を指定します。

Sub CleanMultipleColumns()
    Dim i As Long
    Dim cols As Variant
    cols = Array(1, 3, 5) ' A列, C列, E列

    For Each col In cols
        For i = 1 To Cells(Rows.Count, col).End(xlUp).Row
            Cells(i, col).Value = Trim(Replace(Replace(Cells(i, col).Value, " ", ""), "　", ""))
        Next i
    Next col
End Sub

AccessやUserFormでのフィールド処理にも応用可能

VBAはExcelだけでなく、AccessのテーブルやUserFormのテキストボックスにも応用できます。
たとえば、UserFormのテキスト入力から空白を除去するには：

Private Sub btnSubmit_Click()
    Me.txtName.Value = Trim(Replace(Replace(Me.txtName.Value, " ", ""), "　", ""))
End Sub

これで、テキストボックスに入力された名前の空白をきれいに整えてから処理を進めることができます。

空白削除時の注意点

1. 中間スペースの削除が問題になる場合も

たとえば「山田 太郎」というように、姓と名の間にスペースがあるのが正しいケースもあります。
このような場合は、前後だけ削除するように制御が必要です。

2. 数値フィールドの場合は変換に注意

数値に見える文字列（例：「 123 」）を文字列として扱っていると、空白を削除したときに型エラーが出る場合があります。
データ型を意識した処理が重要です。

まとめ

VBAを使えば、セルやフィールドに含まれる余計な空白を一括で簡単に削除できます。
基本はTrim関数とReplace関数の組み合わせ。
必要に応じて列単位や複数列、UserFormなどにも応用できます。

データの品質を保つためにも、空白の除去は欠かせない作業です。
この記事を参考に、自分の用途に合わせてVBAコードをカスタマイズしてみてください。

タイトルとURLをコピーしました