获取从当前活动单元格开始到边界单元格的区域VBA

nnsea

' 从当前单元格到最顶端
Sub SelectUp()
    Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub
'从当前单元格到最底端
Sub SelectDown()
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub
'从当前单元格到最右端（等同于xlEnd）
Sub SelectToRight()
    Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub
'从当前单元格到最左端
Sub SelectToLeft()
    Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub