引子：本文以MSDN中《Developers Guide to the Excel 2007 Range Object》一文為線(xiàn)索，整理并歸納了自已以前學(xué)習Range對象時(shí)的一系列學(xué)習筆記。輯錄于此，供有興趣的朋友參考。
毫無(wú)疑問(wèn)，Range對象是Excel對象模型中最重要的對象，幾乎所有與工作表有關(guān)的實(shí)質(zhì)性操作都涉及到Range對象，可以說(shuō)，熟悉并熟練運用Range對象是掌握Excel VBA編程的關(guān)鍵。下面，讓我們逐步了解、熟悉并開(kāi)始使用Range對象吧。

在VBA代碼中引用或選擇Excel工作表的單元格或單元格區域

在使用Excel VBA編程時(shí)，我們通常需要頻繁地引用單元格區域，然后再使用相應的屬性和方法對區域進(jìn)行操作。所謂單元格區域，指的是單個(gè)的單元格、或者包含連續或非連續的多個(gè)單元格組成的區域、或者是整行、整列、甚至是三維單元格區域等。
[應用1]引用當前工作表中的單個(gè)單元格（例如引用單元格C3）
可以使用下面列舉的任一方式引用當前工作表中的單元格（C3）：
（1）Range(“C3″)
（2）[C3]
（3）Cells(3, 3)
（4）Cells(3, “C”)
（5）Range(“C4″).Offset(-1)
Range(“D3″).Offset(, -1)
Range(“A1″).Offset(2, 2)
（6）若C3為當前單元格，則可使用：ActiveCell
（7）若將C3單元格命名為“Range1”，則可使用：Range(“Range1″)或[Range1]
（8）Cells(4, 3).Offset(-1)
（9）Range(“A1″).Range(“C3″)
此外，可以使用下面的代碼選擇當前工作表中的單元格D5：
ActiveSheet.Cells(5, 4).Select
或：ActiveSheet.Range(“D5″).Select
[應用2]引用當前工作表中的B2:D6單元格區域
可以使用下面列舉的任一方式引用當前工作表中的單元格區域B2:D6：
（1）Range(“B2:D6”)
（2）Range(“B2″, “D6″)
（3）[B2:D6]
（4）Range(Range(“B2″), Range(“D6″))
（5）Range(Cells(2, 2), Cells(6, 4))
（6）若將B2:D6區域命名為“MyRange”，則又可以使用下面的語(yǔ)句引用該區域：
① Range(“MyRange”)
② [MyRange]
（7）Range(“B2″).Resize(5, 3)
（8）Range(“A1:C5″).Offset(1, 1)
（9）若單元格B2為當前單元格，則可使用語(yǔ)句：Range(ActiveCell, ActiveCell.Offset(4, 2))
（10）若單元格D6為當前單元格，則可使用語(yǔ)句：Range(“B2″, ActiveCell)
下面的過(guò)程將單元格區域 A1:D5 的字體設置為加粗。

Sub FormatRange()      Workbooks("Book1").Sheets("Sheet1").Range("A1:D5") _          .Font.Bold = True  End Sub

Range(“A:A”)代表當前工作表中的A 列，Range(“1:1″)代表當前工作表中的第一行，Range(“A:C”)代表當前工作表中從 A 列到 C 列的區域，Range(“1:5″)代表當前工作表中從第一行到第五行的區域，Range(“1:1,3:3,8:8″)代表當前工作表中第 1、3 和 8 行，Range(“A:A,C:C,F:F”)代表當前工作表中的第A(yíng)、C和F 列。
下面是給單元格賦值的幾個(gè)例子。
示例1：

Sub test1()      Worksheets("Sheet1").Range("A5").Value = 22      MsgBox "工作表Sheet1內單元格A5中的值為" _         & Worksheets("Sheet1").Range("A5").Value  End Sub

示例2：

Sub test2()      Worksheets("Sheet1").Range("A1").Value = _      Worksheets("Sheet1").Range("A5").Value      MsgBox "現在A(yíng)1單元格中的值也為" & _          Worksheets("Sheet1").Range("A5").Value  End Sub

示例3：

Sub test3()      MsgBox "用公式填充單元格,本例為隨機數公式"      Range("A1:H8").Formula = "=Rand()"  End Sub

示例4：

Sub test4()      Worksheets(1).Cells(1, 1).Value = 24      MsgBox "現在單元格A1的值為24"  End Sub

示例5：

Sub test5()      MsgBox "給單元格設置公式,求B2至B5單元格區域之和"      ActiveSheet.Cells(2, 1).Formula = "=Sum(B1:B5)"  End Sub

示例6：

Sub test6()      MsgBox "設置單元格C5中的公式."      Worksheets(1).Range("C5:C10").Cells(1, 1).Formula = "=Rand()"  End Sub

示例7：

Sub test7()      MsgBox "給命名區域賦值."      ActiveSheet.Range("MyCell").Value = 1  End Sub

其中，MyCell為單元格區域的名稱(chēng)。
[應用3]引用當前工作表中不確定的單元格區域
有時(shí)，我們需要在代碼中依次獲取工作表中特定區域內的單元格，這通?？梢圆扇∠旅娴膸追N方式：
（1）Range(“A” & i)
（2）Range(“A” & i & “:C” & i)
（3）Cells(i,1)
（4）Cells(i,j)
其中，i、j為變量，在循環(huán)語(yǔ)句中指定i和j的范圍后，依次獲取相應單元格。
在下例中，Cells(6,1)返回Sheet1上的單元格A6，然后將Value屬性設置為 10。

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

因為可以用變量替代編號，所以Cells屬性非常適合于在單元格區域中循環(huán)，如下例中所示。

Sub CycleThrough()    

  Dim Counter As Integer  

    For Counter = 1 To 20       

   Worksheets("Sheet1").Cells(Counter, 3).Value = Counter    

  Next Counter

  End Sub

