セルの最終行と最終列を取得する

① Cells(Rows.Count, 1).End(xlUp).Row

  推奨ステートメント 利点:セルの最終行から上にサーチするので途中に空白があってもOK

② Cells(1, Columns.Count).End(xlToLeft).Column

  推奨ステートメント 利点:セルの最終列から左にサーチするので途中に空白があってもOK

③ Cells(1, 1).End(xlDown).Row

  欠点:セルの先頭行から下にサーチする際、途中に空白があるとそれを返す

④ Cells(1, 1).End(xlToRight).Column

  欠点:セルの先頭列から右にサーチする際、途中に空白があるとそれを返す