VBA

最終行・最終列を取得するコード

セルA1を起点にして、表の一番下の行番号を取得する

Dim end_row as integer
end_row = Cells(1, 1).End(xlDown).Row

セルA1を起点にして、表の一番右の列番号を取得する

Dim end_column as integer
end_column = Cells(1, 1).End(xlRight).Column