如果要同時(shí)更改某個(gè)區域中所有單元格的屬性（或將方法應用于該區域中的所有單元格），建議使用Range屬性。
[應用4]擴展引用當前工作表中的單元格區域
可以使用Resize屬性，例如：
（1）ActiveCell.Resize(4, 4)，表示自當前單元格開(kāi)始創(chuàng )建一個(gè)4行4列的區域。
（2）Range(“B2″).Resize(2, 2)，表示創(chuàng )建B2:C3單元格區域。
（3）Range(“B2″).Resize(2)，表示創(chuàng )建B2:B3單元格區域。
（4）Range(“B2″).Resize(, 2)，表示創(chuàng )建B2:C2單元格區域。
如果是在一個(gè)單元格區域（如B3:E6），或者一個(gè)命名區域中（如將單元格區域B3:E6命名為“MyRange”）使用Resize屬性，則只是相對于單元格區域左上角單元格擴展區域，例如：
代碼Range(“C3:E6″).Resize(, 2)，表示單元格區域C3：D6，并且擴展的單元格區域可以不在原單元格區域內。
因此，可以知道Resize屬性是相對于當前活動(dòng)單元格或某單元格區域中左上角單元格按指定的行數或列數擴展單元格區域。
再舉一些例子。
例1：要選擇當前工作表中名為“Database”區域，然后將該區域向下擴展5行，可以使用下面的代碼：

Range("Database").Select  Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count).Select

例2：選擇名為“Database”區域下方4行右側3列的一個(gè)區域，然后擴展2行和1列，可以使用下面的代碼：

Range("Database").Select  Selection.Offset(4, 3).Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 1).Select

[應用5]在當前工作表中基于當前單元格區域或指定單元格區域處理其它單元格區域
可以使用Offset屬性，例如：
（1）Range(“A1″).Offset(2, 2)，表示單元格C3。
（2）ActiveCell.Offset(, 1)，表示當前單元格下一列的單元格。
（3）ActiveCell.Offset(1)，表示當前單元格下一行的單元格。
（4）Range(“C3:D5″).Offset(, 1)，表示單元格區域D3:E5，即將整個(gè)區域偏移一列。
從上面的代碼示例可知，Offset屬性從所指定的單元格開(kāi)始按指定的行數和列數偏移，從而到達目的單元格，但偏移的行數和列數不包括指定單元格本身。正值表示向下和向右，負值表示向上和向左，零值則是指當前單元格。
例如，要選擇距當前單元格下面5行左側4列的單元格，可以使用下面的代碼：

ActiveCell.Offset(5, -4).Select

要選擇距當前單元格上方2行右側3列的單元格，可以使用下面的代碼：

ActiveCell.Offset(-2, 3).Select

注意：一定要保證當前單元格與所選單元格之間的距離在工作表范圍內，否則會(huì )出錯。
又如，要選擇距單元格C7下方5行右側4列的單元格，可以使用下面的代碼：

ActiveSheet.Cells(7, 3).Offset(5, 4).Select

或：

ActiveSheet.Range("C7").Offset(5, 4).Select

再舉一些例子。
例如，要選擇與名為“Test”的區域大小相同但在該區域下方4行右側3列的一個(gè)區域，可以使用下面的代碼：

ActiveSheet.Range("Test").Offset(4, 3).Select

如果該命名區域不在當前工作表中，可以先激活該工作表，然后再選擇，如下面的代碼：

Sheets("Sheet3").Activate  ActiveSheet.Range("Test").Offset(4, 3).Select

下面的例子計算移動(dòng)平均值：

Sub MovingAvg()      Dim rng As Range      Dim lngRow As Long      Set rng = Range("B1:B3")      For lngRow = 3 To 12          Cells(lngRow, "C").Value = WorksheetFunction.Sum(rng) / 3          Set rng = rng.Offset(1, 0)      Next lngRow  End Sub

上述代碼首先將B列中的前3個(gè)單元格設置為一個(gè)單元格區域，計算其平均值，并放置在單元格C3中。接著(zhù)，Offset屬性將單元格區域下移一行但仍在B列，計算單元格區域B2：B4的平均值，并將結果放置到單元格C4。代碼重復上述過(guò)程直到單元格B12。
[應用6]在當前工作表中引用交叉區域
可以使用Intersect方法，例如：

Intersect(Range("C3:E6"), Range("D5:F8"))

表示單元格區域D5:E6，即單元格區域C3:E6與D5:F8相重迭的區域。
又如，要選擇名為“Test”和“Sample”的兩個(gè)區域的交叉區域，可以使用下面的代碼：

Application.Intersect(Range("Test"), Range("Sample")).Select

注意，兩個(gè)區域必須在同一工作表中。
注意，如果兩個(gè)區域不存在交叉，那么該方法返回Nothing。
例如，下面的代碼選擇兩個(gè)命名區域的交叉部分，如果不存在交叉，則顯示一條消息。

Sub IntersectSample()      Worksheets("Sheet1").Activate      Set Intersect = Application.Intersect(Range("rng1"), Range("rng2"))      If Intersect Is Nothing Then          MsgBox "不存在交叉區域."      Else          Intersect.Select      End If  End Sub

[應用7]在當前工作表中引用多個(gè)區域
（1）可以使用Union方法，將多個(gè)區域組合到一個(gè)Range對象中。例如：

Union(Range("C3:D4"), Range("E5:F6"))

表示單元格區域C3:D4和E5:F6所組成的區域。
Union方法可以將多個(gè)非連續區域連接起來(lái)成為一個(gè)區域，從而可以實(shí)現對多個(gè)非連續區域一起進(jìn)行操作。
（2）也可以使用下面的代碼，即通過(guò)在兩個(gè)或多個(gè)引用之間插入逗號，可使用Range屬性引用多個(gè)區域：

Range("C3:D4, E5:F6")

或

[C3:D4, E5:F6]

注意：Range(“C3:D4″, “F5:G6″)，表示單元格區域C3:G6，即將兩個(gè)區域以第一個(gè)區域左上角單元格為起點(diǎn)，以第二個(gè)區域右下角單元格為終點(diǎn)連接成一個(gè)新區域。
同時(shí)，在引用區域后使用Rows屬性和Columns屬性時(shí)，注意下面代碼的區別：
①Range(“C3:D4″, “F8:G10″).Rows.Count，返回的值為8；
②Range(“C3:D4,F8:G10″).Rows.Count，返回的值為2，即只計算第一個(gè)單元格區域。
（3）可用Areas屬性引用選定的單元格區域或多塊選定區域中的區域集合。
例1：以下示例清除了 Sheet1 上三個(gè)區域的內容。

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

命名區域使得用Range屬性處理多個(gè)區域更加容易。以下示例可在所有這三個(gè)命名區域處于同一工作表時(shí)運行。

Sub ClearNamed()      Range("MyRange, YourRange, HisRange").ClearContents  End Sub

