文章目录 Application.Union方法: Application.Intersect方法: Range.CurrentRegion属性: Range.Resize(3,2) Range.Offset 单元格偏移属性 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(