セルの最終行を調べる

今更な感じの基本的なテクニックだが、ほかの言語を触るとすぐに忘れてしまうので記事にしておく。

Dim MaxRow As Long
MaxRow = Cells(Rows.Count, 1).End(xlUp).Row

"Rows.Count"はsheetの最終行
xlsxなら1048576、xlsファイルなら65536

.Endプロパティは
キーボードでの[Ctrl] + [方向キー] の操作で移動する先のセルへの参照