例2：為了同時(shí)選擇名為“Test”和“Sample”的兩個(gè)區域，可以使用下面的代碼：

Application.Union(Range("Test"), Range("Sample")).Select

注意，這兩個(gè)區域須在同一工作表中，如下面的代碼：

Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4"))

但Union方法不能處理不同工作表中的區域，可下面的代碼：

Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4"))

將會(huì )出錯。
例3：以下示例創(chuàng )建了名為 myMultipleRange 的 Range 對象，并將其定義為區域 A1:B2 和 C3:D4 的組合，然后將該組合區域的字體設置為加粗。

Sub MultipleRange()      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  End Sub

例4：下述過(guò)程計算選定區域中的塊數目，如果有多個(gè)塊，就顯示一則警告消息。

Sub FindMultiple()      If Selection.Areas.Count > 1 Then          MsgBox "不能對多個(gè)選區進(jìn)行操作."      End If  End Sub

[應用8]引用當前工作表中活動(dòng)單元格或指定單元格所在的區域（當前區域）
可以使用CurrentRegion屬性，例如：
（1）ActiveCell.CurrentRegion，表示活動(dòng)單元格所在的當前區域。
（2）Range(“D5″).CurrentRegion，表示單元格D5所在的當前區域。
當前區域是指周?chē)煽招谢蚩樟兴鶉傻膮^域。
下面的示例將當前工作表當前區域的值復制到剪貼板，然后將這些值插入到新工作表：

Sub CopyCurrentRegionValue()      Range("D5").Activate      ActiveCell.CurrentRegion.Select      Selection.Copy      Sheets.Add After:=Sheets(Sheets.Count)      Sheets(Sheets.Count).Name = "Sample"      Sheets("Sample").Select      Range("D5").Activate      ActiveSheet.Paste  End Sub

[應用9]引用當前工作表中已使用的區域
可以使用UsedRange屬性，例如：
（1）Activesheet.UsedRange，表示當前工作表中已使用的區域。
（2）Worksheets(“sheet1″).UsedRange，表示工作表sheet1中已使用的區域。
與CurrentRegion屬性不同的是，該屬性代表工作表中已使用的單元格區域，包括顯示為空行，但已進(jìn)行過(guò)格式的單元格區域。

'選取當前工作表中已使用的單元格區域  Sub SelectUsedRange()      MsgBox "選取當前工作表中已使用的單元格區域" _         & vbCrLf & "并顯示其地址"      ActiveSheet.UsedRange.Select      MsgBox ActiveSheet.UsedRange.Address  End Sub

[應用10]在單元格區域內指定特定的單元格
可以使用Item屬性，例如：
（1）Range(“A1:B10″).Item(5,3)指定單元格C5，這個(gè)單元格處于以區域中左上角單元格A1（即區域中第1行第1列的單元格）為起點(diǎn)的第5行第3列。因為Item屬性為默認屬性，因此也可以簡(jiǎn)寫(xiě)為：Range(“A1:B10″)(5,3)。
如果將A1:B10區域命名為”MyRange”，那么Range(“MyRange”)(5,3)也指定單元格C5。
（2）Range(“A1:B10″)(12,13)指定單元格M12，即用這種方式引用單元格，該單元格不必一定要包含在區域內。
同時(shí)，也不需要索引數值是正值，例如：
① Range(“D4:F6″)(0,0)代表單元格C3；
② Range(“D4:F6″)(-1,-2)代表單元格A2。
而Range(“D4:F6″)(1,1)代表單元格D4。
（3）也可以在單元格區域中循環(huán)，例如：
Range(“D4:F6″)(2,2)(3,4)代表單元格H7，即該單元格位于作為左上角單元格E5的第3行第4列(因為E5是開(kāi)始于區域中左上角單元格D4起的第2行第2列)。
（4）也能使用一個(gè)單個(gè)的索引數值進(jìn)行引用。計數方式為從左向右，即在區域中的第一行開(kāi)始從左向右計數，第一行結束后，然后從第二行開(kāi)始從左到右接著(zhù)計數，依次類(lèi)推。(注：從區域中第一行第一個(gè)單元格開(kāi)始計數，當第一行結束時(shí)，轉入第二行最左邊的單元格，這樣按一行一行從左向右依次計數。以單元格區域中第1個(gè)單元格開(kāi)始，按上述規則依次為第2個(gè)單元格、第3個(gè)單元格….等等)，例如：
Range(“A1:B2″)(1) 代表單元格A1；
Range(“A1:B2″)(2) 代表單元格B1；
Range(“A1:B2″)(3) 代表單元格A2；
Range(“A1:B2″)(4) 代表單元格B2。
這種方法可在工作表中連續向下引用單元格(即不一定是在單元格區域內，但在遵循相同的規律)，例如：
Range(“A1:B2″)(5)代表單元格A3；
Range(“A1:B2″)(14)代表單元格B7，等等。
也可以使用單個(gè)的負數索引值。
這種使用單個(gè)索引值的方法對遍歷列是有用的，例如，Range(“D4″)(1)代表單元格D4，Range(“D4″)(2)代表單元格D5，Range (“D4″)(11)代表單元格D14，等等。
同理，稍作調整后也可遍歷行，例如：
Range(“D4″).Columns(2)代表單元格E4，Range(“D4″).Columns(5)指定單元格H4，等等。
（5）當與對象變量配合使用時(shí)，Item屬性能提供簡(jiǎn)潔并有效的代碼，例如：

Set rng = Worksheets(1).[A1]

定義了對象變量后，像單元格方法一樣，Item屬性允許使用兩個(gè)索引數值引用工作表中的任一單元格，例如，rng(3,4)指定單元格D3。
[應用11]引用當前工作表中的整行或整列
見(jiàn)下面的示例代碼：
（1）Range(“C:C”).Select，表示選擇C列。
Range(“C:E”).Select，表示選擇C列至E列。
（2）Range(“1:1″).Select，表示選擇第一行。
Range(“1:3″).Select，表示選擇第1行至第3行。
（3）Range(“C:C”).EntireColumn，表示C列；
Range(“D1″).EntireColumn，表示D列。
同樣的方式，也可以選擇整行，然后可以使用如AutoFit方法對整列或整行進(jìn)行調整。
此外，可用Rows屬性或Columns屬性來(lái)處理整行或整列。這兩個(gè)屬性返回代表單元格區域的Range對象。在下例中，Rows(1)返回Sheet1上的第一行，然后將區域字體加粗。

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

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

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

