【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

実行結果

指定した文字列を置換できました。

参考

置換(Replace)の詳細については、公式サイトをご確認ください。