【正文】 Cells(10, 4)).Select或：(C2:D10).Select或：(C2, D10).Select如何選擇同一工作簿中另一工作表上的單元格區(qū)域？例如，要選擇同一工作簿中另一工作表上的單元格區(qū)域D3：E11，可以使用下面的代碼： (Sheet3).Range(D3:E11)或： (Sheet3).Range(D3, E11)也可以先激活該工作表，然后再選擇：Sheets(Sheet3).Activate(Cells(3, 4), Cells(11, 5)).Select如何選擇不同工作簿中工作表上的單元格區(qū)域？例如，要選擇另一工作簿中某工作表上的單元格區(qū)域E4:F12，可以使用下面的代碼： Workbooks(BOOK2 ).Sheets(Sheet1).Range(E4:F12)或： Workbooks(BOOK2 ).Sheets(Sheet1).Range(E4, F12)也可以先激活該工作表，然后再選擇：Workbooks(BOOK2).Sheets(Sheet1).Activate(Cells(4, 5), Cells(12, 6)).Select如何在當(dāng)前工作表中選擇命名區(qū)域？例如，要選擇當(dāng)前工作表中名為“Test”的區(qū)域，可以使用下面的代碼：Range(Test).Select或： Test如何選擇同一工作簿中另一工作表上的命名區(qū)域？例如，選擇同一工作簿中另一工作表上名為“Test”的區(qū)域，可使用下面的代碼： Sheets(Sheet1).Range(Test)也可以先激活工作表，再選擇：Sheets(Sheet1).ActivateRange(Test).Select如何選擇與當(dāng)前單元格相關(guān)的單元格？例如，要選擇距當(dāng)前單元格下面5行左側(cè)4列的單元格，可以使用下面的代碼：(5, 4).Select要選擇距當(dāng)前單元格上方2行右側(cè)3列的單元格，可以使用下面的代碼：(2, 3).Select注意：一定要保證當(dāng)前單元格與所選單元格之間的距離在工作表范圍內(nèi)，否則會出錯。如何選擇與另一單元格(不是當(dāng)前單元格)相關(guān)的單元格？例如，要選擇距單元格C7下方5行右側(cè)4列的單元格，可以使用下面的代碼：(7, 3).Offset(5, 4).Select或：(C7).Offset(5, 4).Select如何選擇一個指定的區(qū)域并擴展區(qū)域的大??？例如，要選擇當(dāng)前工作表中名為“Database”區(qū)域，然后將該區(qū)域向下擴展5行，可以使用下面的代碼：Range(Database).Select( + 5, ).Select如何選擇一個指定的區(qū)域，再偏離，然后擴展區(qū)域的大?。坷?，選擇名為“Database”區(qū)域下方4行右側(cè)3列的一個區(qū)域，然后擴展2行和1列，可以使用下面的代碼：Range(Database).Select(4, 3).Resize( + 2, + 1).Select如何選擇兩個或多個指定區(qū)域？例如，為了同時選擇名為“Test”和“Sample”的兩個區(qū)域，可以使用下面的代碼：(Range(Test), Range(Sample)).Select注意，這兩個區(qū)域須在同一工作表中，如下面的代碼：Set y = (Range(Sheet1!A1:B2), Range(Sheet1!C3:D4))但Union方法不能處理不同工作表中的區(qū)域，可下面的代碼：Set y = (Range(Sheet1!A1:B2), Range(Sheet2!C3:D4))將會出錯。如何選擇兩個或多個指定區(qū)域的交叉區(qū)域？例如，要選擇名為“Test”和“Sample”的兩個區(qū)域的交叉區(qū)域，可以使用下面的代碼：(Range(Test), Range(Sample)).Select注意，兩個區(qū)域必須在同一工作表中。下面的示例使用了如下圖所示的工作表。如何選擇連續(xù)數(shù)據(jù)列中的最后一個單元格？例如，要選擇一個連續(xù)列中的最后一個單元格，可以使用下面的代碼：(a1).End(xlDown).Select該代碼使用在上面的工作表中，單元格A4被選擇。如何選擇連續(xù)數(shù)據(jù)列底部的空單元格？例如，要選擇連續(xù)單元格區(qū)域下面的單元格，可以使用下面的代碼：(a1).End(xlDown).Offset(1, 0).Select該代碼使用在上面的工作表中，單元格A5被選擇。如何選擇某列中連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇一列中的連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：(a1, (a1).End(xlDown)).Select或：(a1: amp。 (a1).End(xlDown).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A4將被選擇。如何選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：(a1, (a65536).End(xlUp)).Select或：(a1: amp。 (a65536).End(xlUp).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A6將被選擇。如何選擇一個矩形(規(guī)則的)單元格區(qū)域？要選擇圍繞某單元格的一個矩形區(qū)域，可以使用CurrentRegion方法。CurrentRegion方法將選擇四周被空行和空列圍繞的區(qū)域，如下面的代碼：(a1).該代碼使用在上面的工作表中，將選擇單元格區(qū)域A1：C4。若想選擇單元格區(qū)域A1：C6，可使用下面的代碼：lastCol = (a1).End(xlToRight).ColumnlastRow = (65536, lastCol).End(xlUp).Row(a1, (lastRow, lastCol)).Select或：lastCol = (a1).End(xlToRight).ColumnlastRow = (65536, lastCol).End(xlUp).Row(a1: amp。 (lastRow, lastCol).Address).Select= = = = = = = = = = = = = = = = = = = = 如何選擇多個不同長度的非連續(xù)列？例如，有下圖所示的工作表：要同時選擇A列和C列中的數(shù)據(jù)，即單元格區(qū)域A1:A3和C1:C6，可使用下面的代碼：StartRange = A1EndRange = C1Set a = Range(StartRange, Range(StartRange).End(xlDown))Set b = Range(EndRange, Range(EndRange).End(xlDown))Union(a, b).Select= = = = = = = = = = = = = = = = = = = =注：，如果指定另一工作表(不是當(dāng)前工作表)中的指定區(qū)域，在Range屬性中使用兩個Cells屬性時，則必須包括Sheets對象，如： Sheets(Sheet1).Range(Sheets(Sheet1).Range(Sheets(Sheet1).Cells(2, 3), Sheets(Sheet1).Cells(4, 5)))= = = = = = = = = = = = = = = = = = = =在VBA中，Range 對象既可表示單個單元格，也可表示單元格區(qū)域。下面的內(nèi)容說明了標(biāo)識和處理Range對象最常用的方法。引用工作表上的所有單元格如果對工作表應(yīng)用 Cells 屬性時不指定索引號，該方法將返回代表工作表上所有單元格的 Range 對象。以下 Sub 過程清除活動工作簿中 Sheet1 上的所有單元格的內(nèi)容。Sub ClearSheet() Worksheets(Sheet1).End Sub使用 A1 表示法引用單元格和區(qū)域可使用 Range 屬性引用 A1 引用樣式中的單元格或單元格區(qū)域。下述子例程將單元格區(qū)域 A1:D5 的字體設(shè)置為加粗。Sub FormatRange() Workbooks(Book1).Sheets(Sheet1).Range(A1:D5) _ . = TrueEnd Sub下表演示了使用 Range 屬性的一些 A1 樣式引用。引用 含義Range(A1)單元格 A1Range(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)第 3 和 8 行Range(A:A,C:C,F:F)A 、C 和 F 列引用行和列可用 Rows 屬性或 Columns 屬性來處理整行或整列。這兩個屬性返回代表單元格區(qū)域的 Range 對象。在下例中，Rows(1) 返回 Sheet1 上的第一行，然后將區(qū)域字體加粗。Sub RowBold() Worksheets(Sheet1).Rows(1). = TrueEnd Sub下表舉例說明了使用 Rows 和 Columns 屬性的一些行和列的引用。引用 含義Rows(1)第一行Rows工作表上所有的行Columns(1)第一列Columns(A)第一列Columns工作表上所有的列若要同時處理若干行或列，可創(chuàng)建一個對象變量并使用 Union 方法，將對 Rows 屬性或 Columns 屬性的多個調(diào)用組合起來。下例將活動工作簿中第一張工作表上的第一行、第三行和第五行的字體設(shè)置為加粗。Sub SeveralRows() Worksheets(Sheet1).Activate Dim myUnion As Range Set myUnion = Union(Rows(1), Rows(3), Rows(5)) = TrueEnd Sub使用索引號引用單元格通過使用行列索引號，可用 Cells 屬性引用單個單元格。該屬性返回代表單個單元格的 Range 對象。在下例中，Cells(6,1) 返回 Sheet1 上的單元格 A6，然后將 Value 屬性設(shè)置為 10。Sub EnterValue() Worksheets(Sheet1).Cells(6, 1).Value = 10End Sub因為可用變量替代編號，所以 Cells 屬性非常適合于在單元格區(qū)域中循環(huán)，如下例中所示。Sub CycleThrough() Dim Counter As Integer For Counter = 1 To 20 Worksheets(Sheet1).Cells(Counter, 3).Value = Counter Next CounterEnd Sub如果要同時更改某個區(qū)域中所有單元格的屬性（或?qū)⒎椒☉?yīng)用于該區(qū)域中的所有單元格），建議使用 Range 屬性。使用快捷表示法引用單元格可用方括號將 A1 引用樣式或命名區(qū)域括起來，作為 Range 屬性的快捷方式。這樣就不必鍵入單詞“Range”或使用引號了，如下例中所示。Sub ClearRange() Worksheets(Sheet1).[A1:B5].ClearContentsEnd SubSub SetValue() [MyRange].Value = 30End Sub使用 Range 對象引用單元格如果將對象變量設(shè)置為 Range 對象，即可用變量名輕松地操作單元格區(qū)域。以下過程將創(chuàng)建對象變量 myRange，然后將活動工作簿中 Sheet1 上的區(qū)域 A1:D5 賦予該變量。隨后的語句用該變量名稱代替 Range 對象，以修改該區(qū)域的屬性。Sub Random() Dim myRange As Range Set myRange = Worksheets(Sheet1).Range(A1:D5) = =RAND() = TrueEnd Sub引用命名區(qū)域用名稱比用 A1 樣式記號更容易標(biāo)識單元格區(qū)域。若要命名選定的單元格區(qū)域，請單擊編輯欄左端的名稱框，鍵入名稱，再按 Enter。引用命名區(qū)域以下示例引用名為“”的工作簿中名為“MyRange”的區(qū)域。Sub FormatRange() Range(!MyRange). = TrueEnd Sub以下示例引用名為“”的工作簿中特定于工作表的區(qū)域“Sheet1!Sales”。Sub FormatSales() Range([]Sheet1!Sales).BorderAround Weight:=xlthinEnd Sub要選定命名區(qū)域，可使用 GoTo 方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。Sub ClearRange() Reference:=!MyRange End Sub以下示例顯示對于活動工作簿將如何編寫與