- ベストアンサー
置換する場合も最高文字数は何文字ですか?
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
こんばんは、置換に代わりInStr関数で行ってみました、参考に With Cells(1, 1) n = InStr(.Value, mystr) If n > 0 Then .Characters(n, Len(mystr)).Delete End With
その他の回答 (3)
- kmetu
- ベストアンサー率41% (562/1346)
回答No.3
訂正です Cells(1, 1).Value = Replace(rangestr, mystr, "") ↓ Cells(1, 1).Value = Replace(myRangestr, mystr, "")
質問者
お礼
どうもありがとうございました。
- kmetu
- ベストアンサー率41% (562/1346)
回答No.2
一度セルの内容を変数に代入して置換して書き戻してはいかがでしょう Sub Sample() Dim mystr As Variant Dim myRangestr As Variant myRangestr = Cells(1, 1).Value Cells(1, 1).Value = Replace(rangestr, mystr, "") End Sub
質問者
お礼
どうもありがとうございました。
- kmetu
- ベストアンサー率41% (562/1346)
回答No.1
テストしてみました Sub test() Dim mystr As Variant Dim i As Integer mystr = "w" For i = 1 To 254 mystr = mystr + "W" Debug.Print Len(mystr) Next i Cells(1, 1).Replace What:=mystr, Replacement:="", LookAt:=xlPart End Sub 254を255にするとエラーになるので、255文字が限界のようですね。
質問者
お礼
テストありがとうございます。 255ですね。納得しました。
お礼
どうもありがとうございました。