【Excel VBA】最終行を取得したい

今回やりたいこと🙌

下方向(↓)へ検索して最終行を取得したり

上方向(↑)へ検索して最終行を取得したい！

VBA紹介😊

下方向(↓)へ検索して最終行を取得する方法
・A列を上から下方向へ検索して、最初に見つけた空白のセルの1つ上のセルを”最終行”として取得後
　メッセージボックスで表示する。

Sub 上から最終行取得()

 Dim 最終行 As Long

    最終行 = Cells(1, "A").End(xlDown).Row
    
    MsgBox 最終行
    
End Sub

実行結果

上方向(↑)へ検索して最終行を取得する方法
・A列を下から上方向へ検索して、最初に見つかった空白でないセルを”最終行”として取得後
　メッセージボックスで表示する。

Sub 下から最終行取得()

 Dim 最終行 As Long
 
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row
    
    MsgBox 最終行
    
End Sub

実行結果

おわりに👻

空白のセルの1つ上のセルまでを最終行として取得します。
下方向への検索がいいのか、上方向への検索がいいのか用途に合わせて使用してください🌈