VBAで最終行、最終列を取得する

' 最終行の取得 '
MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
' 最終列の取得 '
MaxCol = Cells(1, Columns.Count).End(xlToLeft).Column

最終行（最終列）の取得には、大まかに以下の方法があります。

• Endプロパティを使って、上（左）から下（右）に検索する方法
• Endプロパティを使って、下（右）から上（左）に検索する方法
• UsedRangeプロパティを使って、使用済みのセルの範囲を取得する方法

表の中にデータが抜けているセルがある場合は、UsedRangeプロパティで大枠の範囲を取得する方法がベターですが、個人的には、表の下（右）から上（左）に検索する方法しか使っていないです。

なお、最終行、最終列の取得については、以下のページにまとまっています。

なにぬねのーつ ＞ No.8 ワークシートの最終行、最終列を取得する