列や行の終端
連続したデータが入っているとしてその行の最後の行は何行なのかを知りたい場合は多いです。 いろいろな方法がありますが、例えば、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