シートの行数を取得する

4行目からはじまるエクセルシート"SheetName"の有効な行数を取得する。

' シートオフセット開始行
Public Const SHEET_OFFSET As Integer = 4

' 有効かどうかを判定する列
Public Const COL_CODE As String = "A"

' 呼び出しサンプル
Private Sub CallSample()
    Dim row_count As Integer
    row_count = getRowCount()    
End Sub

' シートの行数を取得する関数
Function getRowCount() As Integer
    Dim ite As Integer
    For ite = SHEET_OFFSET To Worksheets("SheetName").Cells(Rows.count, COL_CODE).End(xlUp).row
    Next ite
    getRowCount = ite
End Function