VBA之單元格選擇方法及可用屬性

1、 如何選擇當(dāng)前工作表中的單元格？例如，可以使用下面的代碼選擇當(dāng)前工作表中的單元格D5：ActiveSheet.Cells(5, 4).Select或：ActiveSheet.Range("D5").Select如何選擇同一工作簿中其它工作表上的單元格？例如，要選擇同一工作簿中另一工作表上的單元格E6，可以使用下面的代碼：Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)或：Application.Goto (ActiveWorkbook.Sheets("Sheet2"

2、;).Range("E6")也可以先激活該工作表，然后再選擇：Sheets("Sheet2").ActivateActiveSheet.Cells(6, 5).Select如何選擇不同工作簿中的單元格？例如，要選擇另一工作簿中的一個(gè)工作表上的單元格F7，可以使用下面的代碼：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7, 6)或：Application.Goto Workbooks("BOOK2.XLS").She

3、ets("Sheet1").Range("F7")也可以先激活該工作簿中的工作表，然后再選擇：Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Cells(7, 6).Select如何選擇當(dāng)前工作表中的單元格區(qū)域？例如，要選擇當(dāng)前工作表中的單元格區(qū)域C2:D10，可以使用下面的代碼：ActiveSheet.Range(Cells(2, 3), Cells(10, 4).Select或：ActiveSheet.Range("C2:D10&

4、quot;).Select或：ActiveSheet.Range("C2", "D10").Select如何選擇同一工作簿中另一工作表上的單元格區(qū)域？例如，要選擇同一工作簿中另一工作表上的單元格區(qū)域D3：E11，可以使用下面的代碼：Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3:E11")或：Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("D3"

5、;, "E11")也可以先激活該工作表，然后再選擇：Sheets("Sheet3").ActivateActiveSheet.Range(Cells(3, 4), Cells(11, 5).Select如何選擇不同工作簿中工作表上的單元格區(qū)域？例如，要選擇另一工作簿中某工作表上的單元格區(qū)域E4:F12，可以使用下面的代碼：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")或：Application.Go

6、to Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4", "F12")也可以先激活該工作表，然后再選擇：Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Range(Cells(4, 5), Cells(12, 6).Select如何在當(dāng)前工作表中選擇命名區(qū)域？例如，要選擇當(dāng)前工作表中名為“Test”的區(qū)域，可以使用下面的代碼：Range("Te

7、st").Select或：Application.Goto "Test"如何選擇同一工作簿中另一工作表上的命名區(qū)域？例如，選擇同一工作簿中另一工作表上名為“Test”的區(qū)域，可使用下面的代碼：Application.Goto Sheets("Sheet1").Range("Test")也可以先激活工作表，再選擇：Sheets("Sheet1").ActivateRange("Test").Select如何選擇不同工作簿中工作表上的命名區(qū)域？例如，要選擇不同工作簿中工作表上名為“Test

8、”的區(qū)域，可使用下面的代碼：Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet2").Range("Test")也可以先激活工作表，再選擇：Workbooks("BOOK2.XLS").Sheets("Sheet2").ActivateRange("Test").Select如何選擇與當(dāng)前單元格相關(guān)的單元格？例如，要選擇距當(dāng)前單元格下面5行左側(cè)4列的單元格，可以使用下面的代碼：ActiveCell.Offset(5, -

9、4).Select要選擇距當(dāng)前單元格上方2行右側(cè)3列的單元格，可以使用下面的代碼：ActiveCell.Offset(-2, 3).Select注意：一定要保證當(dāng)前單元格與所選單元格之間的距離在工作表范圍內(nèi)，否則會(huì)出錯(cuò)。如何選擇與另一單元格(不是當(dāng)前單元格)相關(guān)的單元格？例如，要選擇距單元格C7下方5行右側(cè)4列的單元格，可以使用下面的代碼：ActiveSheet.Cells(7, 3).Offset(5, 4).Select或：ActiveSheet.Range("C7").Offset(5, 4).Select如何選擇偏離指定區(qū)域的一個(gè)單元格區(qū)域？例如，要選擇與名為“Te

