シートの最終行を取得するメモ。
common.bas
Dim LastRow As Long
'シートの最終行取得
LastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
MsgBox LastRow
- 参考文献
Office VBA Reference
シートの最終行を取得するメモ。
Dim LastRow As Long
'シートの最終行取得
LastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
MsgBox LastRow