Excel VBA – 最終行の取得 その１
最終行の取得方法は、以下のソースコードの通りです。
実践的に、最終行の取得部分は関数化しています。
'メイン
Sub main()
'最終行の取得
MsgBox "最終行は" & getMaxRow & "です。"
End Sub
'最終行の取得関数
Function getMaxRow() As Long
Dim maxRow As Long
'最終行の取得
maxRow = Sheets("Sheet1").Range("A1").End(xlDown).Row
'戻り値
getMaxRow = maxRow
End Function
─────────────── ★
中小企業診断士 かとう
専門は、IT活用による業務改善です。
★───────────────
