VBA フィルター後の最終行の行番号を取得したい

Question

実現したいこと

VBAでフィルター後にセルの最終行を取得したいです。
オートフィルター後に最終行を取得する記述をすると、フィルター後の
最終行ではなく、フィルターしていないときの最終行を取得してしまいます。

該当のソースコード

ws.ListObjects("テーブル1").Range.AutoFilter 12, ws.Cells(3, 2).Value

lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

Answer 1

End(xlDown)で下方向に移動するとフィルター後の最終行番号が取得できるようです。

lastrow = ws.Cells(1, 1).End(xlDown).Row

ただ、それを取得して何をしたいのでしょうか。それを使ってやりたいことう提示されるたら、別案を提示できるかもしれません。

例えば、
フィルター後表示されている行になんからの操作をしたいというのが目的なら、SpecialCells(xlCellTypeVisible) で表示されている行範囲を取得してFor Each でループ処理すればいいでしょう。

Office TANAKA - Excel VBA Tips[オートフィルタ[絞り込んだ行を操作する]]