Excelで最大の行数・列数を求める

==============================================================

Function EffectiveRow() As Long
' 行の最大数を求める A列固定
' Excelの最大行数(65536)から上方向(xlUp)に空白でないセルを探す
      EffectiveRow = Range("A65536").End(xlUp).Row
End Function

==============================================================

Function EffectiveColumn() As Long
' 列の最大数を求める   1行目固定
' Excelの最大列数(256)から左方向(xlToLeft)に空白でないセルを探す
  EffectiveColumn = Cells(1, 256).End(xlToLeft).Column
End Function
==============================================================