10、st”的區(qū)域大小相同但在該區(qū)域下方4行右側(cè)3列的一個(gè)區(qū)域，可以使用下面的代碼：ActiveSheet.Range("Test").Offset(4, 3).Select如果該命名區(qū)域不在當(dāng)前工作表中，可以先激活該工作表，然后再選擇，如下面的代碼：Sheets("Sheet3").ActivateActiveSheet.Range("Test").Offset(4, 3).Select如何選擇一個(gè)指定的區(qū)域并擴(kuò)展區(qū)域的大小？例如，要選擇當(dāng)前工作表中名為“Database”區(qū)域，然后將該區(qū)域向下擴(kuò)展5行，可以使用下面的代碼：Range(&

11、quot;Database").SelectSelection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count).Select如何選擇一個(gè)指定的區(qū)域，再偏離，然后擴(kuò)展區(qū)域的大??？例如，選擇名為“Database”區(qū)域下方4行右側(cè)3列的一個(gè)區(qū)域，然后擴(kuò)展2行和1列，可以使用下面的代碼：Range("Database").SelectSelection.Offset(4, 3).Resize(Selection.Rows.Count + 2, Selection.Columns.Count + 1).S

12、elect如何選擇兩個(gè)或多個(gè)指定區(qū)域？例如，為了同時(shí)選擇名為“Test”和“Sample”的兩個(gè)區(qū)域，可以使用下面的代碼：Application.Union(Range("Test"), Range("Sample").Select注意，這兩個(gè)區(qū)域須在同一工作表中，如下面的代碼：Set y = Application.Union(Range("Sheet1!A1:B2"), Range("Sheet1!C3:D4")但Union方法不能處理不同工作表中的區(qū)域，可下面的代碼：Set y = Application.U

13、nion(Range("Sheet1!A1:B2"), Range("Sheet2!C3:D4")將會(huì)出錯(cuò)。如何選擇兩個(gè)或多個(gè)指定區(qū)域的交叉區(qū)域？例如，要選擇名為“Test”和“Sample”的兩個(gè)區(qū)域的交叉區(qū)域，可以使用下面的代碼：Application.Intersect(Range("Test"), Range("Sample").Select注意，兩個(gè)區(qū)域必須在同一工作表中。= = = = = = = = = = = = = = = = = = = = = = = = =下面的示例使用了如下圖所示的工作表。

14、 如何選擇連續(xù)數(shù)據(jù)列中的最后一個(gè)單元格？例如，要選擇一個(gè)連續(xù)列中的最后一個(gè)單元格，可以使用下面的代碼：ActiveSheet.Range("a1").End(xlDown).Select該代碼使用在上面的工作表中，單元格A4被選擇。如何選擇連續(xù)數(shù)據(jù)列底部的空單元格？例如，要選擇連續(xù)單元格區(qū)域下面的單元格，可以使用下面的代碼：ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select該代碼使用在上面的工作表中，單元格A5被選擇。如何選擇某列中連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇一列中的連續(xù)數(shù)據(jù)單元格區(qū)域，可以

15、使用下面的代碼：ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown).Select或：ActiveSheet.Range("a1:" & ActiveSheet.Range("a1").End(xlDown).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A4將被選擇。如何選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：ActiveSheet.Range("a1

16、", ActiveSheet.Range("a65536").End(xlUp).Select或：ActiveSheet.Range("a1:" & ActiveSheet.Range("a65536").End(xlUp).Address).Select該代碼使用在上面的工作表中，單元格區(qū)域A1：A6將被選擇。如何選擇一個(gè)矩形(規(guī)則的)單元格區(qū)域？要選擇圍繞某單元格的一個(gè)矩形區(qū)域，可以使用CurrentRegion方法。CurrentRegion方法將選擇四周被空行和空列圍繞的區(qū)域，如下面的代碼：ActiveShe

17、et.Range("a1").CurrentRegion.Select該代碼使用在上面的工作表中，將選擇單元格區(qū)域A1：C4。也可以使用下面的代碼：ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Select或：ActiveSheet.Range("a1:" & ActiveSheet.Range("a1").End(xlDown).End(xlToRight).Address).Sel

18、ect若想選擇單元格區(qū)域A1：C6，可使用下面的代碼：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

19、= ActiveSheet.Cells(65536, lastCol).End(xlUp).RowActiveSheet.Range("a1:" & ActiveSheet.Cells(lastRow, lastCol).Address).Select= = = = = = = = = = = = = = = = = = = =如何選擇多個(gè)不同長(zhǎng)度的非連續(xù)列？例如，有下圖所示的工作表：要同時(shí)選擇A列和C列中的數(shù)據(jù)，即單元格區(qū)域A1:A3和C1:C6，可使用下面的代碼：StartRange = "A1"EndRange = "C1&quo

20、t;Set a = Range(StartRange, Range(StartRange).End(xlDown)Set b = Range(EndRange, Range(EndRange).End(xlDown)Union(a, b).Select= = = = = = = = = = = = = = = = = = = =注：使用Application.Goto方法，如果指定另一工作表(不是當(dāng)前工作表)中的指定區(qū)域，在Range屬性中使用兩個(gè)Cells屬性時(shí)，則必須包括Sheets對(duì)象，如：Application.Goto Sheets("Sheet1").Range

21、(Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 3), Sheets("Sheet1").Cells(4, 5)= = = = = = = = = = = = = = = = = = = =在VBA中，Range 對(duì)象既可表示單個(gè)單元格，也可表示單元格區(qū)域。下面的內(nèi)容說明了標(biāo)識(shí)和處理Range對(duì)象最常用的方法。引用工作表上的所有單元格如果對(duì)工作表應(yīng)用 Cells 屬性時(shí)不指定索引號(hào)，該方法將返回代表工作表上所有單元格的 Range 對(duì)象。以下 Sub 過程清除活動(dòng)工作簿中 Sheet

22、1 上的所有單元格的內(nèi)容。Sub ClearSheet() Worksheets("Sheet1").Cells.ClearContentsEnd Sub使用 A1 表示法引用單元格和區(qū)域可使用 Range 屬性引用 A1 引用樣式中的單元格或單元格區(qū)域。下述子例程將單元格區(qū)域 A1:D5 的字體設(shè)置為加粗。Sub FormatRange() Workbooks("Book1").Sheets("Sheet1").Range("A1:D5") _ .Font.Bold = TrueEnd Sub下表演示了使用 Ra

23、nge 屬性的一些 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") 第 1、3 和 8 行Ran

24、ge("A:A,C:C,F:F") A 、C 和 F 列引用行和列可用 Rows 屬性或 Columns 屬性來處理整行或整列。這兩個(gè)屬性返回代表單元格區(qū)域的 Range 對(duì)象。在下例中，Rows(1) 返回 Sheet1 上的第一行，然后將區(qū)域字體加粗。Sub RowBold() Worksheets("Sheet1").Rows(1).Font.Bold = TrueEnd Sub下表舉例說明了使用 Rows 和 Columns 屬性的一些行和列的引用。引用 含義Rows(1) 第一行Rows 工作表上所有的行Columns(1) 第一列Column

25、s("A") 第一列Columns 工作表上所有的列若要同時(shí)處理若干行或列，可創(chuàng)建一個(gè)對(duì)象變量并使用 Union 方法，將對(duì) Rows 屬性或 Columns 屬性的多個(gè)調(diào)用組合起來。下例將活動(dòng)工作簿中第一張工作表上的第一行、第三行和第五行的字體設(shè)置為加粗。Sub SeveralRows() Worksheets("Sheet1").Activate Dim myUnion As Range Set myUnion = Union(Rows(1), Rows(3), Rows(5) myUnion.Font.Bold = TrueEnd Sub使用索引號(hào)

26、引用單元格通過使用行列索引號(hào)，可用 Cells 屬性引用單個(gè)單元格。該屬性返回代表單個(gè)單元格的 Range 對(duì)象。在下例中，Cells(6,1) 返回 Sheet1 上的單元格 A6，然后將 Value 屬性設(shè)置為 10。Sub EnterValue() Worksheets("Sheet1").Cells(6, 1).Value = 10End Sub因?yàn)榭捎米兞刻娲幪?hào)，所以 Cells 屬性非常適合于在單元格區(qū)域中循環(huán)，如下例中所示。Sub CycleThrough() Dim Counter As Integer For Counter = 1 To 20 Work

27、sheets("Sheet1").Cells(Counter, 3).Value = Counter Next CounterEnd Sub如果要同時(shí)更改某個(gè)區(qū)域中所有單元格的屬性（或?qū)⒎椒☉?yīng)用于該區(qū)域中的所有單元格），建議使用 Range 屬性。使用快捷表示法引用單元格可用方括號(hào)將 A1 引用樣式或命名區(qū)域括起來，作為 Range 屬性的快捷方式。這樣就不必鍵入單詞“Range”或使用引號(hào)了，如下例中所示。Sub ClearRange() Worksheets("Sheet1").A1:B5.ClearContentsEnd SubSub SetVal

28、ue() MyRange.Value = 30End Sub使用 Range 對(duì)象引用單元格如果將對(duì)象變量設(shè)置為 Range 對(duì)象，即可用變量名輕松地操作單元格區(qū)域。以下過程將創(chuàng)建對(duì)象變量 myRange，然后將活動(dòng)工作簿中 Sheet1 上的區(qū)域 A1:D5 賦予該變量。隨后的語(yǔ)句用該變量名稱代替 Range 對(duì)象，以修改該區(qū)域的屬性。Sub Random() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:D5") myRange.Formula = "=R

29、AND()" myRange.Font.Bold = TrueEnd Sub引用命名區(qū)域用名稱比用 A1 樣式記號(hào)更容易標(biāo)識(shí)單元格區(qū)域。若要命名選定的單元格區(qū)域，請(qǐng)單擊編輯欄左端的名稱框，鍵入名稱，再按 Enter。引用命名區(qū)域以下示例引用名為“MyBook.xls”的工作簿中名為“MyRange”的區(qū)域。Sub FormatRange() Range("MyBook.xls!MyRange").Font.Italic = TrueEnd Sub以下示例引用名為“Report.xls”的工作簿中特定于工作表的區(qū)域“Sheet1!Sales”。Sub FormatS

30、ales() Range("Report.xlsSheet1!Sales").BorderAround Weight:=xlthinEnd Sub要選定命名區(qū)域，可使用 GoTo 方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。Sub ClearRange() Application.Goto Reference:="MyBook.xls!MyRange" Selection.ClearContentsEnd Sub以下示例顯示對(duì)于活動(dòng)工作簿將如何編寫與上例相同的過程。Sub ClearRange() Application.Goto Referenc

31、e:="MyRange" Selection.ClearContentsEnd Sub在命名區(qū)域中的單元格上循環(huán)下例用 For Each.Next 循環(huán)語(yǔ)句在命名區(qū)域中的每一個(gè)單元格上循環(huán)。如果該區(qū)域中的任一單元格的值超過 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 cE

32、nd Sub引用多個(gè)區(qū)域使用適當(dāng)?shù)姆椒梢院苋菀椎赝瑫r(shí)引用多個(gè)單元格區(qū)域?？捎?Range 和 Union 方法引用任意組合的單元格區(qū)域；用 Areas 屬性可引用工作表上選定的一組單元格區(qū)域。使用 Range 屬性通過在兩個(gè)或多個(gè)引用之間插入逗號(hào)，可使用 Range 屬性引用多個(gè)區(qū)域。以下示例清除了 Sheet1 上三個(gè)區(qū)域的內(nèi)容。Sub ClearRanges() Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _ ClearContentsEnd Sub命名區(qū)域使得用 Range 屬性處理多個(gè)區(qū)域更加容易。以下示例可在所有這三個(gè)命名區(qū)域處于同一工作表時(shí)運(yùn)行。Sub ClearNamed() Range("MyRange, YourRange, HisRange").ClearContentsEnd Sub使用 Uni