テキスト挿入 (ID:112865)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ReplaceはExcel97では使用できないので、 まずはExcelのバージョンを教えてください。 --ま、自前で Public Function fReplaceChar(ByVal vExpr As String, ByVal vFind As String, ByVal vRepl As String) As String Dim sResult As String Dim iStart As Long Dim iPos As Long Dim iLen As Long iLen = Len(vFind) If iLen = 0 Then fReplaceChar = vExpr Exit Function End If iStart = 1 Do iPos = InStr(iStart, vExpr, vFind) If iPos = 0 Then fReplaceChar = sResult & Mid$(vExpr, iStart) Exit Do End If sResult = sResult & Mid$(vExpr, iStart, iPos - iStart) & vRepl iStart = iPos + iLen Loop End Function こんな感じの関数を用意してみるのも良いでしょう。