ExcelシートにおいてA列の最終行を求めるには？

mintman 2006-07-03 01:20:01 No: 132159

Excelシート内でA列の中の最終行(空白ではない最後の行)を求める方法がどうしてもわかりません。
どなたかご教授お願いいたします。

グラーフ 2006-07-03 18:11:11 No: 132160

バージョンが分からないのでWindows2000&Excell2000

ThisWorkbook.Worksheets("Sheet1").Range("A1").Select
Selection.End(xlDown).Select

思いっきり力技なので参考程度にどうぞ

通りすがり 2006-07-14 23:55:47 No: 132161

解決しましたか？
先日開発していたプロシージャからの抜き出しですが、
こんなのではいかがでしょう？

AppExcel.Sheets("Sheet1").Cells(1, 1).CurrentRegion.Rows.Count

※注意※
AppExcel → CreateObject("Excel.Application")