VBA：データが存在する最下行番号を取得
Function getLastRowNo(sheetName As String, colNo As Long, ByRef rtnLastRowNo as Long, ByRef ErrCode As String) As Boolean
On Error GoTo ErrHdl
ErrCode = ""
rtnLastRowNo = Worksheets(sheetName).Cells(Rows.Count, colNo).End(xlUp).Row
getLastRowNo = True
Exit Function
ErrHdl:
ErrCode = "getLastRowNo_Error"
getLastRowNo = False
End Function
