最終行か、否か (ID:109246)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 まず最終行のセルを取得して、 指定セルとRowプロパティを比較してみては いかがでしょうか？ 指定のセルを(x,y)とします。 Cells(ActiveSheet.Rows.Count,y).End(xlUp).Select '最終行取得 a = ActiveCell.Row '最終行の行数 if a > y then '指定のセルbは最終行ではない。 end if