ある名前で定義されたセル範囲の開始行(列)・終了行(列)は以下のマクロで取得できる。
ltr = Range("名前").EntireRow.Row ' 左上行 ltc = Range("名前").EntireColumn.Column ' 左上列 rbr = ltr + Range("名前").Rows.Count - 1 ' .Countでは1から数えてしまうのでマイナス1 右下行 rbc = ltc + Range("名前").Columns.Count - 1 ' .Countでは1から数えてしまうのでマイナス1 右下列
たとえば、ある名前で定義されたセル範囲の各行(各列)の合計を足し合わせるといった場合に有効な方法。
For Col = ltc To rbc Sum = 0 For Row = ltr To rbr Sum = Sum + Cells(Row, Col).Value Next Cells(ltr - 1, Col).Value = Sum Next
セル範囲の全部を足し合わせるのは簡単だけど、行(列)単位で計算するにはテクニックが必要。