投稿日: 投稿者: lucky

最終行、最終列取得

最終行の取得（Ctrl+↓） 
Cells(1, 1).End(xlDown).Row
最終行の取得（Ctrl+↑） 
Cells(Rows.Count, 1).End(xlUp).Row
最終行の取得（Ctrl+→） 
Cells(1, 1).End(xlToRight).Column
最終行の取得（Ctrl+←） 
Cells(1, Columns.Count).End(xlToLeft).Column