Excelの最終行を取得

質問

ワークブックモジュールにこんなVBAを追加しました。

'入力行のセルをアクティブにする
Private Sub Workbook_Open()
Dim 入力行 As Long
入力行 = Worksheets(1).Range("A3"). _
CurrentRegion.Rows.Count + 1

Worksheets(1).Cells(入力行, 2).Select

End Sub

これは問題なく実行されました。
しかし、以前にこのような関数をA500まで設定していたので空白の行をアクティブにしてしまいました。

=IF(OR($B487<>"",$C487<>"",$D487<>"",$E487<>"",$F487<>""),ROW()-2,"")

関数を消すと実際の最終行を取得することはできたのですが、行番号の関数は追加されませんでした。

テーブルの大きさに合わせて自動で関数を追加するというようなことはできるのでしょうか？また更にいい方法があれば教えてください。

回答No.1

kkkkkm · ベストアンサー

先日ある質問者さんが質問の中で最終行を求めるのに利用していた方法です。

セルが未入力もしくは関数式などで""で指定されて空白状態になっているセルまでを上から検索します。
なので、検索開始点から実際に取得したい最終行までに上記の状態のセルがある場合は使えません。

Range("A3").Rowは実際の開始点のセルを指定してください。

Dim i As Long, 入力行 As Long

i = Range("A3").Row
Do While Not IsEmpty(Cells(i, "A").Value) And Cells(i, "A").HasFormula = False
i = Cells(i, "A").Row + 1
Loop
入力行 = i

お礼

回答ありがとうございます。解決しました。
前任者が作った表ですがフィルターが付いてあるだけで、よく見るとテーブルにしてありませんでした。そのマクロは別の機会に参考にさせて頂きます。