エクセルのシート上でオートフィルターを使った際に関する、VBA上でのコードの記述について

質問

大変稚拙な質問の仕方をお許しください。
エクセルのシート上で、オートフィルターを使ってデータを抽出した前提で、VBAを使ってある作業をするためのマクロを組もうと思ったのですが、抽出されて表示された一番最初データの行を確定させるコードの記述が思い浮かびません。なにかいい方法はないでしょうか？よろしくお願いします。

回答No.2

merlionXX · ベストアンサー

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

オートフィルタを設定したところより上に行がない場合

Sub test01()
Dim Ln As Long
Ln = 2
Do While ActiveSheet.Rows(Ln).Hidden
Ln = Ln + 1
Loop
MsgBox Ln & "行です。"
End Sub

お礼

行の確定ができました。大変参考になりました。ありがとうございます。

回答No.1

zabu-----n

'抽出前にデータ範囲を選択しておいてください
Selection.SpecialCells(xlCellTypeVisible).Areas(1).Rows(1).Select

お礼

また、ひとつコードを覚えることができました。ありがとうございます。