Sponsored Link
[Excel, VBA]置換をする
置換をする
Replace関数
Replace(Expression, Find, Replace[, Start[, Count[, Compare]]])
- Expression
対象文字列 - Find
検索文字列 - Replace
置換後の文字列 - Start
検索開始位置(既定値は1) - Count
置換する文字列の個数(省略すると全て置換となります) - Compare
文字列の比較モードの指定
下記の定数で指定が可能です。
| 定数 | 値 | 内容 |
|---|---|---|
| vbBinaryCompare | 0 | 「大文字と小文字」「半角と全角」「ひらがなとカタカナ」を区別します(既定値) |
| vbTextCompare | 1 | 区別をしません |
| vbDatabaseCompare | 2 | Accessでのみ使用可能。データベースに格納されている設定に基づいて比較します。 |
複数回の置換をする場合は、Replaceを入れ子にします。
Replace(Replace(対象文字列, 検索文字列, 置換後の文字列), 検索文字列, 置換後の文字列)
Ex.1）一ヶ所の置換
Dim beforeStr As String, afterStr As String
beforeStr = "痴漢文字列"
afterStr = Replace(beforeStr, "痴漢", "置換")
Debug.Print afterStr' => 置換文字列
Ex.2)複数を置換
Dim beforeStr As String, afterStr As String
beforeStr = "痴漢文字列その1"
afterStr = Replace(Replace(beforeStr, "痴漢", "置換"), "2", "1")
Debug.Print afterStr' => 置換文字列その2