VBA 指定した列の最終行を取得する関数

’::::::::::::::::::::::::::::::::::
'指定した列の最終行を取得する関数
'book:ファイル名
’sheetname :シート名
’startCow :数える範囲の指定開始列
’endCow :数える範囲の指定終了列
’::::::::::::::::::::::::::::::::::
Function getLastRow(book As Workbook, sheetname As String, startCow As Long, endCow As Long) As Long
Dim wbWK As Workbook
Set wbWK = book
With wbWK.Sheets(sheetname)
Dim lastRow As Long
lastRow = 1
For i = startCow To endCow
If lastRow < .Range(.Cells(65536, i), .Cells(65536, i)).End(xlUp).Row Then
lastRow = .Range(.Cells(65536, i), .Cells(65536, i)).End(xlUp).Row
End If
Next
getLastRow = lastRow
End With
End Function

コメントを残す

メールアドレスが公開されることはありません。