【VBA】指定した文字列を置換する

VBAで
　・指定した文字列を
　・置換する
方法を記載します！

置換対象の範囲は
　・指定したシートの列のみ
　・指定したシートの行のみ
　・指定したシートのみ
　・ブック全体
の4種類を指定できます！

VBAコード
実行結果
参考

VBAコード

ここでは例として、
　・シート「sample」の「B列(＝2列目)」のみの
　・文字列「(株)」を
　・文字列「株式会社」へ置換
します。

Option Explicit

Sub sample()
    '置換対象の列
    Const CONPANY_NAME_COLUMN As Integer = "2"
    '置換前の文字列
    Const SRC_STR As String = "(株)"
    '置換後の文字列
    Const DEST_STR As String = "株式会社"
    
    '文字列を置換
    Worksheets("sample").Columns(CONPANY_NAME_COLUMN).Replace What:=SRC_STR, _
                                                      Replacement:=DEST_STR, _
                                                      LookAt:=xlPart, _
                                                      MatchCase:=True
End Sub

What・・・・・・置換前の文字列を指定
Replacement・・・置換後の文字列を指定
LookAt・・・・・・完全一致(xlWhole) or 部分一致(xlPart)を指定
MatchCase・・・・大文字と小文字を区別する(True) or しない(False)を指定

上記は「Worksheets(“XXX”).Columns(X).Replace」としているため、対象範囲は指定したシートの列のみになります。

「Worksheets(“XXX”).Rows(X).Replace」にすると、対象範囲を指定したシートの行のみにできます。

「Worksheets(“XXX”).Cells.Replace」にすると、対象範囲を指定したシートのみにできます。

「Cells.Replace」にすると、対象範囲をブック全体にできます。

「置換前の文字列」が1つも存在しない状態で実行しても、エラーにはなりません。