マクロで最終行と最終列を調べる。 EXCEL VBA

以前、最終行と最終列を調べる関数を記載しましたが、
今回はマクロでその方法を記載したいと思います。
ちなみにアクティブセルに対しての調査になります。

A、Bは行数、列数で
C、Dはアドレスで検出します。

Sub マクロで最終行と最終列を調べる()
A = Cells(65536, ActiveCell.Column).End(xlUp).Row
B = Cells(ActiveCell.Row, 255).End(xlToLeft).Column
C = Cells(65536, ActiveCell.Column).End(xlUp).Address
D = Cells(ActiveCell.Row, 255).End(xlToLeft).Address
End Sub

シート内を調べるマクロもありますが、まだ使いこなせていないので
また、機会があれば記載したいと思います。

コメント 1

65536と記載せずに、
行=Cells(Rows.count,activecell.column).end(xlUP).row
列=cells(activecell.row,columns.count).end(xlToLeft).column
でいけますよ。

by ぶらり者 (2010-03-27 23:33)