[應用12]引用當前工作表中的所有單元格
可以使用下面的代碼：
（1）Cells，表示當前工作表中的所有單元格。
（2）Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells. Columns.Count))，其中Cells.Rows表示工作表所有行，Cells. Columns表示工作表所有列。
下面的過(guò)程清除活動(dòng)工作簿中Sheet1上所有單元格的內容。

Sub ClearSheet()      Worksheets("Sheet1").Cells.ClearContents  End Sub

[應用13]引用工作表中的特定單元格區域
在工作表中，您可能使用過(guò)“定位條件”對話(huà)框?？梢酝ㄟ^(guò)選擇菜單“編輯——定位”，單擊“定位”對話(huà)框中的“定位條件”按鈕顯示該對話(huà)框。這個(gè)對話(huà)框可以允許用戶(hù)選擇特定的單元格。例如：
（1）Worksheets(“sheet1″).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由帶有條件格式的單元格所組成的區域。
（2）ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示當前工作表中活動(dòng)單元格所在區域中所有空白單元格所組成的區域。
（3）選擇所有公式單元格

Sub SelectSpecialCells()      MsgBox "選擇當前工作表中所有公式單元格"      ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Select  End Sub

當然，還有很多常量和值的組合，可以讓您實(shí)現特定單元格的查找并引用。
[應用14]引用命名區域
使用名稱(chēng)比使用A1樣式記號更容易標識單元格區域。若要命名選定的單元格區域，請單擊編輯欄左端的名稱(chēng)框，鍵入名稱(chēng)，再按回車(chē)鍵。
例1：要選擇當前工作表中名為“Test”的區域，可以使用下面的代碼：

Range("Test").Select

或：

Application.Goto "Test"

例2：選擇同一工作簿中另一工作表上名為“Test”的區域，可使用下面的代碼：

Application.Goto Sheets("Sheet1").Range("Test")

也可以先激活工作表，再選擇：

Sheets("Sheet1").Activate  Range("Test").Select

例3：要選擇不同工作簿中工作表上名為“Test”的區域，可使用下面的代碼：

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")

也可以先激活工作表，再選擇：

Workbooks("BOOK2.XLS").Sheets("Sheet2").Activate  Range("Test").Select

例4：以下示例引用名為“MyBook.xls”的工作簿中名為“MyRange”的區域，并將該區域的字體設置為斜體：

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

例5：以下示例引用名為“Report.xls”的工作簿中特定工作表的區域“Sheet1!Sales”，并添加邊框線(xiàn)：

Sub FormatSales()      Range("[Report.xls]Sheet1!Sales").BorderAround Weight:=xlThin  End Sub

例6：要選定命名區域，可以使用GoTo方法。該方法將激活工作簿和工作表，然后選定該區域。

Sub ClearRange()      Application.Goto Reference:="MyBook.xls!MyRange"      Selection.ClearContents  End Sub

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

Sub ClearRange()      Application.Goto Reference:="MyRange"      Selection.ClearContents  End Sub

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

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

[應用15]選擇特別指定的單元格或單元格區域
下面的示例使用了如下圖1所示的工作表。

ActiveSheet.Range("A1").End(xlDown).Select

在圖1所示的工作表中運行上述代碼，將選擇單元格A4。

'選取最下方的單元格  Sub SelectEndCell()      MsgBox "選取當前單元格區域內最下方的單元格"      ActiveCell.End(xlDown).Select  End Sub

可以改變參數xlDown以選取最左邊、最右邊、最上方的單元格。
例2：選擇連續數據列底部的空單元格
要選擇連續單元格區域下面的空單元格，可以使用下面的代碼：

ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select

在圖1所示的工作表中運行上述代碼，將選擇單元格A5。
例3：選擇某列中連續數據單元格區域
要選擇列A中連續數據單元格區域，可以使用下面的代碼：

ActiveSheet.Range("A1", ActiveSheet.Range("A1").End(xlDown)).Select

或：

ActiveSheet.Range("A1:" & ActiveSheet.Range("A1").End(xlDown).Address).Select

在圖1所示的工作表中運行上述代碼，將選擇單元格區域A1：A4。
例4：選擇某列中非連續數據單元格區域
要選擇某列中非連續數據單元格區域，可以使用下面的代碼：

ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp)).Select

或：

ActiveSheet.Range("A1:" & ActiveSheet.Range("A1").End(xlDown).Address).Select

在圖1所示的工作表中運行上述代碼，將選擇單元格區域A1：A6。
例5：選擇一個(gè)矩形（規則的）單元格區域
要選擇圍繞某單元格的一個(gè)矩形區域，可以使用CurrentRegion屬性。CurrentRegion屬性將選擇四周被空行和空列圍繞的區域，如下面的代碼：

ActiveSheet.Range("A1").CurrentRegion.Select

在圖1所示的工作表中運行上述代碼，將選擇單元格區域A1：C4。也可以使用下面的代碼：

ActiveSheet.Range("A1", ActiveSheet.Range("A1").End(xlDown).End(xlToRight)).Select

或：

ActiveSheet.Range("A1:" & ActiveSheet.Range("A1").End(xlDown).End(xlToRight).Address).Select

若想選擇單元格區域A1：C6，可使用下面的代碼：

lastCol = ActiveSheet.Range("A1").End(xlToRight).Column  lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row  ActiveSheet.Range("A1", ActiveSheet.Cells(lastRow, lastCol)).Select

或：

lastCol = ActiveSheet.Range("A1").End(xlToRight).Column  lastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).Row  ActiveSheet.Range("A1:" & ActiveSheet.Cells(lastRow, lastCol).Address).Select

[應用16]選擇多個(gè)不同長(cháng)度的非連續列
例如，有如下圖2所示的工作表：

StartRange = "A1"  EndRange = "C1"  Set a = Range(StartRange, Range(StartRange).End(xlDown))  Set b = Range(EndRange, Range(EndRange).End(xlDown))  Union(a, b).Select

[應用17]設置當前單元格的前一個(gè)單元格和后一個(gè)單元格的值

Sub SetCellValue()      MsgBox "將當前單元格中前面的單元格值設為""我前面的單元格""" & vbCrLf _        & "后面的單元格值設為""我后面的單元格"""      ActiveCell.Previous.Value = "我前面的單元格"      ActiveCell.Next.Value = "我后面的單元格"  End Sub

