[ExcelVBA] Replace関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
Replace(expression, find, replace[, start[, count[, compare]]])

■説明
文字列の一部を別の文字列へ指定された回数分置換して返します。
第一引数：置換対象文字列を指定します。
第ニ引数：置換該当文字列を指定します。
第三引数：置換該当文字列を置換する文字列を指定します。
第四引数：(省略可能)置換該当文字列を検索開始する位置を指定します。省略時1になります。
第五引数：(省略可能)置換する文字列数を指定します。省略時-1となり全て置換されます。
第六引数：(省略可能)文字列比較の比較モードを指定。省略時、Option Compareステートメントの設定にしたがいます。

定数	値	説明
vbUseCompareOption	-1	Option Compare ステートメントの設定を使用して比較を行います。
vbBinaryCompare	0	バイナリ モードの比較を行います。
vbTextCompare	1	テキスト モードの比較を行います。

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     Debug.Print Replace("検索文字列", "検索", "置換")  
5.       
6.     'Start,Countオプション Startで指定した検索位置より前は返さないことに注意  
7.     Debug.Print Replace("1a3a5a7a9a", "a", "*")  
8.     Debug.Print Replace("1a3a5a7a9a", "a", "*", Start:=1, Count:=2)  
9.     Debug.Print Replace("1a3a5a7a9a", "a", "*", Start:=3, Count:=2)  
10.     Debug.Print Replace("1a3a5a7a9a", "a", "*", Start:=5, Count:=2)  
11.       
12.   
13.     '文字列比較、デフォルト(バイナリモード)、テキストモードの比較  
14.     '大文字/小文字  
15.     Debug.Print Replace("Aa", "A", "*")  
16.     Debug.Print Replace("Aa", "A", "*", Compare:=vbTextCompare)  
17.     '全角/半角  
18.     Debug.Print Replace("ＡA", "Ａ", "*")  
19.     Debug.Print Replace("ＡA", "Ａ", "*", Compare:=vbTextCompare)  
20.     'ひらがな/カタカナ  
21.     Debug.Print Replace("あア", "あ", "*")  
22.     Debug.Print Replace("あア", "あ", "*", Compare:=vbTextCompare)  
23. End Sub  

Option Explicit

Sub SampleCode()
    Debug.Print Replace("検索文字列", "検索", "置換")
    
    'Start,Countオプション Startで指定した検索位置より前は返さないことに注意
    Debug.Print Replace("1a3a5a7a9a", "a", "*")
    Debug.Print Replace("1a3a5a7a9a", "a", "*", Start:=1, Count:=2)
    Debug.Print Replace("1a3a5a7a9a", "a", "*", Start:=3, Count:=2)
    Debug.Print Replace("1a3a5a7a9a", "a", "*", Start:=5, Count:=2)
    

    '文字列比較、デフォルト(バイナリモード)、テキストモードの比較
    '大文字/小文字
    Debug.Print Replace("Aa", "A", "*")
    Debug.Print Replace("Aa", "A", "*", Compare:=vbTextCompare)
    '全角/半角
    Debug.Print Replace("ＡA", "Ａ", "*")
    Debug.Print Replace("ＡA", "Ａ", "*", Compare:=vbTextCompare)
    'ひらがな/カタカナ
    Debug.Print Replace("あア", "あ", "*")
    Debug.Print Replace("あア", "あ", "*", Compare:=vbTextCompare)
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