【VBA】文字列を一括置換する方法｜大量データを安全に処理する実務手順

Excelで業務データを扱っていると、
「この文字列をまとめて置き換えたい」
「表記ゆれを一気に修正したい」
「数百〜数千行を手作業で直すのは無理」
と感じる場面が必ず出てきます。

Excelの検索と置換でも対応できる場合はありますが、
実務では次のようなケースで限界が見えてきます。

• 複数の置換ルールを同時に適用したい
• 条件付きで置換したい
• 定期的に同じ処理を実行したい
• 人が触るとミスが起きやすい

こうした場面で活躍するのが、
VBAによる「置換の一括処理」 です。

この記事では、VBA初心者の方でも理解できるように、

• VBAで一括置換を行う基本的な考え方
• セル範囲を対象にした実務コード
• 大量データを安全・高速に処理する方法
• よくある失敗と注意点

を、実際に使えるコード付きで丁寧に解説します。

✅ VBAで「置換を一括で行う」とはどういうことか

※誤解されやすいポイント

「検索と置換をVBAで実行するだけ」と思うと、実務ではつまずきます。

・一括置換の意味

VBAでの一括置換とは、
複数のセル・複数の行・大量のデータに対して、同じ置換処理をまとめて実行すること
を指します。

ポイントは、

• 人が1セルずつ操作しない
• ルールに従って自動で処理する
• 毎回同じ結果を得られる

という点です。

・なぜVBAで一括置換するのか

VBAを使う最大の理由は、
安全性と再現性 にあります。

• 手作業による置換ミスを防げる
• 処理内容をコードとして残せる
• 定期業務でも同じ処理を繰り返せる

特に、
業務で扱うデータ量が多いほど、VBAの価値は高くなります。

✅ VBAで一括置換する基本パターン

※ここを読まないと後で困る理由

いきなり複雑なコードを書く必要はありません。

・最もシンプルな考え方

VBAで一括置換を行う基本は、次の流れです。

1. 置換対象のセル範囲を決める
2. セルの値を取得する
3. Replace関数で文字列を置換する
4. 結果をセルに反映する

この流れを理解できれば、
ほとんどの一括置換処理に応用できます。

✅ セル範囲を指定して一括置換する基本コード

※初心者が最初に覚えるべき形

まずは「1つの置換ルール」をまとめて適用する方法です。

・A列を対象に一括置換する例

Sub ReplaceAll_Basic()

    Dim targetRange As Range
    Set targetRange = Range("A1:A100")

    Dim cell As Range

    For Each cell In targetRange
        If cell.Value <> "" Then
            cell.Value = Replace(cell.Value, "旧名称", "新名称")
        End If
    Next cell

End Sub

・このコードのポイント

• 指定した範囲を順番に処理している
• 空白セルはスキップしている
• Replace関数で文字列を置換している

初心者の方は、
まずこの形を理解することが第一歩です。

✅ 複数の文字列を一括で置換する方法（実務定番）

※実務で一番よく使われるパターン

置換ルールが増えても対応できます。

・考え方

1つの文字列だけでなく、
複数の置換ルールをまとめて適用するには、

• 置換前の文字列
• 置換後の文字列

をセットで管理するのがポイントです。

・配列を使った一括置換コード

Sub ReplaceAll_Multiple()

    Dim targetRange As Range
    Set targetRange = Range("A1:A100")

    Dim beforeWords As Variant
    Dim afterWords As Variant

    beforeWords = Array("㈱", "（株）", "株式会社")
    afterWords = Array("", "", "")

    Dim cell As Range
    Dim i As Long

    For Each cell In targetRange
        If cell.Value <> "" Then
            For i = LBound(beforeWords) To UBound(beforeWords)
                cell.Value = Replace(cell.Value, beforeWords(i), afterWords(i))
            Next i
        End If
    Next cell

End Sub

・この方法のメリット

• 置換ルールが一目で分かる
• 追加・修正が簡単
• 表記ゆれ対応に強い

実務では
この配列方式がほぼ標準 と考えて問題ありません。

参考：【VBA】配列（Array）の基礎を徹底解説｜1次元配列・2次元配列の仕組みと実務での使い方

✅ 大量データを高速に一括置換する方法

※ここを読まないと実務で遅くなる

セルを1つずつ触る処理には限界があります。

・高速化の基本方針

大量データでは、次の方法を使います。

• セル範囲を配列で取得
• VBA上で置換処理
• 一括で書き戻す

これにより、
処理速度が大幅に向上します。

・配列を使った高速一括置換コード

Sub ReplaceAll_Fast()

    Dim targetRange As Range
    Set targetRange = Range("A1:A1000")

    Dim data As Variant
    data = targetRange.Value

    Dim beforeWords As Variant
    Dim afterWords As Variant

    beforeWords = Array("旧", "仮", "不要")
    afterWords = Array("新", "", "")

    Dim r As Long, i As Long

    For r = LBound(data, 1) To UBound(data, 1)
        For i = LBound(beforeWords) To UBound(beforeWords)
            data(r, 1) = Replace(data(r, 1), beforeWords(i), afterWords(i))
        Next i
    Next r

    targetRange.Value = data

End Sub

・なぜこの方法が速いのか

• Excelとのやり取り回数が少ない
• VBA内だけで処理が完結する

👉
件数が多いほど効果が大きい 方法です。

参考：【VBA】セルの値を変数配列に取得：ループ処理

✅ 条件付きで一括置換する方法

※実務では「全部置換」は少ない

条件を付けることで事故を防げます。

・特定の文字を含む場合のみ置換

If InStr(cell.Value, "対象") > 0 Then
    cell.Value = Replace(cell.Value, "対象", "変更後")
End If

このように条件を追加することで、

• 意図しない置換
• データ破壊

を防げます。

✅ 一括置換でよくある失敗

※ここを読まないと後悔しやすい

• バックアップを取らずに実行
• 対象範囲を広く取りすぎる
• 置換順序を考えていない
• テストせずに本番実行する

特に一括置換は、
一度実行すると元に戻せないケース が多いため注意が必要です。

✅ 実務で安全に使うための対策

※初心者でも必ず守ってほしいポイント

• 事前にコピーシートを作る
• 最初は件数の少ない範囲でテスト
• 置換内容をコメントで残す
• 何を置換するマクロか明確にする

これだけで、
一括置換の事故はほぼ防げます。

✅ VBA一括置換を関数化する考え方

※ここまで来ると実務レベル

処理を再利用しやすくなります。

Function ReplaceAllText(textValue As String) As String

    Dim beforeWords As Variant
    Dim afterWords As Variant
    Dim i As Long

    beforeWords = Array("㈱", "（株）")
    afterWords = Array("", "")

    For i = LBound(beforeWords) To UBound(beforeWords)
        textValue = Replace(textValue, beforeWords(i), afterWords(i))
    Next i

    ReplaceAllText = textValue

End Function

✅ まとめ：VBAで置換を一括処理する実務ポイント

• VBAなら大量データも一括置換できる
• 基本はReplace＋ループ
• 複数ルールは配列で管理する
• 大量データは配列処理で高速化
• 必ずテストしてから本番実行

VBAによる一括置換は、
一度作ってしまえば、業務効率を大きく改善できる武器 になります。

参考：【VBA】文字列を一括置換する方法｜Replaceメソッドで効率的にデータを整理するテクニック

まずは小さな範囲から試して、
安全に使える形を身につけていきましょう。