【Excel VBA】名前で定義されたセル範囲の開始行(列)・終了行(列)を取得する

ある名前で定義されたセル範囲の開始行(列)・終了行(列)は以下のマクロで取得できる。

    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

セル範囲の全部を足し合わせるのは簡単だけど、行(列)単位で計算するにはテクニックが必要。