シートの行数を取得する
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