最終行：xlDown
最終列：xlToRight
を使う。
例）
'A列の5行目を基準として最終行を取得します
MsgBox “最終行は : ” & Range(“A5”).End(xlDown).Row
'A列の5行目を基準として最終列を取得します
MsgBox “最終行は : ” & Range(“A5”).End(xlToRight).Column
セルの値が全部埋まっているとしたら、
さくっと二次元配列でとれそう。
http://www.happy2-island.com/excelsmile/smile03/capter00702.shtml
VBA データの最終行 最終列を知る方法
VBACATEGORY: google Analytics