サイトについて      連絡先   検索

VBA 文字列の置換

はじめに

Excel VBA の 文字列 (String) を置換する方法を紹介します。

文字列を置換するには「Replace 関数」を使用します。

文字列の置換

Replace 関数」の引数には (文字列, 検索文字, 置換文字) を渡します。

Dim s As String
s = Replace("123456789", "456", "あ")
Debug.Print (s) ' "123あ789"

置換する位置を指定

Replace 関数」の第四引数で、置換を開始する位置を指定できます。最初の位置は 1 からスタートします。

置換開始位置の前の文字は削除されます。

Dim s As String
s = Replace("11111", "1", "5", 3) ' 3 文字目から置換する
Debug.Print (s) ' "555"

大文字と小文字を区別して置換する

「大文字と小文字」、「半角と全角」、「ひらがなとカタカナ」を区別するには最後の引数を指定します。

Dim s As String
s = Replace("abcABC", "abc", "123", 1, -1, vbBinaryCompare) ' 区別する
Debug.Print (s) ' "123ABC"

s = Replace("abcABC", "abc", "123", 1, -1, vbTextCompare) ' 区別しない
Debug.Print (s) ' "123123"

関連ページ