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

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

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

在VBA中，我們可以使用一些簡(jiǎn)單的代碼來(lái)方便地選擇多個(gè)單元格區(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

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

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

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

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