【VBA】シート上の文字列を一括で置換する【対象範囲を指定】

VBAで
　・シート上の文字列を
　・一括で置換
できます！

置換対象の範囲として
　・指定したシートの列のみ
　・指定したシートの行のみ
　・指定したシート全体
の3種類を指定できます！

他の記事の内容と組み合わせることで
　・ブック全体(=全てのシート)を置換対象
にすることもできます！

VBAコード
実行結果
参考①
参考②
参考③
参考④
参考⑤
参考⑥
参考⑦

VBAコード

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

Option Explicit

Sub sample()
    
    Dim targetColumn As Integer
    Dim srcStr As String
    Dim destStr As String
    
    '置換対象の列
    targetColumn = 2
    '置換前の文字列を設定
    srcStr = "(株)"
    '置換後の文字列を設定
    destStr = "株式会社"
    
    'シート上の文字列を置換
    Worksheets("sample").Columns(targetColumn).Replace What:=srcStr, _
                                                      Replacement:=destStr, _
                                                      LookAt:=xlPart, _
                                                      MatchCase:=True
    
End Sub

「置換対象の列」を設定します(10行目)。
※上記では「2列名(=B列)」を指定しています。

「置換前の文字」を設定します(12行目)。　※上記では「(株)」を設定しています。
「置換後の文字列」を設定します(14行目)。　※上記では「株式会社」を設定しています。

「Worksheetsオブジェクト(“シート名”)」により、「Worksheetオブジェクト」を取得します(17行目)。

「Worksheetオブジェクト」の「Columns」プロパティにより、指定した列のセルを示す「Rangeオブジェクト」を取得します(17行目)。

「Rangeオブジェクト」の「Replace」メソッドにより、置換します。
引数に以下を指定します(17～20行目)。

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

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

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

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

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