分かりやすく、使いやすく。

文字列の一部を置換する方法

スポンサーリンク

Excel VBA で文字列の一部を置換する方法の紹介です。

文字列の一部を置換する

Replace 関数を使用して文字列の一部を置換することができます。

VBA（実行可能なサンプルコード）
1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Sub test()
    Dim message As String
    
    message = "こんにちは。良い天気ですね。"
    
    ' 「こんにちは」を「おはようございます」に変換する。
    message = Replace(message, "こんにちは", "おはようございます")
    
    '「おはようございます。良い天気ですね。」と出力される。
    Debug.Print (message)
End Sub

Replace 関数は標準でアルファベットの大文字と小文字を区別します。

VBA（実行可能なサンプルコード）
1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Sub test()
    Dim message As String
    
    message = "Hello, hello, HELLO."
    
    ' 「Hello」を「Hi」に変換する。
    message = Replace(message, "Hello", "Hi")
    
    '「Hi, hello, HELLO.」と出力する。
    Debug.Print (message)
End Sub
▲このページの一番上に戻る

文字列の一部を置換する（アルファベットの大文字と小文字を区別しない）

大文字と小文字を区別するには Replace 関数の引数（compare）に vbTextCompare を指定します。

VBA（実行可能なサンプルコード）
1
2
3
4
5
6
7
8
9
10
11
12
13

Option Explicit
 
Sub test()
    Dim message As String
    
    message = "Hello, hello, HELLO."
    
    ' 「Hello」を「Hi」に変換する。
    message = Replace(message, "Hello", "Hi", compare:=vbTextCompare)
    
    '「Hi, Hi, Hi.」と出力する。
    Debug.Print (message)
End Sub
▲このページの一番上に戻る
スポンサーリンク
カテゴリー
スポンサーリンク