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

      2016/11/24

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

おすすめ記事

1
2016年買って良かったモノを紹介します!

2016年もあとわずか。毎年恒例の買って良かったモノシリーズ、2016年版を紹介 ...

2
英語ができなかった僕がバイリンガルになるまでの5つの英語上達プロセス

英語ができなかった僕がバイリンガルと呼ばれるようになるまでに経験した過程を5つに分けて紹介します。

 - ソフトウェア