◆最大の行数・列数を求める VBA でマクロを組む場合、セルの操作を For ループ等で廻して処理するのが一般的 だと思います。 その時に最大の行数や列数をカウントできなければ、汎用性の高いアプリケーションを 作成できません。 その方法について、いくつか紹介します。 Excelの最大行数は 64K 65,536 となっています。 以下は、A列の最後の行から上に向かって空白でないセルを探します。 Function EffectiveRow() As Long ' 行の最大数を求める A列固定 ' Excelの最大行数(65536)から上方向(xlUp)に空白でないセルを探す EffectiveRow = Range("A65536").End(xlUp).Row End Function 以下は列・行を変数にしたり、WookBook、Sheet を指定できるようにしたものです。 Functi