【正文】 xlToRight).ColumnlastRow = (65536, lastCol).End(xlUp).Row(a1: amp。CurrentRegion方法將選擇四周被空行和空列圍繞的區(qū)域，如下面的代碼：(a1).該代碼使用在上面的工作表中，將選擇單元格區(qū)域A1：C4。 (a65536).End(xlUp).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A6將被選擇。 (a1).End(xlDown).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A4將被選擇。如何選擇連續(xù)數(shù)據(jù)列底部的空單元格？例如，要選擇連續(xù)單元格區(qū)域下面的單元格，可以使用下面的代碼：(a1).End(xlDown).Offset(1, 0).Select該代碼使用在上面的工作表中，單元格A5被選擇。如何選擇兩個(gè)或多個(gè)指定區(qū)域的交叉區(qū)域？例如，要選擇名為“Test”和“Sample”的兩個(gè)區(qū)域的交叉區(qū)域，可以使用下面的代碼：(Range(Test), Range(Sample)).Select注意，兩個(gè)區(qū)域必須在同一工作表中。 (Worksheets(Sheet2).Range(A1:H1))End Sub使用VBA代碼選擇單元格/區(qū)域如何選擇當(dāng)前工作表中的單元格？例如，可以使用下面的代碼選擇當(dāng)前工作表中的單元格D5：(5, 4).Select或：(D5).Select如何選擇同一工作簿中其它工作表上的單元格？例如，要選擇同一工作簿中另一工作表上的單元格E6，可以使用下面的代碼： (Sheet2).Cells(6, 5)或： ((Sheet2).Range(E6))也可以先激活該工作表，然后再選擇：Sheets(Sheet2).Activate(6, 5).Select如何選擇不同工作簿中的單元格？例如，要選擇另一工作簿中的一個(gè)工作表上的單元格F7，可以使用下面的代碼： Workbooks().Sheets(Sheet1).Cells(7, 6)或： Workbooks().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().Sheets(Sheet1).Range(E4:F12)或： Workbooks().Sheets(Sheet1).Range(E4, F12)也可以先激活該工作表，然后再選擇：Workbooks().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如何選擇不同工作簿中工作表上的命名區(qū)域？例如，要選擇不同工作簿中工作表上名為“Test”的區(qū)域，可使用下面的代碼： Workbooks().Sheets(Sheet2).Range(Test)也可以先激活工作表，再選擇：Workbooks().Sheets(Sheet2).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)，否則會(huì)出錯(cuò)。 Worksheets(Sheet2).Range(A1:H1) _ (xlBottom).LineStyle = xlDoubleEnd Sub下例應(yīng)用 FillAcrossSheets 方法，將 Sheet2 上的區(qū)域中的格式和所有數(shù)據(jù)傳送到活動(dòng)工作簿中所有工作表上的相應(yīng)區(qū)域。 Sheets(Array(Sheet2, Sheet3, Sheet5)).Select下例設(shè)置三維單元格區(qū)域的邊框格式。 MsgBox 不能對(duì)多個(gè)選區(qū)進(jìn)行操作.Sub FindMultiple() = TrueEnd Sub使用 Areas 屬性可用 Areas 屬性引用選定的單元格區(qū)域或多塊選定區(qū)域中的區(qū)域集合。 Set r2 = Sheets(Sheet1).Range(C3:D4) Dim r1, r2, myMultipleRange As Range以下示例創(chuàng)建了名為 myMultipleRange 的 Range 對(duì)象，并將其定義為區(qū)域 A1:B2 和 C3:D4 的組合，然后將該組合區(qū)域的字體設(shè)置為加粗。Sub ClearNamed() ClearContentsEnd Sub命名區(qū)域使得用 Range 屬性處理多個(gè)區(qū)域更加容易。Sub ClearRanges()使用 Range 屬性通過在兩個(gè)或多個(gè)引用之間插入逗號(hào)，可使用 Range 屬性引用多個(gè)區(qū)域。 Next cEnd Sub引用多個(gè)區(qū)域使用適當(dāng)?shù)姆椒梢院苋菀椎赝瑫r(shí)引用多個(gè)單元格區(qū)域。 = 27 For Each c In Range(MyRange)Sub ApplyColor() End Sub在命名區(qū)域中的單元格上循環(huán)下例用 For Each...Next 循環(huán)語句在命名區(qū)域中的每一個(gè)單元格上循環(huán)。Sub ClearRange() Reference:=!MyRange Range([]Sheet1!Sales).BorderAround Weight:=xlthinEnd Sub要選定命名區(qū)域，可使用 GoTo 方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。 Range(!MyRange). = TrueEnd Sub以下示例引用名為“”的工作簿中特定于工作表的區(qū)域“Sheet1!Sales”。引用命名區(qū)域以下示例引用名為“”的工作簿中名為“MyRange”的區(qū)域。 = TrueEnd Sub引用命名區(qū)域用名稱比用 A1 樣式記號(hào)更容易標(biāo)識(shí)單元格區(qū)域。 Set myRange = Worksheets(Sheet1).Range(A1:D5)Sub Random()以下過程將創(chuàng)建對(duì)象變量 myRange，然后將活動(dòng)工作簿中 Sheet1 上的區(qū)域 A1:D5 賦予該變量。 Worksheets(Sheet1).[A1:B5].ClearContentsEnd SubSub SetValue()這樣就不必鍵入單詞“Range”或使用引號(hào)了，如下例中所示。 Next CounterEnd Sub如果要同時(shí)更改某個(gè)區(qū)域中所有單元格的屬性（或?qū)⒎椒☉?yīng)用于該區(qū)域中的所有單元格），建議使用 Range 屬性。 For Counter = 1 To 20Sub CycleThrough()Sub EnterValue()該屬性返回代表單個(gè)單元格的 Range 對(duì)象。 Set myUnion = Union(Rows(1), Rows(3), Rows(5)) Worksheets(Sheet1).Activate下例將活動(dòng)工作簿中第一張工作表上的第一行、第三行和第五行的字體設(shè)置為加粗。第一列Columns(A)第一行Rows 含義Rows(1)引用Sub RowBold()這兩個(gè)屬性返回代表單元格區(qū)域的 Range 對(duì)象。第 3 和 8 行Range(A:A,C:C,F:F)從單元格 A1 到單元格 B5 的區(qū)域Range(C5:D9,G9:H16) . = TrueEnd Sub下表演示了使用 Range 屬性的一些 A1 樣式引用。Sub FormatRange() Worksheets(Sheet1).End Sub使用 A1 表示法引用單元格和區(qū)域可使用 Range 屬性引用 A1 引用樣式中的單元格或單元格區(qū)域。以下 Sub 過程清除活動(dòng)工作簿中 Sheet1 上的所有單元格的內(nèi)容。下面的內(nèi)容說明了標(biāo)識(shí)和處理Range對(duì)象最常用的方法。若想選擇單元格區(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。如何選擇一個(gè)矩形(規(guī)則的)單元格區(qū)域？要選擇圍繞某單元格的一個(gè)矩形區(qū)域，可以使用CurrentRegion方法。如何選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：(a1, (a65536).End(xlUp)).Select或：(a1: amp。如何選擇某列中連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇一列中的連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：(a1, (a1).End(xlDown)).Select或：(a1: amp。如何選擇連續(xù)數(shù)據(jù)列中的最后一個(gè)單元格？例如，要選擇一個(gè)連續(xù)列中的最后一個(gè)單元格，可以使用下面的代碼：(a1).End(xlDown).Select該代碼使用在上面的工作表中，單元格A4被選擇。下面的示例使用了如下圖所示的工作表。如何選擇與另一單元格(不是當(dāng)前單元格)相關(guān)的單元格？例如，要選擇距單元格C7下方5行右側(cè)4列的單元格，可以使用下面的代碼：(7, 3).Offset(5, 4).Select或：(C7).Offset(5, 4).Select如何選擇一個(gè)指定的區(qū)域并擴(kuò)展區(qū)域的大??？例如，要選擇當(dāng)前工作表中名為“Database”區(qū)域，然后將該區(qū)域向下擴(kuò)展5行，可以使用下面的代碼：Range(Database).Select( + 5, ).Select如何選擇一個(gè)指定的區(qū)域，再偏離，然后擴(kuò)展區(qū)域的大?。坷?，選擇名為“Database”區(qū)域下方4行右側(cè)3列的一個(gè)區(qū)域，然后擴(kuò)展2行和1列，可以使用下面的代碼：Range(Database).Select(4, 3).Resize( + 2, + 1).Select如何選擇兩個(gè)或多個(gè)指定區(qū)域？例如，為了同時(shí)選擇名為“Test”和“Sample”的兩個(gè)區(qū)域，可以使用下面的代碼：(Range(Test), Range(Sample)).Select注意，這兩個(gè)區(qū)域須在同一工作表中，如下面的代碼：Set y = (Range(Sheet1!A1:B2), Range(Sheet1!C3:D4))但Union方法不能處理不同工作表中的區(qū)域，可下面的代碼：Set y = (Range(Sheet1!A1:B2), Range(Sheet2!C3:D4))將會(huì)出錯(cuò)。 需要在模塊中添加相應(yīng)的宏 sub userform1show() End WithEnd Sub1 選擇類選擇帶有數(shù)的連續(xù)區(qū)域 Rows(3:3).Select Range(Selection, (xlDown)).Select選擇第三行向下所有的連續(xù)帶數(shù)值的行。Add submenu and submenu items . Caption:=amp。Create main menu on the CommandBar MenuBars(xlWorksheet). Caption:=amp。圖形用