Excelのマクロでこういう条件のマクロを組みたい

"コーラ"という値を含むセルが見つかったら、そのセルより8行上、４列右までのセルの値を空白にしたい。

・シートが１０００シートほどあり、すべてに適用したい

このような感じなのですが、効率のいいマクロを教えていただけないでしょうか？

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2016/04/13 19:54

無駄な部分も多いですが

取りあえずは、一枚のシートで
Sub Macro1()
Cells.Select
Selection.Find(What:="コーラ", LookAt:=xlPart).Activate
ActiveCell.Offset(-8, 0).Activate
ActiveCell.Resize(1, 4).Value = ""
End Sub
コードの内容は
シート全体を選択
コーラを選択
8行上を選択
横へ4列広げた範囲を空白
です。

これを全てのシートで実行する。
但し、コーラは一枚のシートに一つと云う事で・・・

No.3 回答者： OverTheGalaxy 回答日時： 2016/04/13 22:06

http://m.chiebukuro.yahoo.co.jp/detail/q11158142 …
http://m.chiebukuro.yahoo.co.jp/detail/q11158095 …

もう１つあって回答も付いてた筈だけど、削除したの？

No.1 回答者： fujillin 回答日時： 2016/04/13 13:56

特別に効率がいい方法は思いつきませんので、他の方に譲るとして…

Cells.Find()で検索しておいて、後は、それぞれ指定の範囲を消してゆくくらいかなぁ。
シートはブック内の全シートなのか指定シートなのかにもよりますが、基本的にループで処理したいですね。