在Excel中，我們經(jīng)常需要選擇多個單元格區(qū)域，并且計(jì)算這些區(qū)域的交叉范圍。如果沒有一個簡便的方法，我們可能需要小心地手動選擇每個區(qū)域，否則可能會選擇錯誤并需要重新開始操作。 VBA代碼實(shí)現(xiàn) 在V

在Excel中，我們經(jīng)常需要選擇多個單元格區(qū)域，并且計(jì)算這些區(qū)域的交叉范圍。如果沒有一個簡便的方法，我們可能需要小心地手動選擇每個區(qū)域，否則可能會選擇錯誤并需要重新開始操作。

VBA代碼實(shí)現(xiàn)

在VBA中，我們可以使用一些簡單的代碼來方便地選擇多個單元格區(qū)域的交叉范圍：

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

首先，我們定義了三個變量作為區(qū)域?qū)ο?，然后將所需選擇的兩個區(qū)域分別賦值給rng1和rng2。接下來，我們使用Intersect方法來計(jì)算這兩個區(qū)域的交叉范圍。

為了查看交叉范圍的地址，我們使用MsgBox函數(shù)來顯示rng變量的地址。請注意，必須使用rng對象的Address方法才能獲得返回值。

最后，我們可以直接使用rng變量來對交叉范圍進(jìn)行賦值。在上述示例中，我們使用 "RAND()"的方式對交叉范圍進(jìn)行賦值。

這就是使用VBA獲取多個單元格區(qū)域的交叉范圍的方法。希望本文對您有所幫助。如果您還有其他問題或需要進(jìn)一步咨詢，請隨時聯(lián)系我們。謝謝觀看！