Excel VBA 范围包含介绍

在 Excel VBA 中，范围是最常用的对象之一。范围指代的是一组单元格，我们可以对其进行访问、读写操作。范围的应用非常广泛，比如说我们可以使用范围来进行数据处理、设置格式、复制粘贴等等。

在本文中，我们将介绍 Excel VBA 中范围包含的相关知识。

Range 对象

在 Excel VBA 中，范围是通过 Range 对象来表示的。Range 对象有多种创建方式，比如使用 Range 函数、使用 Cells 函数，或者使用 Rows 函数和 Columns 函数等。

我们来看一个例子：

Dim rng As Range
Set rng = Range("A1:B2") ' 使用 Range 函数获取 A1:B2 范围

上述代码中，我们使用 Range 函数，传入 A1:B2，即可获取 A1:B2 这个范围对象，将其赋值给了 rng 这个变量。

范围包含判断

判断某一个范围是否包含另一个范围，我们可以使用 Intersect 函数。Intersect 函数可以返回两个范围对象的交集，如果交集为空，则表示两个范围没有交集，即不包含。

以下是一个例子：

Dim rng1 As Range, rng2 As Range
Set rng1 = Range("A1:B2")
Set rng2 = Range("B2:C3")
If Intersect(rng1, rng2) Is Nothing Then
    MsgBox "rng1 不包含 rng2"
Else
    MsgBox "rng1 包含 rng2"
End If

上述代码中，我们创建了两个范围对象 rng1 和 rng2，分别表示 A1:B2 和 B2:C3 两个范围。然后使用 Intersect 函数获取两个范围的交集，如果交集为空，则表示 rng1 不包含 rng2，否则表示 rng1 包含 rng2。

判断单元格是否在范围内

判断一个单元格是否在某一范围内，可以使用 Application.Intersect 函数。该函数与 Intersect 函数类似，不同之处在于，前者可以判断单元格是否在范围内，而后者只能判断范围内是否有交集。

以下是一个例子：

Dim cell As Range, rng As Range
Set cell = Range("A1")
Set rng = Range("A1:B2")
If Not Application.Intersect(cell, rng) Is Nothing Then
    MsgBox "cell 在 rng 范围内"
End If

上述代码中，我们创建了一个单元格对象 cell，表示 A1 单元格，和一个范围对象 rng，表示 A1:B2 范围。然后使用 Application.Intersect 函数判断单元格 cell 是否在范围 rng 内。

判断范围是否相等

判断两个范围是否相等，可以使用 Range 对象的 Address 属性进行比较。如果两个范围的 Address 属性相等，则认为它们相等。

以下是一个例子：

Dim rng1 As Range, rng2 As Range
Set rng1 = Range("A1:B2")
Set rng2 = Range("A1:B2")
If rng1.Address = rng2.Address Then
    MsgBox "rng1 和 rng2 相等"
End If

上述代码中，我们创建了两个范围对象 rng1 和 rng2，它们的单元格范围都是 A1:B2。然后使用 Address 属性比较它们的范围地址是否相等。

参考资料

• Excel VBA Range
• Excel VBA Intersect
• Excel VBA Address