判断一个区域是否包含在另一个区域中的方法

1、首先我们打开一个工作样表作为例子。

2、在图中，我们可以看到选择了两个不连续的单元格区域，这样的情况属于不包含。

3、而这个图例中，我们可以说rng1包含了rng2单元格区域。观察加深部分的选择区域即是rng2区域。

4、其实判断这个很简单，使用intersect方法是求取两个区域单元格相交叉的区域范围，所以如果相交叉的区域范围=其中某个比较晓得区域范围，那么就可以判断处rng1是否包含rng2了。

5、这里我们需要使用到对象的address方法，所以这里写一个if语句。if rng.addres = rng2.address then msgbox "rng1包含rng2"

6、我们运行一下这段代码，可以求出正确的值。

Option Explicit

Sub quyu()

Dim rng1 As Range

Dim rng2 As Range

Dim rng As Range

Set rng1 = Sheets(1).Range("d7:j13")

Set rng2 = Sheets(1).Range("e8:i12")

Set rng = Application.Intersect(rng1, rng2)

'MsgBox rng.Address

If rng.Address = rng2.Address Then

MsgBox "rng1包含rng2"

End If

End Sub

7、先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。