置換（検索場所に「ブック」を指定した）

ｖｂａでわからないので教えてください。

手作業なら可能ですが
何回も行なうのでマクロを組みたいのですが

Sub 置換()
Cells.Replace What:="スッキリ", Replacement:="すっきり", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

のコードのどこに「検索場所」が書かれているのでしょか？

前回、シート単位で置換した後、上記のコードを実行すると、
またシート単位での置換になってしまいます。

検索場所を「ブック」にするコードを教えてください！ご教授よろしくお願い致します。

No.1 ベストアンサー 回答者： nag0720 回答日時： 2009/09/07 00:05

たぶん「検索と置換」ダイアログの「検索場所」の内容によって、Cellsの中身が決まるのではないでしょうか。

対応策としては、対象のシートを全て指定してみてはどうでしょうか。

Sub 置換()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Cells.Replace What:="スッキリ", Replacement:="すっきり", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub

この回答へのお礼

ループしていくしかないようですね。
ありがとうございます。

お礼日時：2009/09/18 22:23