[應用18]引用其它工作表或其它工作簿中的單元格區域
要引用其它工作表或其它工作簿中的單元格區域，只需在單元格對象前加上相應的引用對象即可，例如：
（1）Worksheets(“Sheet3″).Range(“C3:D5″)，表示引用工作表sheet3中的單元格區域C3:D5。
（2）Workbooks(“MyBook.xls”).Worksheets(“sheet1″).Range(“B2″)，表示引用MyBook工作簿中工作表Sheet1上的單元格B2。
此外，要選擇同一工作簿中另一工作表上的單元格E6，可以使用下面的代碼：

Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)

或：

Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))

也可以先激活該工作表，然后再選擇：

Sheets("Sheet2").Activate  ActiveSheet.Cells(6, 5).Select

同樣，例如要選擇另一工作簿中某工作表上的單元格F7，可以使用下面的代碼：

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)

或：

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7")

也可以先激活該工作簿中的工作表，然后再選擇：

Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate  ActiveSheet.Cells(7, 6).Select

又如，要選擇同一工作簿中另一工作表上的單元格區域D3：E11，可以使用下面的代碼：

Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")

或：

Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11")

也可以先激活該工作表，然后再選擇：

Sheets("Sheet3").Activate  ActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select

要選擇另一工作簿中某工作表上的單元格區域E4:F12，可以使用下面的代碼：

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")

或：

Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")

也可以先激活該工作表，然后再選擇：

Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate  ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select

說(shuō)明：使用Application.Goto方法，如果指定另一工作表（不是當前工作表）中的指定區域，在Range屬性中使用兩個(gè)Cells屬性時(shí)，則必須包括Sheets對象，如：

Application.Goto Sheets("Sheet1").Range(Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), Sheets("Sheet1").Cells(4, 5)))

[應用19]處理三維區域
如果要處理若干工作表上相同位置的單元格區域，可用Array函數選定兩張或多張工作表。下例設置三維單元格區域的邊框格式。

Sub FormatSheets()      Sheets(Array("Sheet2", "Sheet3", "Sheet5")).Select      Range("A1:H1").Select      Selection.Borders(xlBottom).LineStyle = xlDouble  End Sub

下例應用FillAcrossSheets方法，將Sheet2上區域中的格式和所有數據傳送到活動(dòng)工作簿中所有工作表上的相應區域。

Sub FillAll()      Worksheets("Sheet2").Range("A1:H1") _          .Borders(xlBottom).LineStyle = xlDouble      Worksheets.FillAcrossSheets (Worksheets("Sheet2") _          .Range("A1:H1"))  End Sub

[應用20]使用Range對象變量引用單元格
如果將對象變量設置為Range對象，即可以使用變量名輕松地操作單元格區域。
以下過(guò)程將創(chuàng )建對象變量myRange，然后將活動(dòng)工作簿中Sheet1上的區域A1:D5賦予該變量。隨后的語(yǔ)句用該變量名稱(chēng)代替Range對象，以修改該區域的屬性。

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

[應用21]其它的引用方式
對于Excel 2007以前的版本來(lái)說(shuō)：
（1）Cells(15)，表示單元格O1，即可在Cells屬性中指定單元格數字來(lái)選擇單元格，其計數順序為自左至右、從上到下，又如Cells(257)，表示單元格B1。
（2）Cells(, 256)，表示單元格IV1，但是如果Cells(, 257)，則會(huì )返回錯誤。
Excel 2007中增加了工作表列數和行數，因此上述限制相應改變。
說(shuō)明：上面的一些代碼在選擇單元格或單元格區域時(shí)，先激活工作表后選擇，這只是為了說(shuō)明的方便。實(shí)際上，在操作單元格時(shí)，只要引用了相應的單元格或單元格區域，不必先激活工作表。
小結：我們使用VBA對Excel進(jìn)行處理，一般是對其工作表中的數據進(jìn)行處理，因此，引用單元格區域是ExcelVBA編程中最基本的操作之一，只有確定了所處理的單元格區域，才能使用相應的屬性和方法進(jìn)行下一步的操作。
上面列舉了一些引用單元格區域的情形和方式，可以看出，引用單元格區域有很多方式，有一些可能不常用，可以根據工作表的所處的環(huán)境和個(gè)人編程習慣進(jìn)行選擇使用。
當然，在編寫(xiě)程序時(shí)，也可能會(huì )將上面的一些屬性聯(lián)合使用，以達到選取特定操作對象的目的，例如Offset屬性、Resize屬性、CurrentRegion屬性、UsedRange屬性等的組合。
下面對Range對象的一些常用屬性和方法進(jìn)行簡(jiǎn)單的小結。
1、Activate與Select
試驗下面的過(guò)程：

Sub SelectAndActivate()      Range("B3:E10").Select      Range("C5").Activate  End Sub

其結果如下圖所示：

Application.Range("B2") '代表當前工作表中的單元格B2

若引用當前工作表中的單元格，也可以忽略前面的Application對象。

Range("A1:D10") '代表當前工作表中的單元格區域A1:D10  Range("A1:A10,C1:C10,E1:E10") '代表當前工作表中非連續的三個(gè)區域組成的單元格區域

Range屬性也接受指向單元格區域對角的兩個(gè)參數，如：

Range("A1","D10") '代表單元格區域A1：D10

當然，Range屬性也接受單元格區域名稱(chēng)，如：

Range("Data") '代表名為Data的數據區域

Range屬性的參數可以是對象也可以是字符串，如：

Range("A1",Range("LastCell"))

3、單元格引用的快捷方式
可以在引用區域兩側加上方括號來(lái)快速引用單元格區域，如：
[B2]
[A1:D10]
[A1:A10,C1:C10,E1:E10]
[Data]
但其引用的是絕對區域。
4、Cells屬性
可以使用Cells屬性來(lái)引用Range對象。如：

ActiveSheet.Cells  Application.Cells '引用當前工作表中的所有單元格  Cell(2,2)  Cell(2,"B") '引用單元格B2  Range(Cells(1,1),Cells(10,5)) '引用單元格區域A1:E10

若想在一個(gè)單元格區域中循環(huán)時(shí)，使用Cells屬性是很方便的。
也可以使用Cells屬性進(jìn)行相對引用，如：

