【正文】 用下面的代碼： (Sheet2).Cells(6, 5)或： ((Sheet2).Range(E6))也可以先激活該工作表，然后再選擇：Sheets(Sheet2).Activate(6, 5).Select如何選擇不同工作簿中的單元格？例如，要選擇另一工作簿中的一個工作表上的單元格F7，可以使用下面的代碼： Workbooks(BOOK2 ).Sheets(Sheet1).Cells(7, 6)或： Workbooks(BOOK2 ).Sheets(Sheet1).Range(F7)也可以先激活該工作簿中的工作表，然后再選擇：Workbooks().Sheets(Sheet1).Activate(7, 6).Select如何選擇當(dāng)前工作表中的單元格區(qū)域？例如，要選擇當(dāng)前工作表中的單元格區(qū)域C2:D10，可以使用下面的代碼：(Cells(2, 3), 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)，否則會出錯。如何選擇兩個或多個指定區(qū)域的交叉區(qū)域？例如，要選擇名為“Test”和“Sample”的兩個區(qū)域的交叉區(qū)域，可以使用下面的代碼：(Range(Test), Range(Sample)).Select注意，兩個區(qū)域必須在同一工作表中。如何選擇連續(xù)數(shù)據(jù)列底部的空單元格？例如，要選擇連續(xù)單元格區(qū)域下面的單元格，可以使用下面的代碼：(a1).End(xlDown).Offset(1, 0).Select該代碼使用在上面的工作表中，單元格A5被選擇。 (a1).End(xlDown).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A4將被選擇。 (a65536).End(xlUp).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A6將被選擇。CurrentRegion方法將選擇四周被空行和空列圍繞的區(qū)域，如下面的代碼：(a1).該代碼使用在上面的工作表中，將選擇單元格區(qū)域A1：C4。 (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ū)域。引用工作表上的所有單元格如果對工作表應(yīng)用 Cells 屬性時不指定索引號，該方法將返回代表工作表上所有單元格的 Range 對象。Sub ClearSheet()下述子例程將單元格區(qū)域 A1:D5 的字體設(shè)置為加粗。 Workbooks(Book1).Sheets(Sheet1).Range(A1:D5) _引用 含義Range(A1)單元格 A1Range(A1:B5)多塊選定區(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)A 、C 和 F 列引用行和列可用 Rows 屬性或 Columns 屬性來處理整行或整列。在下例中，Rows(1) 返回 Sheet1 上的第一行，然后將區(qū)域字體加粗。 Worksheets(Sheet1).Rows(1). = TrueEnd Sub下表舉例說明了使用 Rows 和 Columns 屬性的一些行和列的引用。工作表上所有的行Columns(1)第一列Columns工作表上所有的列若要同時處理若干行或列，可創(chuàng)建一個對象變量并使用 Union 方法，將對 Rows 屬性或 Columns 屬性的多個調(diào)用組合起來。Sub SeveralRows() Dim myUnion As Range = TrueEnd Sub使用索引號引用單元格通過使用行列索引號，可用 Cells 屬性引用單個單元格。在下例中，Cells(6,1) 返回 Sheet1 上的單元格 A6，然后將 Value 屬性設(shè)置為 10。 Worksheets(Sheet1).Cells(6, 1).Value = 10End Sub因為可用變量替代編號，所以 Cells 屬性非常適合于在單元格區(qū)域中循環(huán)，如下例中所示。 Dim Counter As Integer Worksheets(Sheet1).Cells(Counter, 3).Value = Counter使用快捷表示法引用單元格可用方括號將 A1 引用樣式或命名區(qū)域括起來，作為 Range 屬性的快捷方式。Sub ClearRange() [MyRange].Value = 30End Sub使用 Range 對象引用單元格如果將對象變量設(shè)置為 Range 對象，即可用變量名輕松地操作單元格區(qū)域。隨后的語句用該變量名稱代替 Range 對象，以修改該區(qū)域的屬性。 Dim myRange As Range = =RAND()若要命名選定的單元格區(qū)域，請單擊編輯欄左端的名稱框，鍵入名稱，再按 Enter。Sub FormatRange()Sub FormatSales()Sub ClearRange() End Sub以下示例顯示對于活動工作簿將如何編寫與上例相同的過程。 Reference:=MyRange如果該區(qū)域中的任一單元格的值超過 limit 的值，就將該單元格的顏色更改為黃色。 Const Limit As Integer = 25 If Limit Then End If可用 Range 和 Union 方法引用任意組合的單元格區(qū)域；用 Areas 屬性可引用工作表上選定的一組單元格區(qū)域。以下示例清除了 Sheet1 上三個區(qū)域的內(nèi)容。 Worksheets(Sheet1).Range(C5:D9,G9:H16,B14:D18). _以下示例可在所有這三個命名區(qū)域處于同一工作表時運行。 Range(MyRange, YourRange, HisRange).ClearContentsEnd Sub使用 Union 方法使用 Union 方法可將多個區(qū)域組合到一個 Range 對象中。Sub MultipleRange() Set r1 = Sheets(Sheet1).Range(A1:B2) Set myMultipleRange = Union(r1, r2)下述過程計算選定區(qū)域中的塊數(shù)目，如果有多個塊，就顯示一則警告消息。 If 1 Then End IfEnd Sub處理三維區(qū)域如果要處理若干工作表上相同位置的單元格區(qū)域，可用 Array 函數(shù)選定兩張或多張工作表。Sub FormatSheets() Range(A1:H1).SelectSub FillAll() .Borders(xlBottom).LineStyle = xlDouble如何選擇與另一單元格(不是當(dāng)前單元格)相關(guān)的單元格？例如，要選擇距單元格C7下方5行右側(cè)4列的單元格，可以使用下面的代碼：(7, 3).Offset(5, 4).Select或：(C7).Offset(5, 4).Select如何選擇偏離指定區(qū)域的一個單元格區(qū)域？例如，要選擇與名為“Test”的區(qū)域大小相同但在該區(qū)域下方4行右側(cè)3列的一個區(qū)域，可以使用下面的代碼：(Test).Offset(4, 3).Select如果該命名區(qū)域不在當(dāng)前工作表中，可以先激活該工作表，然后再選擇，如下面的代碼：Sheets(Sheet3).Activate(Test).Offset(4, 3).Select如何選擇一個指定的區(qū)域并擴(kuò)展區(qū)域的大?。坷?，要選擇當(dāng)前工作表中名為“Database”區(qū)域，然后將該區(qū)域向下擴(kuò)展5行，可以使用下面的代碼：Range(Database).Select( + 5, ).Select如何選擇一個指定的區(qū)域，再偏離，然后擴(kuò)展區(qū)域的大??？例如，選擇名為“Database”區(qū)域下方4行右側(cè)3列的一個區(qū)域，然后擴(kuò)展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))將會出錯。如何選擇連續(xù)數(shù)據(jù)列中的最后一個單元格？例如，要選擇一個連續(xù)列中的最后一個單元格，可以使用下面的代碼：(a1).End(xlDown).Select該代碼使用在上面的工作表中，單元格A4被選擇。如何選擇某列中連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇一列中的連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：(a1, (a1).End(xlDown)).Select或：(a1: amp。如何選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：(a1, (a65536).End(xlUp)).Select或：(a1: amp。如何選擇一個矩形(規(guī)則的)單元格區(qū)域？要選擇圍繞某單元格的一個矩形區(qū)域，可以使用CurrentRegion方法。也可以使用下面的代碼：(a1, (a1).End(xlDown).End(xlToRight)).Select或：(a1: amp。 (lastRow, lastCol).Address).Select如何選擇多個不同長度的非連續(xù)列？要同時選擇