エクセルでVBAを使ってブック内にある特定の言葉をすべて置き換えしたい

VBAの超初心者なのですが、
品番変更に伴い複数枚のシートから成るエクセルファイルの特定の文字を置換えたいのですが・・・。
Range(Cells(1, 1), Cells(65536, 256)).Replace What:="旧品番", Replacement:="新品番"
で１枚のシートだけなら置換えできたのですが、すべてのシート（ファイル内すべて）の置換え方がわかりません。
どうしたらよいのでしょう。教えてください。

No.3 回答者： imogasi 回答日時： 2007/07/07 21:05

>In Worksheets　というところが超初心者な私には

よくわからないのですが
エクセルVBAなどには、「コレクション」という考えがあります。
For　Eachはコレクションの構成メンバー全部について、１つづつ
拾い上げて、WS.XXXという表現で捉えさせてくれます。
ワークシートの場合は　In　Worksheets
ブックの場合は　In　Workbooks
シェイプの場合は　　In　Shapes
セルの場合は　In　range(・・)
配列でもForEachは使えます。
ーー
Sub test01()
Dim a(3)
a(0) = 0: a(1) = 1: a(2) = 2: a(3) = 3
For Each x In a
MsgBox x
Next
End Sub
--
コレクションに増やすには　　コレクション（後尾にsが付く）.Add
コレクションより除くには　　コレクションs(削除するメンバー）.Delete
のパターンが多い。
ーーー
その他
http://arrow3.way-nifty.com/shige/2004/08/excelv …

No.2 回答者： nekotaru 回答日時： 2007/07/02 21:42

補足が遅くなりました。

worksheetsというのは、activeなエクセルの中にある、シートすべて（複数）です。

Dim ws As Worksheet
ここで定義しているwsのWorksheetはひとつ（単数）のシートです。

For Each ws In Worksheets

（処理）

Next

上記のように記述した場合、ＶＢＡがはシートの１枚目をwsにコピー？して、（処理）を行います、
next で、上に戻りシートの２枚目をwsにコピー？します。
これをシートがなくなるまで繰り返してくれます。

つたない説明ですが、お役にたてば幸いです。
ネットを検索していただくと、もっと親切にかいたＨＰがあると思うので、そちらも参照ください。

この回答へのお礼

ありがとうございます！
使えるようになったらきっと便利だとおもうので
ちょっとがんばってみます。
またわからないことあったらお願いしま～す！！

お礼日時：2007/07/03 20:43

No.1 回答者： nekotaru 回答日時： 2007/06/29 23:10

こんな感じでしょうか？

Sub a()


Dim ws As Worksheet

For Each ws In Worksheets

ws.Cells.Replace What:="旧品番", Replacement:="新品番"

Next


End Sub

この回答へのお礼

早速のご回答ありがとうございました。
きちんとできました！！
この２行目の
For Each ws In Worksheets
の In Worksheets　というところが超初心者な私には
よくわからないのですが、ここですべてのシートでと定義している
のでしょうか？
もし、お時間あったら内容を教えてください。

お礼日時：2007/06/30 08:44