Excel VBAExcel VBA開発 虎の巻

列や行の終端

カテゴリ:セルの範囲

連続したデータが入っているとしてその行の最後の行は何行なのかを知りたい場合は多いです。 いろいろな方法がありますが、例えば、A3セルから始まる表の範囲を知りたいとき、CurrentRegionを使うとよいでしょう。
gyosu = Range("A3").CurrentRegion.Rows.Count

ただし、これで求まるのは行数ですので最後の行の位置(行番号)を求めるには起点を差し引かなくてはなりません。例えば、A3セルから始まって4行分の範囲の場合、最後の行は6です。ですから、以下のように求めます。
gyosu = Range("A3").CurrentRegion.Rows.Count
lastgyo = gyoso+3-1

列の場合には、RowsがColumns になります。
retusu = Range("A3").CurrentRegion.Columns.Count

カテゴリ:セルの範囲の記事


Excel VBA基本レッスン Amazon Kindle版発売中!