|    | 
     ▼kanabun さん: 
お世話になっております。今試したところ、非常に軽くなりました。重かったのはデータがないのに最終行まで検索していたのだと思われます。 
これで非常に効率的な文字列の検索ツールが完成しました。 
配列データの各配列ごとに色を設定できるようになったので、完全一致と一塩基ゆらぎの配列データを1つのシートにおいてそれぞれ別の色を設定することで私が行いたいことも可能になると思われるので非常に助かりました。 
本当にありがとうございました。また何かありましたら質問させていただきたいと思います。 
>▼T.K さん: 
>> 選択したセルのみこのマクロを働かせることはできないでしょうか? 
> 
>>>   '対象範囲を順にLoopして セルごと処理 
>>>  For Each c In Worksheets("クローンリスト").UsedRange.Resize(, 1) 
>>>    CharToUpper c, What 
>>>  Next 
>ここを Try1() のように 
> 
>   '対象範囲を順にLoopして セルごと処理 
>  For Each c In Selection 
>    CharToUpper c, What 
>  Next 
> 
>とすれば、そうなります。 
 | 
     
    
   |