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

質問

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

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

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

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

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

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

回答No.5

keithin · ベストアンサー

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

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

などで。

お礼

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

回答No.4

tondekesky

No.2です。訂正です。

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

失礼いたしました。

お礼

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

回答No.3

f_onion

たとえばこんなのはどうでしょう
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 で判定できると思います（ためしてません。見つからなくてエラーになるかも）

お礼

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

回答No.2

tondekesky

こちらでいかがですか？

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()を外してください。

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

お礼

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

回答No.1

KURUMITO

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

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

お礼

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