最終行の取得
指定した列の最終行を取得します。
例は、１列目(Col=1)で取得
'最大行から上方向へ空でないセルを探す MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
表の最終行を取得
以下の様な表の最終行を取得する場合
CurrentRegion()関数を使用します
MaxRow = Range("B3").CurrentRegion(Range("B3").CurrentRegion.Count).Row
VBA Cell 最終行の取得