最終行の取得

ファイルの最終行が何行目になっているのかを調べるマクロです。私はこれができるようになってマクロの作成の幅がすごく広がりました。

【事例１】
Sub last_row()
Range("A1").Select
Selection.End(xlDown).Select
endcel = ActiveCell.Address
cellend = Mid(endcel, 4)
MsgBox "このシートの最終セル：" & cellend
End Sub

【事例２】
Sub last_row()
cellend=Range("A1").CurrentRegion.Rows.Count
MsgBox "このシートの最終セル：" & cellend
End Sub

なんでもないマクロですがこれで最終行が何行目なのかがわかれば、データベースなどから取り出したデータを用いてグラフを書くなどのマクロもイチコロになります．お試しあれ．