| 
    
     |  | kanabunさん、大変ありがとう御座います。 
 >なぜ多重検索になってしまうのか、原因は見つかりましたか?
 まだ自信は無いのですが、for〜nextの型を使用しているから何時までも数値がある以上多重検索されているのだろうと自分的には考えています。
 
 >Findで見つかったらセルの書式を変えていますが、Do〜Loopのなかで
 >書式のチェックがなされていないからですよね。
 
 はい。その通りだと思ってはいたのですがどうチェックしていいのか検討がつかなかったです。
 
 >書式を変えるのでもいいし、C列の範囲の値をいったん配列に退避しておいて、
 >Do〜FindNext〜Loop の中では 見つかったセルをClearContents していっても
 >いいと思います。(全セルの検索が終了したら 元の値を配列から書き戻します)
 
 凄いの一言です。
 検索が終了したら元の値を書きもどすなんて考えかたが全く出来ませんでした。
 言われてびっくりです。
 
 >そういうときは Dictionaryオブジェクトを利用すると効率よいですよ。
 
 本当にありがとう御座います。
 もう一度kanabunさんに言われた事を「できる。大辞典」でしっかり調べなおして勉強いたします。
 
 かみちゃんさん、kanabunさんお時間頂いてありがとうございました。
 
 
 |  |