【圧倒的に簡単！】Excel置換関数VBAで業務効率を劇的に改善する方法

業務でExcelを使っていると、「データの一括置換」「特定のパターンに従ったデータ修正」などが頻繁に必要になります。手作業でこれらの処理をしていると、時間がかかるだけでなく、ミスが発生しやすくなりますよね。特に大量のデータを扱う場合、その作業の煩雑さに頭を悩ませることも多いはず。

そこで注目したいのが、ExcelのVBA（Visual Basic for Applications）を使った「置換関数」です。VBAを使うことで、膨大なデータを一括で効率的に置換し、業務をスピーディに進めることができます。この記事では、Excel置換関数VBAの使い方を徹底解説し、あなたの作業を劇的に効率化する方法を紹介します！

VBAのReplace関数の基本とは
実践！Excelでの置換操作
Excel置換関数VBAでよくある疑問を解決！
1. VBA Replace関数の引数「start」とは？
2. Replace関数で「カンマ」や「ピリオド」などの特殊文字を置換したい場合
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
まとめ

VBAのReplace関数の基本とは

Excelのイメージ

VBAにおける「Replace関数」は、指定した文字列を他の文字列に置き換える非常に便利なツールです。基本的な構文は以下の通りです。

Replace(expression, find, replace, , , )

各引数の意味は次の通りです

ここがポイント！

expression: 置換を行う対象の文字列です。
find: 置換する対象となる文字列です。
replace: 置換後の文字列です。
start（オプション）: 置換を開始する位置（デフォルトは1）
count（オプション）: 置換する回数（デフォルトはすべての発生）
compare（オプション）: 大文字と小文字を区別するかどうか（デフォルトはバイナリ比較）

この関数を使うことで、手動で置換作業をするよりも格段に効率よくデータを修正できます。

実践！Excelでの置換操作

VBAのReplace関数を使って、実際にExcelのデータを置換する方法を見ていきましょう。

基本的な文字列の置換

最も簡単な使用例は、シート内の指定したセル範囲に対して文字列を置き換えることです。例えば、「Sheet1」のA1:A10の範囲で「old」という文字を「new」に置換する場合、次のようなVBAコードを使います。

Sub ReplaceExample()
    Dim rng As Range
    Set rng = Sheets("Sheet1").Range("A1:A10")
    rng.Replace What:="old", Replacement:="new", LookAt:=xlWhole
End Sub

これで、指定した範囲内の「old」を「new」に一括で置換できます。手動で入力する時間を大幅に削減できます。

大文字小文字を区別せずに置換

デフォルトでは、VBAのReplace関数は大文字と小文字を区別して置換を行いますが、これを区別しないように設定することもできます。その場合、vbTextCompareを指定します。

Sub ReplaceIgnoreCase()
    Dim rng As Range
    Set rng = Sheets("Sheet1").Range("A1:A10")
    rng.Replace What:="test", Replacement:="example", LookAt:=xlWhole, Compare:=vbTextCompare
End Sub

このコードを実行すると、「TEST」や「test」など、大小文字を問わず「test」をすべて「example」に置き換えることができます。

特定の文字列を複数回置換

複数の異なる文字列を順番に置換することもできます。例えば、次のように複数の単語を一度に置換するコードが考えられます。

Sub ReplaceMultipleWords()
    Dim rng As Range
    Set rng = Sheets("Sheet1").Range("A1:A10")
    rng.Replace What:="old1", Replacement:="new1", LookAt:=xlWhole
    rng.Replace What:="old2", Replacement:="new2", LookAt:=xlWhole
    rng.Replace What:="old3", Replacement:="new3", LookAt:=xlWhole
End Sub

このコードでは、1回の実行で「old1」「old2」「old3」を順番に置換します。大量のデータがある場合でも、効率的に処理ができます。

Excel置換関数VBAでよくある疑問を解決！

VBA Replace関数の引数「start」とは？

「start」は、検索の開始位置を指定するオプションです。通常は省略できますが、特定の位置から置換を開始したい場合には使用します。例えば、5文字目以降で置換を開始する場合、次のように指定します。

Sub ReplaceFromFifthCharacter()
    Dim rng As Range
    Set rng = Sheets("Sheet1").Range("A1:A10")
    rng.Replace What:="old", Replacement:="new", Start:=5
End Sub