EXCEL2000、VBAのFindメソッドの仕様(1行目の取扱)について

質問

EXCEL2000のVBAでマクロを作っています。

Sheet1のA列に下記の様に数字を入れ、作成したfindcheckのマクロを実行します。検索値の5は一番最初に１行目に現れるので、メッセージボックスによって1と表示されるはずなのですが、4と出ます。

おかしいなぁと思って4行目の5を別の数字にするとメッセージボックスで1が表示されるようになりました。いろいろ検索してみると、フィルタなどでは1行目はタイトルとして扱われる…みたいな記述があったので、この場合も1行目は特別な意味を持つのかなぁと思い質問しました。

今回は検索結果が複数ある場合、1番最初に出たセルの行数を表示したいと思っています。1行目を「数値一覧」として、列タイトルの様にしたところ、うまくいきそうでした。もしこの動作が仕様なのかどうかご存じの方がいらっしゃったら教えていただきたいと思います。

どうぞよろしくお願いします。

■Sheet1のA行目の数字
-----------------------------------------------------------
5
3
2
5
4
3
2
1
1
-----------------------------------------------------------

■VBAのコードサンプル
-----------------------------------------------------------
Sub findcheck()
Dim searchResult As Range
Set searchResult = Worksheets("Sheet1").Columns("A").Find("5")
If searchResult Is Nothing Then
MsgBox "見つかりません"
Else
MsgBox searchResult.Row
End If
End Sub
-----------------------------------------------------------

回答No.1

n-jun · ベストアンサー

>Set searchResult = Worksheets("Sheet1").Columns("A").Find("5")
With Worksheets("Sheet1")
Set searchResult = .Columns("A").Find("5" , After:=.Cells(Rows.Count,1))
End With
Ａ列の一番下を開始するセルとしてはどうでしょうか？

お礼

ありがとうございます。
希望通り１行目がヒットしました。

いろいろ調べてましたら、あの指定方法だと、
2行目から検索を開始して、1行目は一番最後に検索しているということは
わかったのですが、そこで止まってました。

頭の柔らかい発想で、大感激です！！
n-junさん的には楽勝回答かとは思いますが…（笑）

初めて投稿しましたが、大変参考になりました。
本当にありがとうございました。

回答No.2

merlionXX

回答は既に出ていますが、

> もしこの動作が仕様なのかどうかご存じの方がいらっしゃったら教えていただきたいと思います。

Findは　After:=　で指定したセルの次のセルから検索をはじめます。（志手於下セルは一番最後になります。）
これから推察すると、After:=　を指定しないと１行目を指定したことになり、次の２行目から探すのかも知れませんね。

お礼

Afterを指定しないと一番左上からという記述を私も見つけ、１行目から始まってると思っていたのですが、おっしゃるように1行目を指定したことが省略されているんでしょうね。

ということで2行目から検索し、1行目が一番最後の検索になってしまった（涙）

ご指導ありがとうございました！m(_ _)m