Excel/VBAでデータ最終行を高速で取得する方法

Excel/VBAでシート上のデータの最終行を一瞬で取得する方法についてです。

以下の例のように3887という最終行Noを取得しようとする場合、よくやりがちなのが1行目からセルを舐めていって空白セルを探すって方法ですが、これはあまりにも時間を要します。

 

そんなことをやらずとも一瞬で最終行を取得する方法が以下です。変数aにデータの最終行が入ります。（データが10000行未満の場合、想定されるありえない行数を指定する）

a = Range("A10000").End(xlUp).Row
 

 

A10000と10000万行目を指定していますが、想定上ありえない行を指定した状態でxlUpで一気に最終行までワープできるって方法です。

 

 - Excel, VBA