VBA Cell 最終行の取得

2018.05.07

最終行の取得

指定した列の最終行を取得します。
例は、１列目(Col=1)で取得

'最大行から上方向へ空でないセルを探す
MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

表の最終行を取得

以下の様な表の最終行を取得する場合
CurrentRegion()関数を使用します

MaxRow = Range("B3").CurrentRegion(Range("B3").CurrentRegion.Count).Row