エクセルVBAでオートフィルター最上行を取得するには

データのリストからオートフィルターでE列のある特定のデータを表示し、それが複数の場合、最下行は
Cells(ActiveSheet.Rows.Count, "E").End(xlUp).Row
で取得できますが、見出しのすぐ下に来る一番目のデータがある最上行はどうやって取得したらいいのでしょうか？

よろしくお願いします。

No.1 ベストアンサー 回答者： shkwta 回答日時： 2005/04/03 02:46

オートフィルタで非表示になっている行ではRowsのHiddenプロパティがTrueになっていることを利用して、

Dim 行 As Long
行 = 2
While ActiveSheet.Rows(行).Hidden
　　行 = 行 + 1
Wend

とすると、変数「行」に先頭の行番号が入ります。

この回答へのお礼

ありがとうございました。
出来ました。

でも、よく考えたらオートフィルターで検索してE列の一番上に来るセルの行番号ならMatchでも求められましたね。教えていただいた方法もとても勉強になりました。ありがとういございます。

Sub FirstRow()
検索値 = "XX"
MsgBox Application.Match(検索値, Columns("E"), 0)
End Sub

お礼日時：2005/04/03 10:50