Cells.Replace What:="*234

質問

このような事は出来ないのでしょうか？

「2345」で終わる文字列を検索して
「2345?」にしたいのですが

Sub test()
Cells.Replace What:="*2345", Replacement:="*2345?", LookAt:=xlWhole
End Sub

を実行すると「a12345」が「*2345?」になってしまいます。
お尻のみ完全一致で「2345」以前の文字列は変更せず
「a12345」を「a12345?」にするにはどうすれば良いでしょうか？

実際の置換妻帯データは
「5」と「?」が連続している訳ではないので
Sub test()
Cells.Replace What:="5", Replacement:="5?", LookAt:=xlPart
End Sub
は考えていません。

回答No.3

tsubu-yuki · ベストアンサー

すいません、一箇所訂正。
処理には直接関係ないのですが、
×　　vbNewLine & i & "件 置換完了"
　　　　　↓
〇　　vbNewLine & i - 1 & "件 置換完了"
にしてやってください。

お礼

ご回答ありがとうございました。

回答No.2

tsubu-yuki

> Cells.replace （略）
とありますが、置換対象は本当に「全セル」でしょうか。
本当に「全セルを舐める」にはそこそこの時間がかかります。
当然、パソコンのスペックにもよりますが、
　　For Each Targ In Cells
　　　　' 何も処理しない
　　Next
を走らせても数分～数時間かかるでしょうから、実用的とは言えません。
チェックする範囲を列単位などに絞れるなら、
　　In 対象範囲
でもなんとかなるかもしれません。

なんとなく、無駄に考えてみました。

Sub Sample()
Dim myTime, myCell

On Error GoTo ErrEnd

　　Application.ScreenUpdating = False
　　myTime = Time

　　For i = 1 To 10000　　' 置換する最大の回数をここで調節
　　　　myCell = Cells.Find(What:="*2345", _
　　　　　　　　　　　　　　After:=Range("A1"), _
　　　　　　　　　　　　　　LookAt:=xlWhole).Address
　　　　Range(myCell) = Range(myCell) & "?"
　　Next

ErrEnd:
　　Range("A1").Select
　　MsgBox Minute(Time - myTime) & "分" & _
　　　　　　Second(Time - myTime) & "秒" & _
　　　　　　vbNewLine & i & "件 置換完了"
　　Application.ScreenUpdating = True
　　Exit Sub

End Sub

まぁつまり、
Ａ１セルを起点に検索して見つかったら「？」をつけ、
もう一回Ａ１セルから検索をやり直して・・・を繰り返して、
見つからなかったら（＝エラーが起きたら）強制終了。
という単純な内容です。
私のロースペックＰＣで、置換対象として３５００セルを用意して
　　　　　　　　　　　　※つまり３５００回繰り返し
１０回ほど走らせた結果、平均処理時間は２５秒くらいでした。
それでもまだ、実用的とは言いづらいかもしれませんね。

お礼

ご回答ありがとうございました。

回答No.1

mt2015

こんなのはどうでしょう。
対象範囲がA1:A3の場合の例です。

Sub Sample()
　　For Each target In Range("A1:A3")
　　　　If target.Value Like "*2345" Then target.Value = target.Value & "?"
　　Next
End Sub

お礼

ご回答ありがとうございました。