VBAで最終行の取得方法（オートフィルタで絞り込みしている場合）

Question

VBAでオートフィルタが有効になっていた場合でも、
最終行の値を取得する方法をご教授いただきたいです。

<標準のデータ表示>

A	B
1	AAA
2	BBB
3	CCC

上記のようにデータ表示されている場合、以下の処理にて
エクセルシートの最終行（3行目）を取得できるかと思います。

Range("A", & Rows.Count).End(xlUp)

今回ご質問させて頂いた内容としては、
オートフィルタでA列の絞り込みを行い、以下の状態で表示されたとします。

A	B
2	BBB

この場合でもデータの最終行として3行目を取得したい場合、
どのように実行すればよろしいでしょうか。

処理の前にオートフィルタを無効にする方法も検討しましたが、
オートフィルタを無効化にした後、再度同じ条件で絞り込み処理を行う方法がわからず
ご質問させていただきました。

何卒、よろしくおねがいします。

Answer 1

そもそも、「表の最終行番号」が分かったとして、
その値をどのように使うつもりですか？

例えば、

Sub test()
    MsgBox Range("A1").CurrentRegion.Address
End Sub

このように、
Range("A1").CurrentRegion（A1セルを含むアクティブな表の意）とすれば、
表示・非表示の状態にとらわれず、表の範囲を取得できますので、
取り立てて最終行番号だけを、取得する必要性があまりありません。
どうしても行番号をという事であれば、

Sub test2()
    Dim Rng As Range
     
    Set Rng = Range("A1").CurrentRegion
    MsgBox Rng.Rows(Rng.Rows.Count).row
End Sub

このようにして、表のセル範囲という情報の中から取り出します。

また、
「すでにオートフィルターが掛かっている。」
ということが前提条件で、「オートフィルターが掛かっているセル範囲」を
知りたいならば、

Sub test3()
    MsgBox ActiveSheet.AutoFilter.Range.Address
End Sub

このようにして、知ることも可能です。
（オートフィルターが掛かっていなければエラーになるので、
合わせて、エラーの回避処理を書いておいた方がよいでしょう）

あ、質問を読み直したら、「行番号」とは一つも書いてないですね。
失礼しました。

まず、セル範囲を取得します。
で、そのセル範囲の行数を数えます。（例　Range("B3:D5").Rows.Count)
その行数は、表の上から数えたら、最終行は、「数えた行数」番目になります。
ので、Rowsプロパティーの引数に数えた数を指定してやれば、「最終行」を指し示すことになります。
Range（”B3:D5").Rows(Range("B3:D5").Rows.Count)

Comments

[yutkts]

お世話になります。
返答遅くなり申し訳ありません。

今回実施したかった内容として
オートフィルタで非表示になっている行があったとしても
A列の値をすべて取得したいといった内容でした。。

オートフィルタにて設定されていない場合は、
以下でA列の値がすべて取得できるかと思います。

```vba
Set r = Range("A1", Range("A" & Rows.Count).End(xlUp))
```

ただオートフィルタにて非表示とした場合
End(xlUp)のヒットする行が表示行のみとなるため
これをなんとかしたいという内容でした。

そもそもの質問内容が誤っており申し訳ありません。
※一応質問時は、開始行から最終行までの値を取得するために
　最終行を取得したかったという意図もありました

[mattuwan]

で、紹介したコードで、セル範囲が特定できませんでしたか？