最大行数を取得するVBAコードとは？

質問

人生で初めてエクセルのマクロに挑戦してみた。が、《最大行数を取得するVBAコード》で躓いた。２時間ばかり、悪戦苦闘したがサッパリ判らない。苦肉の策で、SQL文を使った。でも、それじゃー解決したことにはならない。

Public Sub Do_XferPer()
　　Dim I As Integer
　　Dim N As Integer

　　Application.ScreenUpdating = False
　　'
　　'　先頭行の取得
　　'
　　N = DLookup("SELECT COUNT(*) FROM [Sheet3$A:A1000]") - 1
　　Debug.Print N
　　For I = 2 To N
　　　　If 0 Then
　　　　　　Cells(I, 1) = XferPer(Cells(I, 1))
　　　　End If
　　Next I
　　Application.ScreenUpdating = True

　　With ThisWorkbook.Worksheets("Sheet3").UsedRange
　　　　N = .Rows.Count - 1
　　　　Debug.Print N
　　End With

　　With Range("A1").SpecialCells(xlLastCell)
　　　　N = .Row - 1
　　　　Debug.Print N
　　End With
End Sub

【質問】　みなさんは、最大行数を取得するのにどのようなコードを書かれていますか？

　宜しくお願いします。

この投稿のマルチメディアは削除されているためご覧いただけません。

回答No.1

WDY · ベストアンサー

参考にどうぞ
http://www.niji.or.jp/home/toru/notes/8.html

お礼

完全に勘違いしていました。

＞見出しも勘定するのはエクセルでは当たり前。

このことを失念していました。あらためて、申しあげます。