VBAの最終行を求めるプログラムを指定範囲にするプログラム

お世話になっております。
Excelの表でE2セルからE30セルまでデータが入力されており、そのセルの最終行を求めるプログラムをmaxrow=Cells(Rows.Count, "E").End(xlUp).row
としておりました。
しかしE31セルから下に異なるデータを入力する事になり、上記のプログラムですと上書きして出力してしまう問題が起こる為、セルの範囲をE2セルからE30セルまでに指定する方法をご教示いただきたい内容になります。

よろしくお願い致します。

質問者からの補足コメント

• 補足内容がございます。
  変数にDim row, col, maxrow As Long
  と宣言しております。
  
  よろしくお願い致します。

    補足日時：2017/06/27 23:24

No.1 ベストアンサー 回答者： shut0325 回答日時： 2017/06/28 00:29

単純にmaxrow=Cells(30, "E").End(xlUp).rowでよいと思います。

この時にE1からE30まで空っぽの場合、maxrowは1を返します。
2-maxrowが0より大きければ、範囲内は空っぽだと判断できると思います。

この回答へのお礼

shut0325様出来ました！
この様にすればよろしいのですね。
勉強になります。

この度はありがとうございました。

お礼日時：2017/06/28 02:29