步驟

1、首先我們打開(kāi)一個(gè)工作樣表作為例子。

2、使用alt+f11組合快捷鍵進(jìn)入vbe編輯器，插入一個(gè)新的模塊，并在模塊中輸入以下代碼：

Option Explicit

Sub Random()

Dim myRange As Range

Dim rng As Range

'設(shè)置對(duì)單元格區(qū)域的引用

Set myRange = Worksheets("Sheet1").Range("A1:D5")

Set rng = Worksheets("Sheet1").Range("e1:i5")

'對(duì)Range對(duì)象進(jìn)行操作

myRange = "=rand()"

rng.Value = myRange.Value

myRange.Font.Bold = True

End Sub

3、這里我們?cè)O(shè)置了2個(gè)區(qū)域變量，直接聲明它們是range類(lèi)型，這樣才能對(duì)其區(qū)域單元格進(jìn)行引用。如果去掉類(lèi)型聲明，那么過(guò)程將會(huì)報(bào)錯(cuò)需要對(duì)象。這點(diǎn)大家要注意。

Dim myRange 

Dim rng 會(huì)報(bào)錯(cuò)。

4、我們先來(lái)設(shè)置以下區(qū)域單元格的范圍，這里myRange是在sheet1工作表中的a1到d5的矩形連續(xù)單元格范圍。而rng是同樣sheet1工作表中的e1到i5的矩形連續(xù)單元格。

5、因?yàn)槁暶髁藃ange類(lèi)型，所以我們這里直接可以對(duì)myRange變量進(jìn)行賦值，使用=號(hào)直接賦值即可。由于我們賦值的是一個(gè)excel程序函數(shù)，所以要用雙引號(hào)括起來(lái)。

6、接著重點(diǎn)是，如果要對(duì)這個(gè)區(qū)域內(nèi)的單元格值進(jìn)行引用，我們必須清楚寫(xiě)清楚是引用的兩個(gè)區(qū)域的值value。寫(xiě)法就要這樣

rng.Value = myRange.Value

7、最后我們可以得到正確的結(jié)果，在這兩個(gè)區(qū)域中myRange是隨機(jī)函數(shù)公式，而rng是固定的當(dāng)次運(yùn)行隨機(jī)函數(shù)后的值。這里兩個(gè)值不對(duì)應(yīng)一致是因?yàn)樵谡迟N操作后rand（）函數(shù)重新計(jì)算了一次的結(jié)果。

以上就是在excel表格中使用vba引用單元格區(qū)域方法介紹，操作并不是很難，大家按照上面步驟進(jìn)行操作即可，希望能對(duì)大家有所幫助！