1、首先我们打开一个工作样表作为例子。
2、在图中,我们可以看到选择了两个不连续的单元格区域,这样的情况属于不包含。
3、而这个图例中,我们可以说rng1包含了rng2单元格区域。观察加深部分的选择区域即是rng2区域。
4、其实判断这个很简单,使用intersect方法是求取两个区域单元格相交叉的区域范围,所以如果相交叉的区域范围=其中某个比较晓得区域范围,那么就可以判断处rng1是否包含rng2了。
5、这里我们需要使用到对拇峨镅贪象的address方法,所以这里写一个if语句。if rng.addres = rng2.address then msgbox "rng1包含rng2"
6、我们运行一下这段代码,可以求出正确的值。Option ExplicitSub quyu()Dim rng1 As RangeDim rng2 As RangeDim rng As RangeSet rng1 = Sheets(1).Range("d7:j13")Set rng2 = Sheets(1).Range("e8:i12")Set rng = Application.Intersect(rng1, rng2)'MsgBox rng.AddressIf rng.Address = rng2.Address ThenMsgBox "rng1包含rng2"End IfEnd Sub
7、先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。