オートフィルタをしても本当の最終行を取得したい

エクセル２００７のＶＢＡについて教えてください。

Ａ１→目次
Ａ２→あ
Ａ３→い
Ａ４→う
Ａ５→え
Ａ６→お

オートフィルタで「え」を抽出します。

この状態で
Sub test()
MsgBox Range("a65536").End(xlUp).Row
End Sub
を実行すると、５が返ってきますが
実際の最終行は６です。

オートフィルタをしつつ、最終行を取得するには
どうすればいいのでしょうか？

ご回答よろしくお願いします。

No.5 ベストアンサー 回答者： keithin 回答日時： 2012/04/14 17:49

＞オートフィルタをしつつ、最終行を取得するには

with activesheet.autofilter.range
msgbox .cells(.cells.count).row
end with

などで。

この回答へのお礼

この方法は初めて知りました！
ありがとうございました。

お礼日時：2012/04/14 23:07

No.4 回答者： tondekesky 回答日時： 2012/04/14 17:43

No.2です。

訂正です。

(誤)　For i = 30 to 1 Step -1
(正)　For i = 65536 to 1 Step -1

失礼いたしました。

この回答へのお礼

どうして３０なのかなーと思いましたがｗ
ありがとうございました。

お礼日時：2012/04/14 23:06

No.3 回答者： f_onion 回答日時： 2012/04/14 17:37

たとえばこんなのはどうでしょう

Sub test2()

Dim r As Range
Set r = Range("A:A").SpecialCells(xlCellTypeConstants)
'MsgBox r.Cells(r.Count, 1).Value ' お と出る。
MsgBox r.Cells(r.Count, 1).Row
Set r = Nothing

End Sub

UsedRangeを利用する方法でもいけるかもしれません。

ない場合は
IsEmpty(r) か r Is Nothing で判定できると思います（ためしてません。見つからなくてエラーになるかも）

この回答へのお礼

エラーにならずにうまくできました
ありがとうございました。

お礼日時：2012/04/14 23:05

No.2 回答者： tondekesky 回答日時： 2012/04/14 17:21

こちらでいかがですか？

Sub test()
Dim i, myColumn As Integer
myColumn = 1
For i = 30 To 1 Step -1
If Trim(Cells(i, myColumn)) <> "" Then MsgBox i: Exit Sub
Next
End Sub

iやmyColumnは別のアルファベットに変えていただいて大丈夫です。
Trim()で、セルに半角または全角スペースだけが入力されている場合は、それを空白セルとみなすようにしています。
スペースだけが入力されたセルも最終行とみなしたい場合は、Trim()を外してください。

もっとスマートな手法があると思うのですけど、ご参考になれば幸いです。

この回答へのお礼

これでもできるのですね。
有難うございました。

お礼日時：2012/04/14 18:27

No.1 回答者： KURUMITO 回答日時： 2012/04/14 16:35

Ａ列の行で空の行が無い場合には次のようにすればよいでしょう。

MsgBox WorksheetFunction.CountA(Range("A:A"))

この回答へのお礼

なるほど！関数を使うのですね！
ありがとうございました。

お礼日時：2012/04/14 18:26