VBA～セルを置換しよう～Excel

VBAでセル内の指定した文字列を置換したい場合はRange.Replaceメソッドで置換できます。引数Whatで検索する文字列を指定し、引数Replacementで置き換える文字列を指定します。

単一セル内で置換

下のコードを実行するとセルA1のAがBに置換されます。

Sub test1()

Range("A1").Replace What:="A", Replacement:="B"

End Sub

範囲内で置換

範囲を指定したい時はRange("範囲の左上のセル:範囲の右下のセル")で指定できます。 下のコードを実行するとセルA1からセルC3の範囲内のAがBに置換されます。

Sub test2()

Range("A1:C3").Replace What:="A", Replacement:="B"

End Sub

シート全体で置換

シート全体で置換したい時はRangeオブジェクトをCellsにします。下のコードを実行するとシート全体でAがBに置換されます。

Sub test3()

Cells.Replace What:="A", Replacement:="B"

End Sub