2007/01/07

文字列の置換

Excelシートの文字列の中で時々置換をしたい場合があると思います(使用できない文字を可能な文字に変更したい場合など…)。

以下のようにすれば簡単に文字列を置き換えられる.

【事例1】
Sub replacement()

For i = 2 To 12
Cells(i, 3).Select
ActiveCell.Replace "/", "_"
Next i

End Sub


また,以下のようにすれば変換した文字列を違うセル又は,変数にすれば変数に格納できる(個人的にはとっても便利です)。

【事例2】
Sub replacement()

For i = 2 To 12

Cells(i, 9) = Application.WorksheetFunction.Substitute(Cells(i, 3), "/", "_")

Next i

End Sub

これを使えば,たとえば上記事例のように"/"などの文字は使用できない場合があるので"_”の文字で置き換えるなどのことが可能となり重宝する。