Range("D10:G20").Cells(2,3) '表示引用單元格區域D10:G20中第2行第3列的單元格，即單元格F11

也可使用語(yǔ)句：Range(“D10″).Cells(2,3)達到同樣的引用效果。
5、Offset屬性
Offset屬性基于當前單元格按所給參數進(jìn)行偏移，與Cells屬性不同的是，它基于0即基準單元格為0，如：
Range(“A10″).Cells(1,1)和Range(“A10″).Offset(0,0)都表示單元格A10
當想引用于基準單元格區域同樣大小的單元格區域時(shí)，則Offset屬性是有用的。
6、Resize屬性
可使用Resize屬性獲取相對于原單元格區域左上角單元格指定大小的區域。
7、SpecialCells方法
SpecialCells方法對應于“定位條件”對話(huà)框，如圖05-02所示：

Sub SumBelow()      Dim rng As Range      '匯總活動(dòng)單元格下方單元格的值      With ActiveCell          Set rng = Range(.Offset(1), .Offset(1).End(xlDown))          .Formula = "=SUM(" & _                  rng.Address(RowAbsolute:=False, ColumnAbsolute:=False) & ")"          .Copy Destination:=Range(.Cells(1), .Offset(1).End(xlToRight).Offset(-1))      End With  End Sub

10、Columns屬性和Rows屬性
Columns屬性和Rows屬性分別返回單元格區域中的所有列和所有行。
11、Areas集合
在多個(gè)非連續的單元格區域中使用Columns屬性和Rows屬性時(shí)，只是返回第一個(gè)區域的行或列，如：

Range("A1:B5,C6:D10,E11:F15").Rows.Count

將返回5。
此時(shí)應使用Areas集合來(lái)返回區域中每個(gè)塊的地址，如：

For Each rng In Range("A1:B5,C6:D10,E11:F15").Areas      MsgBox rng.Address  Next rng

12、Union方法和Intersect方法
當想從兩個(gè)或多個(gè)單元格區域中生成一個(gè)單元格區域時(shí)，使用Union方法；當找到兩個(gè)或多個(gè)單元格區域共同擁有的單元格區域時(shí)，使用Intersect方法。
當然，操作單元格或單元格區域有很多有用的技巧，這需要在實(shí)踐中總結和歸納。接下來(lái)的文章，我們將對Range對象的常用屬性和方法進(jìn)行詳解。

在 Excel 中如何使用 Visual Basic 過(guò)程選擇單元格/區域

打印

電子郵件

文章翻譯

