Excel單元格引用、區(qū)域的引用，在VBA編程中，有著重要的意義。掌握單元格、區(qū)域的引用方法，可方便我們對(duì)數(shù)據(jù)進(jìn)行相應(yīng)的處理。下面，是單元格、區(qū)域的引用方法之總結(jié)，希望對(duì)您有幫助。

　　①用范圍來(lái)引用單元格及區(qū)域

　　可使用 Range 屬性來(lái)引用 A1 引用樣式中的單元格或單元格區(qū)域。下述子程序?qū)卧駞^(qū)域 A1:D5 的字體設(shè)置為加粗。

　　Workbooks("Book2").Sheets("Sheet2").Range("A1:D5") .Font.Bold = True

　　下表演示了使用 Range 屬性的一些 A1 樣式引用。

　　引用                   　　　　含義
　　----------------------------------
　　Range("A1")            　　　單元格 A1
　　Range("A1:B5")         　　 從單元格 A1 到單元格 B5 的區(qū)域
　　Range("C5:D9,G9:H16") 　多塊選定區(qū)域
　　Range("A:A")           　　　A 列
　　Range("1:1")           　　　 第一行
　　Range("A:C")           　　　從 A 列到 C 列的區(qū)域
　　Range("1:5")           　　　 從第一行到第五行的區(qū)域
　　Range("1:1,3:3,8:8") 　　　第 1、3 和 8 行
　　Range("A:A,C:C,F:F") 　　A 、C 和 F 列

　　②用編號(hào)引用單元格

　　通過(guò)使用行列編號(hào)，可用 Cells 屬性來(lái)引用單個(gè)單元格。該屬性返回代表單個(gè)單元格的 Range 對(duì)象。下例中，Cells(6,1) 返回 Sheet1 上的單元格 A6，然后將 Value 屬性設(shè)置為 10。

　　Worksheets("Sheet1").Cells(6, 1).Value = 10

　　因?yàn)榭捎米兞刻娲幪?hào)，所以 Cells 屬性非常適合于在單元格區(qū)域中循環(huán)，如下例所示。

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

　　注意   如果要同時(shí)更改某一單元格區(qū)域中所有單元格的屬性或?qū)ζ鋺?yīng)用方法，可使用 Range 屬性。

　　③引用行和列

　　可用 Rows 屬性或 Columns 屬性來(lái)處理整行或整列。這兩個(gè)屬性返回代表單元格區(qū)域的 Range 對(duì)象。下例中，用 Rows(1) 返回 Sheet1 上的第一行，然后將單元格區(qū)域的 Font 對(duì)象的 Bold 屬性設(shè)置為 True。

　　Worksheets("Sheet1").Rows(1).Font.Bold = True

　　下表舉例說(shuō)明了使用 Rows 和 Columns 屬性的一些行和列的引用。

　　引用              　 含義
　　------------------------
　　Rows(1)             第一行
　　Rows              　工作表上所有的行
　　Columns(1)         第一列
　　Columns("A")      第一列
　　Columns             工作表上所有的列

　　若要同時(shí)處理若干行或列，請(qǐng)創(chuàng)建一個(gè)對(duì)象變量并使用 Union 方法，將對(duì) Rows 屬性或 Columns 屬性的多個(gè)調(diào)用組合起來(lái)。下例將活動(dòng)工作簿中第一張工作表上的第一行、第三行和第五行的字體設(shè)置為加粗。

　　Worksheets("Sheet1").Activate
　　Dim myUnion As Range
　　Set myUnion = Union(Rows(1), Rows(3), Rows(5))
　　myUnion.Font.Bold = True

　　④用快捷記號(hào)引用單元格

　　可用方括號(hào)將 A1 引用樣式或命名區(qū)域括起來(lái)，作為 Range 屬性的快捷方式。這樣就不必鍵入單詞“Range”或使用引號(hào)，如下例所示。

　　Worksheets("Sheet1").[A1:B5].ClearContents

　　[MyRange].Value = 30

　　⑤引用命名區(qū)域

　　用名稱比用 A1 樣式記號(hào)更容易標(biāo)識(shí)單元格區(qū)域。若要命名選定的單元格區(qū)域，請(qǐng)單擊編輯欄左端的名稱框，鍵入名稱，再按 Enter。

　　⑥引用命名區(qū)域

　　下例引用了名為“MyBook.xls”的工作簿中的名為“MyRange”的單元格區(qū)域。

　　Range("MyBook.xls!MyRange").Font.Italic = True

　　下例引用名為“Report.xls”的工作簿中的特定工作表單元格區(qū)域“Sheet1!Sales”。

　　Range("[Report.xls]Sheet1!Sales").BorderAround Weight:=xlthin

　　若要選定命名區(qū)域，請(qǐng)用 GoTo 方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。

　　Application.Goto Reference:="MyBook.xls!MyRange"
　　Selection.ClearContents

　　下例顯示對(duì)于活動(dòng)工作簿將如何編寫相同的過(guò)程。

　　Application.Goto Reference:="MyRange"
　　Selection.ClearContents

　　在命名區(qū)域中的單元格上循環(huán)

　　下例用 For Each...Next 循環(huán)語(yǔ)句在命名區(qū)域中的每一個(gè)單元格上循環(huán)。如果該區(qū)域中的任一單元格的值超過(guò) limit 的值，就將該單元格的顏色更改為黃色。

　　Const Limit As Integer = 25
　　For Each c In Range("MyRange")
　　　If c.Value > Limit Then
　　　　c.Interior.ColorIndex = 27
　　　End If
　　Next c

　　接下篇…