總結Excel之VBA編程之引用單元格、區域的各種方法下篇

　　Excel單元格引用、區域的引用，在VBA編程中，有著重要的意義。掌握單元格、區域的引用方法，可方便我們對數據進行相應的處理。下面，是單元格、區域的引用方法之總結，希望對您有幫助。

　　接上篇…

　　⑦相對於其他單元格來引用單元格

　　處理相對於另一個單元格的某一單元格的常用方法是使用 Offset 屬性。下例中，將位於活動工作表上活動單元格下一行和右邊三列的單元格的內容設置為雙下劃線格式。

　　ActiveCell.Offset(1, 3).Font.Underline = xlDouble

　　注意 可錄製使用 Offset 屬性（而不是絕對引用）的宏。在「工具」菜單上，指向「宏」，再單擊「錄製新宏」，然後單擊「確定」，再單擊錄製宏工具欄上的「相對引用」按鈕。

　　若要在單元格區域中循環，請在循環中將變數與 Cells 屬性一起使用。下例以 5 為步長，用 5 到 100 之間的值填充第三列的前 20 個單元格。變數 counter 用作 Cells 屬性的行號。

　　Dim counter As Integer　　For counter = 1 To 20　　　Worksheets("Sheet1").Cells(counter, 3).Value = counter * 5　　Next counter

　　⑧用Range對象引用單元格

　　如果將對象變數設置為 Range 對象，即可用變數名方便地操作單元格區域。

　　下述過程創建了對象變數 myRange，然後將活動工作簿中 Sheet1 上的單元格區域 A1:D5 賦予該變數。隨後的語句用該變數代替該區域對象，以修改該區域的屬性。

　　Dim myRange As Range　　Set myRange = Worksheets("Sheet1").Range("A1:D5")　　myRange.Formula = "=RAND()"　　myRange.Font.Bold = True

　　⑨引用工作表上的所有單元格

　　如果對工作表應用 Cells 屬性時不指定編號，該屬性將返回代表工作表上所有單元格的 Range 對象。下述 Sub 過程清除活動工作簿中 Sheet1 上的所有單元格的內容。

　　Worksheets("Sheet1").Cells.ClearContents

　　⑩引用多個單元格區域

　　使用適當的方法可以很容易地同時引用多個單元格區域。可用 Range 和 Union 方法引用任意組合的單元格區域；用 Areas 屬性可引用工作表上選定的一組單元格區域。

　　使用 Range 屬性

　　通過在兩個或多個引用之間放置逗號，可使用 Range 屬性來引用多個單元格區域。下例清除了 Sheet1 上三個單元格區域的內容。

　　Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _　　ClearContents

　　命名區域使得用 Range 屬性處理多個單元格區域更為容易。下例可在三個命名區域處於同一工作表時運行。

　　Range("MyRange, YourRange, HisRange").ClearContents

　　使用 Union 方法

　　用 Union 方法可將多個單元格區域組合到一個 Range 對象中。下例創建了名為 myMultipleRange 的 Range 對象，並將其定義為單元格區域 A1:B2 和 C3:D4 的組合，然後將該組合區域的字體設置為加粗。

　　Dim r1, r2, myMultipleRange As Range　　Set r1 = Sheets("Sheet1").Range("A1:B2")　　Set r2 = Sheets("Sheet1").Range("C3:D4")　　Set myMultipleRange = Union(r1, r2)　　myMultipleRange.Font.Bold = True

　　使用 Areas 屬性

　　可用 Areas 屬性引用選定的單元格區域或多塊選定區域中的區域集合。下述過程計算選定區域中的塊數目，如果有多個塊，就顯示一則警告消息。

　　If Selection.Areas.Count > 1 Then　　　MsgBox "Cannot do this to a multiple selection."　　End If