Replace関数は文字列を置換する関数です。
標記を統一させたい時などに使用します。
Replace関数の構文
Replace(String, Find, Replace)
Replace(文字列, 検索する文字列, 置換する文字列)
[]内は省略可能です。
Replace(String, Find, Replace, [ start, count, compare])
Replace(文字列, 検索する文字列, 置換する文字列, [ 置換する開始位置 , 置換する回数 , 比較方法 ])
Replace関数の使用例
・Replace関数内に文字列を直接設定
・文字列に検索する文字列が無い場合
・Replace関数内の文字列が空白の場合
・Replace関数内の検索する文字列が空白の場合
・Replace関数内の置換する文字列が空白の場合
・Replace関数で置換する開始位置を設定
・Replace関数で置換する回数を設定
・Replace関数で比較方法を設定
・文字列を変数に設定
・セルから文字列を取得してセルに設定
・繰り返し処理(検索する文字列)
・繰り返し処理(文字列、検索する文字列)
・繰り返し処理(文字列、検索する文字列、置換する文字列)
の内容で説明していきます。
Replace関数内に文字列を直接設定
Sub Replace1()
MsgBox Replace("acbcdcec", "c", "f")
End Sub
“c”が”f”に置換されました。
文字列に検索する文字列が無い場合
Sub Replace2()
MsgBox Replace("acbcdcec", "k", "f")
End Sub
文字列内にkがないのでそのまま表示されます。
Replace関数内の文字列が空白の場合
Sub Replace3()
MsgBox Replace("", "c", "f")
End Sub
文字列が空白なので表示されません。
Replace関数内の検索する文字列が空白の場合
Sub Replace4()
MsgBox Replace("acbcdcec", "", "f")
End Sub
検索する文字列がないためそのまま表示されます。
Replace関数内の置換する文字列が空白の場合
Sub Replace5()
MsgBox Replace("acbcdcec", "c", "")
End Sub
置換する文字を空白に設定しているため”c”が空白になり”abde”が表示されます。
Replace関数で置換する開始位置を設定
Sub Replace6()
MsgBox Replace("acbcdcec", "c", "f", 2)
End Sub
開始位置を2文字目に設定したため先頭の”a”が表示されません。
開始位置を省略した場合は先頭から表示されます。
Replace関数で置換する回数を設定
Sub Replace8()
MsgBox Replace("acbcdcec", "c", "f", , 3)
End Sub
置換する回数を3回に設定したため、末尾の”c”が4回目になるので”c”が置換されません。
置換する回数を設定しない場合は、文字列のすべての候補を置換します。
Replace関数で比較方法を設定
Sub Replace9()
MsgBox Replace("cCｃＣ", "c", "f", , , 0)
End Sub
比較方法を0に設定した場合、先頭の”c”だけが”f”に置換されました。
Sub Replace10()
MsgBox Replace("cCｃＣ", "c", "f", , , 1)
End Sub
比較方法を1に設定した場合、すべて”f”に置換されました。
比較方法が0の場合は大小半角全角文字を判定します。
比較方法が1の場合は大小半角全角文字を判定しません。
比較方法を省略した場合は0が設定されます。
Sub Replace11()
MsgBox Replace("cCｃＣ", "c", "f", , , vbBinaryCompare)
End Sub
Sub Replace12()
MsgBox Replace("cCｃＣ", "c", "f", , , vbTextCompare)
End Sub
比較方法の設定が0と1ではなく、vbBinaryCompareとvbTextCompareの記載も可能です。
問題1
以下の内容を実行したときにメッセージボックスに表示される内容はどの様になりますか。
Sub Replace13()
MsgBox Replace("acbcdcecgc", "c", "f", 3, 3)
End Sub問題2
以下の内容を実行したときにメッセージボックスに表示される内容はどの様になりますか。
Sub Replace14()
MsgBox Replace("acbcCｃＣdce", "c", "f", 2, 3, 1)
End Sub問題1の答え
Replace(“acbcdce”, “c”, “f”, 2, 3)
開始位置が3、置換回数が3のため、先頭の”ac”が表示されず、末尾の”c”が4回目のため置換されていません。
問題2の答え
Replace(“acbcCｃＣdce”, “c”, “f”, 2, 3, 1)
開始位置が2、置換する回数が3、比較方法が1のため、先頭の”a”が表示されず、置換する回数が3回なので大文字の”C”まで”f”に置換されます。
文字列を変数に設定
Sub Replace15()
Dim str, find, rep As String
str = "あいうえお"
find = "い"
rep = "か"
MsgBox Replace(str, find, rep)
End Sub
“い”が”か”に置換されています。
セルから文字列を取得してセルに設定
Sub Replace16()
Dim str, find, rep As String
str = Cells(2, 2)
find = Cells(2, 3)
rep = Cells(2, 4)
Cells(2, 5) = Replace(str, find, rep)
End Sub
“い”が”か”に置換されました。
繰り返し処理(検索する文字列)
Sub Replace17()
Dim str, rep As String
Dim find() As String
Dim i, retuNum As Integer
str = Cells(2, 2)
rep = Cells(2, 4)
'検索する文字列の列番号を設定します
retuNum = 3
'検索する文字列のリストを設定します
find() = リストの設定(retuNum)
i = 1
'文字列の置換をリスト分繰り返します
For Each Var In find
str = Replace(str, find(i - 1), rep)
i = i + 1
Next
Cells(2, 5) = str
End Sub今回はFunctionを使用しています。
Functionの内容は検索のリストを作成して返却しています。
Function リストの設定(ByVal retuNum As Integer) As String()
Dim list() As String
Dim i As Integer
Dim kazu As Long
kazu = Cells(1000, retuNum).End(xlUp).Row
ReDim list(kazu - 2)
For i = 2 To kazu
list(i - 2) = Cells(i, retuNum)
Next i
リストの設定 = list()
End Function
複数の記号がすべて”-“に変換されました。
繰り返し処理(文字列、検索する文字列)
Sub Replace18()
Dim rep As String
Dim str() As String
Dim find() As String
Dim i, j, retuNum As Integer
rep = Cells(2, 4)
'文字列の列番号を設定します
retuNum = 2
'検索する文字列のリストを設定します
str() = リストの設定(retuNum)
'検索する文字列の列番号を設定します
retuNum = 3
'検索する文字列のリストを設定します
find() = リストの設定(retuNum)
i = 1
'文字列をリスト分繰り返します
For Each Var In str
j = 1
'文字列の置換をリスト分繰り返します
For Each Var2 In find
str(i - 1) = Replace(str(i - 1), find(j - 1), rep)
j = j + 1
Next
Cells(i + 1, 5) = str(i - 1)
i = i + 1
Next
End SubFunctionは文字列のリストと検索のリストの内容を返却しています。
Function リストの設定(ByVal retuNum As Integer) As String()
Dim list() As String
Dim i As Integer
Dim kazu As Long
kazu = Cells(1000, retuNum).End(xlUp).Row
ReDim list(kazu - 2)
For i = 2 To kazu
list(i - 2) = Cells(i, retuNum)
Next i
リストの設定 = list()
End Function
置換する文字列が1行毎に置換されました。
繰り返し処理(文字列、検索する文字列、置換する文字列)
検索文字と置換文字は#→a、%→b、$→c、!→d、”→e、&→fという内容で置換します。
Sub Replace19()
Dim str() As String
Dim find() As String
Dim rep() As String
Dim i, j, retuNum As Integer
'文字列の列番号を設定します
retuNum = 2
'検索する文字列のリストを設定します
str() = リストの設定(retuNum)
'検索する文字列の列番号を設定します
retuNum = 3
'検索する文字列のリストを設定します
find() = リストの設定(retuNum)
'置換する文字列の列番号を設定します
retuNum = 4
'置換する文字列のリストを設定します
rep() = リストの設定(retuNum)
i = 1
'文字列をリスト分繰り返します
For Each Var In str
j = 1
'文字列の置換をリスト分繰り返します
For Each Var2 In find
str(i - 1) = Replace(str(i - 1), find(j - 1), rep(j - 1))
j = j + 1
Next
Cells(i + 1, 5) = str(i - 1)
i = i + 1
Next
End SubFunctionは文字列のリスト、検索のリストと置換のリストの内容を返却しています。
Function リストの設定(ByVal retuNum As Integer) As String()
Dim list() As String
Dim i As Integer
Dim kazu As Long
kazu = Cells(1000, retuNum).End(xlUp).Row
ReDim list(kazu - 2)
For i = 2 To kazu
list(i - 2) = Cells(i, retuNum)
Next i
リストの設定 = list()
End Function
それぞれ対応している文字が置換されました。
str(i – 1) = Replace(str(i – 1), find(j – 1), rep(j – 1))を
str(i – 1) = Replace(str(i – 1), find(j – 1), rep(j – 1), , , 1)に変更すれば大小全角半角を判定せずに置換されます。
今回はReplace関数について記載させて頂きました。
少しでも皆様の参考になれば幸いです。
EXCEL VBA 業務の自動化を目指す 