對 Office 2003 用戶(hù)的重要通知： 若要繼續接收 Office 安全更新，請確保您運行的是 Office 2003 Service Pack 3 (SP3)。對 Office 2003 的支持將于 2014 年 4 月 8 日終止。如果要在支持終止后運行 Office 2003，為確保您繼續收到 Office 的所有重要安全更新，您需要升級到更新版本，例如 Office 365 或 Office 2013。有關(guān)更多信息，請參閱對 Office 2003 的支持將終止。 文章編號: 291308 - 查看本文應用于的產(chǎn)品 展開(kāi)全部 | 關(guān)閉全部 本文內容 概要 更多信息 1. 如何在活動(dòng)工作表上選擇單元格 2. 如何在同一工作簿中的另一工作表上選擇單元格 3. 如何在另外一個(gè)工作簿中的工作表上選擇單元格 4. 如何在活動(dòng)工作表上選擇單元格區域 5. 如何在同一工作簿中另一工作表上選擇單元格區域 6. 如何在另一工作簿中的工作表上選擇單元格區域 7. 如何在活動(dòng)工作表上選擇命名區域 8. 如何在同一工作簿中另一個(gè)工作表上選擇命名區域 9. 如何在另一工作簿中的工作表上選擇命名區域 10. 如何相對于活動(dòng)單元格選擇單元格 11. 如何相對于另一（非活動(dòng)）單元格選擇單元格 12. 如何相對于指定區域選擇單元格區域偏移 13. 如何選擇指定的區域并調整所選區域的大小 14. 如何選擇指定的區域、使之偏移然后調整其大小 15. 如何選擇兩個(gè)或更多指定區域的聯(lián)合 16. 如何選擇兩個(gè)或更多指定區域的交集 17. 如何選擇一列連續數據的最后一個(gè)單元格 18. 如何選擇一列連續數據底部的空白單元格 19. 如何在一列中選擇整個(gè)相鄰單元格區域 20. 如何在一列中選擇整個(gè)非連續單元格區域 21. 如何選擇矩形單元格區域 22. 如何選擇長(cháng)度不一的多個(gè)非相鄰列 關(guān)于示例的說(shuō)明 參考 屬性 提供反饋 概要 當您創(chuàng )建 Microsoft Visual Basic for Applications 宏或過(guò)程時(shí)，可以從多種方法中選擇用于選擇單元格、區域和命名區域的方法。本文包含一些示例代碼，用以演示其中的某些方法。 本文包括以下示例： 如何在活動(dòng)工作表上選擇單元格。 如何在同一工作簿中的另一工作表上選擇單元格。 如何在另外一個(gè)工作簿中的工作表上選擇單元格。 如何在活動(dòng)工作表上選擇單元格區域。 如何在同一工作簿中另一工作表上選擇單元格區域。 如何在另一工作簿中的工作表上選擇單元格區域。 如何在活動(dòng)工作表上選擇命名區域。 如何在同一工作簿中的另一工作表上選擇命名區域。 如何在另一工作簿中的工作表上選擇命名區域。 如何相對于活動(dòng)單元格選擇單元格。 如何相對于另一（非活動(dòng)）單元格選擇單元格。 如何相對于指定區域選擇單元格區域偏移。 如何選擇指定的區域并調整所選區域的大小。 如何選擇指定的區域、使之偏移然后調整其大小。 如何選擇兩個(gè)或更多指定區域的聯(lián)合。 如何選擇兩個(gè)或更多指定區域的交集。 如何選擇一列連續數據的最后一個(gè)單元格。 如何選擇一列連續數據底部的空白單元格。 如何在一列中選擇整個(gè)相鄰單元格區域。 如何在一列中選擇整個(gè)非相鄰單元格區域。 如何選擇矩形單元格區域。 如何選擇長(cháng)度不一的多個(gè)非相鄰列。 注意，這些示例并不一定是執行所述操作的最佳或唯一做法。因為 Visual Basic 具有靈活性，所以執行同一操作時(shí)往往有多種不同的方法。 回到頂端 | 提供反饋 更多信息 Microsoft 提供的編程示例只用于說(shuō)明目的，不附帶任何明示或默示的保證。這包括但不限于對適銷(xiāo)性或特定用途適用性的默示保證。本文假定您熟悉所演示的編程語(yǔ)言和用于創(chuàng )建和調試過(guò)程的工具。Microsoft 的支持工程師可以幫助解釋某個(gè)特定過(guò)程的功能，但是他們不會(huì )修改這些示例以提供額外的功能或構建過(guò)程以滿(mǎn)足您的特殊需求。 本文中的示例將使用下表中所列的 Visual Basic 方法。 方法 參數------------------------------------------Activate 無(wú)Cells rowIndex, columnIndexApplication.Goto reference, scrollOffset rowOffset, columnOffsetRange cell1cell1, cell2Resize rowSize, columnSizeSelect noneSheets index（或 sheetName）Workbooks index（或 bookName）End directionCurrentRegion 無(wú) 本文中的示例將使用下表中所列的屬性。 屬性 用途---------------------------------------------------------------------ActiveSheet 指定活動(dòng)工作表ActiveWorkbook 指定活動(dòng)工作簿Columns.Count 計算指定項中的列數Rows.Count 計算指定項中的行數Selection 表示當前選中的區域 1. 如何在活動(dòng)工作表上選擇單元格 要在活動(dòng)工作表上選擇單元格 D5，可以使用以下任一示例： ActiveSheet.Cells(5, 4).Select - 或者 - ActiveSheet.Range("D5").Select 2. 如何在同一工作簿中的另一工作表上選擇單元格 要在同一工作簿中的另一工作表上選擇單元格 E6，可以使用以下任一示例： Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5) - 或者 - Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6")) 或者，您也可以激活工作表，然后使用上面的方法 1 來(lái)選擇單元格： Sheets("Sheet2").ActivateActiveSheet.Cells(6, 5).Select 3. 如何在另外一個(gè)工作簿中的工作表上選擇單元格 要在另一個(gè)工作簿中的工作表上選擇單元格 F7，可以使用以下任一示例： Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6) - 或者 - Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("F7") 或者，您也可以激活工作表，然后使用上面的方法 1 來(lái)選擇單元格： Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Cells(7, 6).Select 4. 如何在活動(dòng)工作表上選擇單元格區域 要在活動(dòng)工作表上選擇區域 C2:D10，可以使用以下任一示例： ActiveSheet.Range(Cells(2, 3), Cells(10, 4)).Select ActiveSheet.Range("C2:D10").Select ActiveSheet.Range("C2", "D10").Select 5. 如何在同一工作簿中另一工作表上選擇單元格區域 要在同一工作簿中的另一個(gè)工作表上選擇區域 D3:E11，可以使用以下任一示例： Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11") Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3", "E11") 或者，您也可以激活工作表，然后使用上面的方法 4 來(lái)選擇范圍： Sheets("Sheet3").ActivateActiveSheet.Range(Cells(3, 4), Cells(11, 5)).Select 6. 如何在另一工作簿中的工作表上選擇單元格區域 要在另一工作簿中的工作表上選擇區域 E4:F12，可以使用以下任一示例： Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12") Application.Goto _ Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12") 或者，您也可以激活工作表，然后使用上面的方法 4 來(lái)選擇范圍： Workbooks("BOOK2.XLS").Sheets("Sheet1").Activate ActiveSheet.Range(Cells(4, 5), Cells(12, 6)).Select 7. 如何在活動(dòng)工作表上選擇命名區域 要在活動(dòng)工作表上選擇命名區域“Test”，可以使用以下任一示例： Range("Test").Select Application.Goto "Test" 8. 如何在同一工作簿中另一個(gè)工作表上選擇命名區域 要在同一工作簿中的另一工作表上選擇命名區域“Test”，可以使用以下示例： Application.Goto Sheets("Sheet1").Range("Test") 或者，您也可以激活工作表，然后使用上面的方法 7 來(lái)選擇命名區域： Sheets("Sheet1").ActivateRange("Test").Select 9. 如何在另一工作簿中的工作表上選擇命名區域 要在另一工作簿中的工作表上選擇命名區域“Test”，可以使用以下示例： Application.Goto _ Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test") 或者，您也可以激活工作表，然后使用上面的方法 7 來(lái)選擇命名區域： Workbooks("BOOK2.XLS").Sheets("Sheet2").ActivateRange("Test").Select 10. 如何相對于活動(dòng)單元格選擇單元格 要選擇活動(dòng)單元格下面與其相距 5 行、左側與其相距 4 列的一個(gè)單元格，可以使用以下示例： ActiveCell.Offset(5, -4).Select 要選擇活動(dòng)單元格上面與其相距 2 行、右側與其相距 3 列的一個(gè)單元格，可以使用以下示例： ActiveCell.Offset(-2, 3).Select 注意：如果您嘗試選擇“工作表之外”的一個(gè)單元格，將會(huì )出現錯誤。在上面的第一個(gè)示例中，如果活動(dòng)單元格在 A 列到 D 列之間，則會(huì )返回一個(gè)錯誤，因為向左移動(dòng) 4 列將把活動(dòng)單元格移動(dòng)到一個(gè)無(wú)效的單元格地址。 11. 如何相對于另一（非活動(dòng)）單元格選擇單元格 要選擇單元格 C7 下面與其相距 5 行、右側與其相距 4 列的一個(gè)單元格，可以使用以下任一示例： ActiveSheet.Cells(7, 3).Offset(5, 4).Select ActiveSheet.Range("C7").Offset(5, 4).Select 12. 如何相對于指定區域選擇單元格區域偏移 要選擇一個(gè)與命名區域“Test”大小相同但下移 4 行、右移 3 列的單元格區域，可以使用以下示例： ActiveSheet.Range("Test").Offset(4, 3).Select 如果命名區域在另一個(gè)（非活動(dòng)）工作表上，請首先激活該工作表，接著(zhù)使用以下示例選擇該區域： Sheets("Sheet3").ActivateActiveSheet.Range("Test").Offset(4, 3).Select 13. 如何選擇指定的區域并調整所選區域的大小 要選擇命名區域“Database”，然后將所選區域擴展 5 行，可以使用以下示例： Range("Database").SelectSelection.Resize(Selection.Rows.Count + 5, _ Selection.Columns.Count).Select 14. 如何選擇指定的區域、使之偏移然后調整其大小 要選擇一個(gè)比命名區域“Database”偏下 4 行、偏右 3 列的區域并使之比命名區域多 2 行、1 列，可以使用以下示例： Range("Database").SelectSelection.Offset(4, 3).Resize(Selection.Rows.Count + 2, _ Selection.Columns.Count + 1).Select 15. 如何選擇兩個(gè)或更多指定區域的聯(lián)合 要選擇兩個(gè)命名區域“Test”和“Sample”的聯(lián)合（即合并區域），可以使用以下示例： Application.Union(Range("Test"), Range("Sample")).Select 注意，這兩個(gè)區域必須位于同一個(gè)工作表中，此示例才能運行。還要注意，Union 方法不可以跨工作表使用。例如，下面這一行可以很好地執行 Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4")) 但下面這行 Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4")) 將返回錯誤信息： Union method of application class failed 16. 如何選擇兩個(gè)或更多指定區域的交集 要選擇兩個(gè)命名區域“Test”和“Sample”的交集，可以使用以下示例： Application.Intersect(Range("Test"), Range("Sample")).Select 注意，這兩個(gè)區域必須位于同一個(gè)工作表中，此示例才能運行。 本文中的示例 17 至 21 引用了下面這一示例數據集。這些示例分別說(shuō)明了將選擇示例數據中的哪一單元格區域。 A1: 名稱(chēng) B1: 銷(xiāo)售額 C1: 數量A2: a B2: $10 C2: 5A3: b B3: C3: 10A4: c B4: $10 C4: 5A5: B5: C5:A6: 合計 B6: $20 C6: 20 17. 如何選擇一列連續數據的最后一個(gè)單元格 要選擇一個(gè)連續列中的最后一個(gè)單元格，請使用以下示例： ActiveSheet.Range("a1").End(xlDown).Select 當將此代碼用于示例表時(shí)，單元格 A4 將被選中。 18. 如何選擇一列連續數據底部的空白單元格 要選擇位于一個(gè)連續單元格區域之下的一個(gè)單元格，請使用以下示例： ActiveSheet.Range("a1").End(xlDown).Offset(1,0).Select 當將此代碼用于示例表時(shí)，單元格 A5 將被選中。 19. 如何在一列中選擇整個(gè)相鄰單元格區域 要在列中選擇一個(gè)連續單元格區域，可以使用以下任一示例： ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Select - 或者 - ActiveSheet.Range("a1:" & ActiveSheet.Range("a1"). _ End(xlDown).Address).Select 當將此代碼用于示例表時(shí)，單元格 A1 到 A4 將被選中。 20. 如何在一列中選擇整個(gè)非連續單元格區域 要選擇一個(gè)非連續單元格的區域，可以使用以下任一示例： ActiveSheet.Range("a1",ActiveSheet.Range("a65536").End(xlUp)).Select - 或者 - ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536"). _ End(xlUp).Address).Select 當將此代碼用于示例表時(shí)，將選擇單元格 A1 到 A6。 21. 如何選擇矩形單元格區域 為了選擇某一單元格周?chē)木匦螀^域，請使用 CurrentRegion 方法。由 CurrentRegion 方法選中的區域是一個(gè)由空白行和空白列的任意組合限定的區域。下面是一個(gè)如何使用 CurrentRegion 方法的示例： ActiveSheet.Range("a1").CurrentRegion.Select 此代碼將選擇單元格 A1 到 C4 之間的區域。下面列出了選擇此同一單元格區域的其他示例： ActiveSheet.Range("a1", _ ActiveSheet.Range("a1").End(xlDown).End(xlToRight)).Select - 或者 - ActiveSheet.Range("a1:" & _ ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Select 在某些情況下，您可能需要選擇單元格 A1 到 C6。在本例中，CurrentRegion 方法將不能執行，這是因為第 5 行是空行。下列示例將選擇所有的單元格： lastCol = ActiveSheet.Range("a1").End(xlToRight).ColumnlastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).RowActiveSheet.Range("a1", ActiveSheet.Cells(lastRow, lastCol)).Select - 或者 - lastCol = ActiveSheet.Range("a1").End(xlToRight).ColumnlastRow = ActiveSheet.Cells(65536, lastCol).End(xlUp).RowActiveSheet.Range("a1:" & _ ActiveSheet.Cells(lastRow, lastCol).Address).Select 22. 如何選擇長(cháng)度不一的多個(gè)非相鄰列 要選擇長(cháng)度不一的多個(gè)非相鄰列，請使用下面的示例表和宏示例： A1: 1 B1: 1 C1: 1 D1: 1A2: 2 B2: 2 C2: 2 D2: 2A3: 3 B3: 3 C3: 3 D3: 3A4: B4: 4 C4: 4 D4: 4A5: B5: 5 C5: 5 D5:A6: B6: C6: 6 D6: StartRange = "A1"EndRange = "C1"Set a = Range(StartRange, Range(StartRange).End(xlDown))Set b = Range(EndRange, Range(EndRange).End(xlDown))Union(a,b).Select 當將此代碼用于示例表時(shí)，單元格 A1:A3 和 C1:C6 將被選中。 關(guān)于示例的說(shuō)明 通?？梢允÷?ActiveSheet 屬性，因為如果一個(gè)特定的工作表未命名，實(shí)際上就隱含了此屬性。例如，可以不使用 ActiveSheet.Range("D5").Select 可以使用： Range("D5").Select 通常也可以省略 ActiveWorkbook 屬性。除非命名了一個(gè)具體的工作簿，否則活動(dòng)工作簿是隱含的。 當您使用 Application.Goto 方法時(shí)，如果您想在指定區域位于另一（非活動(dòng)）工作表上時(shí)在 Range 方法中使用兩個(gè) Cells 方法，則每次都必須包括 Sheets 對象。例如： Application.Goto Sheets("Sheet1").Range( _ Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), _ Sheets("Sheet1").Cells(4, 5))) 對于引號中的任何項（例如，命名區域“Test”），您還可以使用一個(gè)值為字符串的變量。例如，可以不使用 ActiveWorkbook.Sheets("Sheet1").Activate 可以使用 ActiveWorkbook.Sheets(myVar).Activate 其中 myVar 的值是“Sheet1”。