excel中使用vba獲取多個單元格區(qū)域的交叉范圍

1、首先我們打開一個工作樣表作為例子。

2、在工作中，我們常常會遇到選擇多個工作表區(qū)域，而兩個工作表區(qū)域的交叉范圍如果需要我們再去選取的話，需要非常的小心，不然選擇錯誤了又得重新來過。

3、實際上我們用vba可以方便的對這個區(qū)域作出選擇。我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

Option Explicit

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 = Application.Intersect(rng1, rng2)

'MsgBox rng.Address

rng.Formula = "=rand()"

End Sub

4、先定義一下三個變量為區(qū)域變量，然后將選擇的兩個區(qū)域分別賦值給rng1，rng2.這里使用intersect方法來求取兩個范圍的交叉區(qū)域。

5、這里使用msgbox來顯示rng變量，不能直接使用，必須使用rng對象的address方法才有返回值。

6、但是rng變量可以直接用來賦值，我們可以直接使用rng.Formula = "=rand()"這樣的方式來對交叉范圍進行賦值。

相關推薦：

excel怎么使用vba的close關閉工作簿?

excel表格怎么利用vba自動填充公式?

excel怎么利用vba實現(xiàn)批量套打快遞單批量打印單據(jù)?