【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

実行結果

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

●実行前

●実行後

参考①

指定した文字列が設定されているセルの背景色を置換することもできます。

詳細は以下の記事をご確認ください。

参考②

文字列のセルに設定されている文字列の一部を置換することもできます。

詳細は以下の記事をご確認ください。

参考③

指定した文字列のフォントを変更することもできます。

詳細は以下の記事をご確認ください。

参考④

上記のVBAコードで使用している以下の詳細については、公式サイトをご確認ください。

●「Rangeオブジェクト」の「Replace」メソッド

●「Rangeオブジェクト」の「Columns」プロパティ
「Rangeオブジェクト」を取得します。

●「Rangeオブジェクト」の「Rows」プロパティ
「Rangeオブジェクト」を取得します。

●「Rangeオブジェクト」の「Cells」プロパティ
「Rangeオブジェクト」を取得します。

●「Applicationオブジェクト」の「Cells」プロパティ
「Rangeオブジェクト」を取得します。