Excel VBA 组合范围 - VBA

在Excel VBA中，经常需要将多个单元格范围组合起来进行操作，这个过程就是组合范围。VBA提供了很多方法来实现这个目的。

Union方法

Union方法可以将两个或以上的范围组合成一个新的范围。

语法：

Set NewRange = Union(Range1, Range2, ...)

示例代码：

Sub UnionExample()
    Dim range1 As Range, range2 As Range, newRange As Range

    Set range1 = Range("A1:A5")
    Set range2 = Range("B1:B5")

    Set newRange = Union(range1, range2)

    newRange.Select
End Sub

这个例子将两个范围（A1:A5和B1:B5）组合成了一个新范围，并将新范围选中。

Merge方法

Merge方法可以将单元格范围合并为一个单元格。

语法：

Range.Merge [across]

示例代码：

Sub MergeExample()
    Range("A1:C3").Merge
End Sub

这个例子将A1到C3范围内的单元格合并成一个单元格。

Intersect方法

Intersect方法可以取两个或以上范围的交集。

语法：

Set NewRange = Intersect(Range1, Range2, ...)

示例代码：

Sub IntersectExample()
    Dim range1 As Range, range2 As Range, newRange As Range

    Set range1 = Range("A1:A5")
    Set range2 = Range("B1:B5")

    Set newRange = Intersect(range1, range2)

    newRange.Select
End Sub

这个例子取A1到A5和B1到B5的交集，并选中这个交集范围。

Resize方法

Resize方法可以改变单元格范围的大小。

语法：

Set NewRange = Range.Resize(RowSize[, ColumnSize])

示例代码：

Sub ResizeExample()
    Range("A1").Resize(3,3).Select
End Sub

这个例子将A1单元格的范围扩展为A1到C3的范围。