高速化：Findの検索方向

高速化、というよりやってて当たり前、という話。

Findについてわからない人はこちらへどうぞ。

以下、テキトーなコード。

Dim objCells As Object
.
.

Set objCells =Worksheets("Sheet1").Cells.Find(What:="検索する値",After:=Cells(2,2),lookat:=xlWhole, _
            SearchOrder:=xlByColumns)
.
.


  考えてみればわかるのだが、太字の設定を忘れていると検索にやたらと時間がかかる可能性がある。Afterは検索の開始位置、SearchOrderは検索の方向だ。xlByColumnsが行方向、xlByRowsが列方向なので注意。たとえば、特定の行に対して文字列を検索するときはxlByRowsにすれば列に対して検索をしてくれるので動作がスムーズである。検索対象のデータがB列以降にある可能性が高い場合はAfterでCells(x,2)などを指定するとそこから検索してくれるので処理が速くなる。

  こういう事があるので、省略値はあるにせよコーディングの際はオプションの値を明確にしておいたほうが良いだろう。かといって全部書くのは煩雑だし面倒だ。個人的には、少なくとも上記のコーディングにあるオプションは明確にしておいたほうが良いと思う。