【VBA】変数の設定値(文字列)を置換する

VBAで
 ・変数の設定値(文字列)を置換
できます!

VBA関数である
 ・Replace関数
により実現できます!

PR

VBAコード

ここでは例として
 ・文字列「りんごは美味しい!」の
 ・「りんご」を「バナナ」へ置換
します。

Option Explicit

Sub sample()
    
    Dim beforeStr As String
    Dim srcStr As String
    Dim destStr As String
    Dim afterStr As String

    '置換対象の文字列を設定
    beforeStr = "りんごは美味しい!"
    '置換前の文字列を設定
    srcStr = "りんご"
    '置換後の文字列を設定
    destStr = "バナナ"
    
    '置換する
    afterStr = Replace(expression:=beforeStr, _
                       Find:=srcStr, _
                       Replace:=destStr, _
                       compare:=vbTextCompare)

    '置換結果を確認
    MsgBox (afterStr)
    
End Sub

「置換対象の文字列」を設定します(11行目)。※上記では「りんごは美味しい!」を設定しています。
「置換の文字」を設定します(13行目)。  ※上記では「りんご」を設定しています。
「置換の文字列」を設定します(15行目)。 ※上記では「バナナ」を設定しています。

「Replace関数」により置換します。引数に以下を指定します(18~21行目)。

引数「expression」・・置換対象の文字列
引数「Find」・・・・・置換の文字列
引数「Replace」・・・置換の文字列
引数「compare」・・・比較モード ※上記では「テキスト比較」を指定しています。

PR

実行結果

変数の設定値(文字列)を置換できました。
※文字列「りんごは美味しい!」の「りんご」を「バナナ」へ置換できました。

実行結果
実行結果
PR

参考①

シート上の文字列を置換することもできます。

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

PR

参考②

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

●Replace関数

タイトルとURLをコピーしました