Range.CurrentRegion 属性

nnsea

'Range.CurrentRegion 属性
'返回一个 Range 对象，该对象表示当前区域。
Sub 当前区域()
    [a1].CurrentRegion.Select
    [f8].CurrentRegion.Select
End Sub

Sub currentregion应用()
    Rows(8).Clear
    a = [b2].CurrentRegion.Address
    b = [b5].CurrentRegion.Address
    c = [b2].CurrentRegion.Count + 1
    Set c = Range("b8", Cells(8, c))
    c.FormulaArray = "=" & a & "+" & b
End Sub

'usedrange与currentregion
'如果表中只有一个区域，两者最后的结果是一样的
'只是表达方式不一样
Sub u与c()
Sheet3.UsedRange.Select
[a1].CurrentRegion.Select
End Sub