VBAで一番下にある入力済みセルを求める

「一番下の入力済みセルの、次のセル」を選択するイディオム。とってもよく使うので記録しておく。

Dim Bottom As Long
Bottom = ActiveSheet.Rows.Count
Cells(Bottom,1).End(xlUp).Offset(1).Select

詳しいことは「Excel VBA Story」ていうサイトに蘊蓄を交えて書いてある。

また、変数宣言なしで

Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1).Select

…と書く場面のほうが現実的には多い気がする。

参考

• Excel VBA Story