使用VBA获取多个单元格区域的交叉范围

在Excel中，我们经常需要选择多个单元格区域，并且计算这些区域的交叉范围。如果没有一个简便的方法，我们可能需要小心地手动选择每个区域，否则可能会选择错误并需要重新开始操作。

VBA代码实现

在VBA中，我们可以使用一些简单的代码来方便地选择多个单元格区域的交叉范围：

Sub quyu()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng As Range
    Set rng1  Sheets(1).Range("D6:G13")
    Set rng2  Sheets(1).Range("G11:K15")
    Set rng  (rng1, rng2)
    MsgBox 
      "RAND()"
End Sub

首先，我们定义了三个变量作为区域对象，然后将所需选择的两个区域分别赋值给rng1和rng2。接下来，我们使用Intersect方法来计算这两个区域的交叉范围。

为了查看交叉范围的地址，我们使用MsgBox函数来显示rng变量的地址。请注意，必须使用rng对象的Address方法才能获得返回值。

最后，我们可以直接使用rng变量来对交叉范围进行赋值。在上述示例中，我们使用 "RAND()"的方式对交叉范围进行赋值。

这就是使用VBA获取多个单元格区域的交叉范围的方法。希望本文对您有所帮助。如果您还有其他问题或需要进一步咨询，请随时联系我们。谢谢观看！

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。