Sub アクティブウィンドウのセル範囲を取得する()
セル範囲 = ActiveCell.Row
領域の数 = Selection.Rows.Count
MsgBox (セル範囲)
MsgBox (領域の数)
End Sub