ある範囲内で最も下にあるデータ入りのセルアドレスを取得するマクロ

質問

A1:B100の範囲において、
データが入った最も下にあるセルの行番号を取得するコードを組みたいです。
A列には１，３，５行目に数値が、
B列には２，４，６行目に数値が入っている状態では、一番下はB6なので「６」を取得するコードです。

A列でCtrl + ↓を何度も実行し、行番号が100を超える１回前のアドレスを取得。
B列でも同じ操作でアドレスを取得。
二つのアドレスの行番号を比較して大きいほうが最も下の行番号、
などというコードを考えましたが（思いついただけで組めてません）、
より簡単な方法があれば教えてください。

回答No.1

merlionXX · ベストアンサー

上からCtrl + ↓を何度も実行しなくとも、下からやれば一発ですよね。

Sub TEST01()
MsgBox Application.Max(Range("A101").End(xlUp).Row, Range("B101").End(xlUp).Row)
End Sub

これではいかがでしょう？

お礼

回答ありがとうございます。

>下からやれば一発ですよね。
た、確かに（笑）。
あまりにあっさりしていて笑ってしまいました。
ありがとうございました。