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

2、使用alt+f11組合快捷鍵進入vbe編輯器,插入一個新的模塊,并在模塊中輸入以下代碼:
Option Explicit
Sub Random()
Dim myRange As Range
Dim rng As Range
'設置對單元格區域的引用
Set myRange = Worksheets("Sheet1").Range("A1:D5")
Set rng = Worksheets("Sheet1").Range("e1:i5")
'對Range對象進行操作
myRange = "=rand()"
rng.Value = myRange.Value
myRange.Font.Bold = True
End Sub

3、這里我們設置了2個區域變量,直接聲明它們是range類型,這樣才能對其區域單元格進行引用。如果去掉類型聲明,那么過程將會報錯需要對象。這點大家要注意。
Dim myRange
Dim rng 會報錯。

4、我們先來設置以下區域單元格的范圍,這里myRange是在sheet1工作表中的a1到d5的矩形連續單元格范圍。而rng是同樣sheet1工作表中的e1到i5的矩形連續單元格。

5、因為聲明了range類型,所以我們這里直接可以對myRange變量進行賦值,使用=號直接賦值即可。由于我們賦值的是一個excel程序函數,所以要用雙引號括起來。

6、接著重點是,如果要對這個區域內的單元格值進行引用,我們必須清楚寫清楚是引用的兩個區域的值value。寫法就要這樣
rng.Value = myRange.Value

7、最后我們可以得到正確的結果,在這兩個區域中myRange是隨機函數公式,而rng是固定的當次運行隨機函數后的值。這里兩個值不對應一致是因為在粘貼操作后rand()函數重新計算了一次的結果。

以上就是在excel表格中使用vba引用單元格區域方法介紹,操作并不是很難,大家按照上面步驟進行操作即可,希望能對大家有所幫助!
新聞熱點
疑難解答