VBA提高篇_17 区域合纵连横,单元格精准定位

Application.Union方法:

把多个Range联合在一起,作为一个新的Range对象返回

Sub RangeUnionDemo()
    Dim a&, r1 As Range, r2 As Range, r3 As Range
    Dim r4 As Range, r5 As Range
    
    Set r1 = Range("a1:a10")
    Set r2 = Range("c1:f10")
    Set r3 = Range("f1:g1")
    
    Set r4 = Application.Union(r1, r2, r3)
    r4.Interior.Color = vbYellow
End Sub

Application.Intersect方法:

找到同时属于多个Range的单元格(即重叠部分),作为一个新的Range对象返回

Sub RangeIntersectDemo()
    Dim a&, r1 As Range, r2 As Range, r3 As Range
    Dim r5 As Range
    
    Set r1 = Range("a1:a10")
    Set r2 = Range("c1:f10")
    Set r3 = Range("f1:g1")


    Set r5 = Application.Intersect(r2, r3)

    r5.Interior.Color = vbBlue
End Sub

Range.CurrentRegion属性:

返回一个包含了这个Range的最大连续使用区域,该区域与其他已使用的单元格都不相接

Range.Resize(3,2)

左上角开始选择取值区域(值一般不为0)

r1.size 不会改变r1 ,而是生成并返回一个新的Range对象

Range.Offset 单元格偏移属性

将该Range平移,得到新的Range对象,区域对象的大小与原Range对象相同

• r.currentRegion.Resize(1,1).offset(1,4).value = “未审核”