【Excel】VBAで途中の空白行は無視し、最終行を取得する

VB

値の入っている列の最終行までloopで全件参照。
しかし所々に空白行があるので、値の入っている最終行を取得する事に・・・

取得手順

方法として、最後の行(下)から上に値を入っている場所を探して行数を求める。
(以下数字の1は列指定で、B列であれば2になる)

Cells(Rows.Count, 1).End(xlUp).Row

この結果を最大行とし、For~Nextでこの結果の値まで回せば良いでしょう。

まとめ

使用する頻度は少ないとは思いますが、今回のような残しておけば後々使うかな?っていう事もあるので備忘録として残しておきます。

コメント