VBAで最終行を取得する方法

スポンサーリンク

VBAに関する備忘録です。
かなり決まり文句的なコードです。
MaxRowという変数を用意して、任意の列の最終行を取得します。

Dim MaxRow As Long
Dim Clm as integer
Clm = 1 '最終行を取得する列
MaxRow = Cells(Rows.Count, Clm).End(xlUp).Row

ちなみに最終列を取得するコードもあります。

Dim MaxClm As Long
Dim Row as Long
Row = 1 '最終列を取得する行
MaxClm = Cells(Row, Columns.Count).End(xlToLeft).Column
スポンサーリンク
スポンサーリンク

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です