ExcelVBA代碼選擇單元格和區(qū)域示例

1、目錄如何選擇當前工作表中的單元格？如何選擇同一工作簿中其它工作表上的單元格？如何選擇不同工作簿中的單元格？如何選擇當前工作表中的單元格區(qū)域？如何選擇同一工作簿中另一工作表上的單元格區(qū)域？如何選擇不同工作簿中工作表上的單元格區(qū)域？如何在當前工作表中選擇命名區(qū)域？如何選擇同一工作簿中另一工作表上的命名區(qū)域？如何選擇不同工作簿中工作表上的命名區(qū)域？如何選擇與當前單元格相關的單元格？如何選擇與另一單元格(不是當前單元格)相關的單元格？如何選擇偏離指定區(qū)域的一個單元格區(qū)域？如何選擇一個指定的區(qū)域并擴展區(qū)域的大小？如何選擇一個指定的區(qū)域，再偏離，然后擴展區(qū)域的大小？如何選擇兩個或多個指定區(qū)域？如何選擇兩個

2、或多個指定區(qū)域的交叉區(qū)域？如何選擇連續(xù)數(shù)據(jù)列中的最后一個單元格？如何選擇連續(xù)數(shù)據(jù)列底部的空單元格？如何選擇某列中連續(xù)數(shù)據(jù)單元格區(qū)域？如何選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域？如何選擇一個矩形(規(guī)則的)單元格區(qū)域？如何選擇多個不同長度的非連續(xù)列？引用工作表上的所有單元格使用 a1 表示法引用單元格和區(qū)域引用行和列使用索引號引用單元格使用快捷表示法引用單元格使用 range 對象引用單元格引用命名區(qū)域引用多個區(qū)域處理三維區(qū)域如何選擇當前工作表中的單元格？例如，可以使用下面的代碼選擇當前工作表中的單元格d5：activesheet.cells(5, 4).select或：activesheet.range

3、(d5).select如何選擇同一工作簿中其它工作表上的單元格？例如，要選擇同一工作簿中另一工作表上的單元格e6，可以使用下面的代碼：application.goto activeworkbook.sheets(sheet2).cells(6, 5)或：application.goto (activeworkbook.sheets(sheet2).range(e6)也可以先激活該工作表，然后再選擇：sheets(sheet2).activateactivesheet.cells(6, 5).select如何選擇不同工作簿中的單元格？例如，要選擇另一工作簿中的一個工作表上的單元格f7，可以使用下

4、面的代碼：application.goto workbooks(book2.xls).sheets(sheet1).cells(7, 6)或：application.goto workbooks(book2.xls).sheets(sheet1).range(f7)也可以先激活該工作簿中的工作表，然后再選擇：workbooks(book2.xls).sheets(sheet1).activateactivesheet.cells(7, 6).select如何選擇當前工作表中的單元格區(qū)域？例如，要選擇當前工作表中的單元格區(qū)域c2:d10，可以使用下面的代碼：activesheet.range(c

5、ells(2, 3), cells(10, 4).select或：activesheet.range(c2:d10).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, e11)也可以先激活該工作表，然后

6、再選擇：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.goto workbooks(book2.xls).sheets(sheet1).range(e4, f12)也可以先激活該工作表，然后再選擇：workbooks(

7、book2.xls).sheets(sheet1).activateactivesheet.range(cells(4, 5), cells(12, 6).select如何在當前工作表中選擇命名區(qū)域？例如，要選擇當前工作表中名為“test”的區(qū)域，可以使用下面的代碼：range(test).select或：application.goto test如何選擇同一工作簿中另一工作表上的命名區(qū)域？例如，選擇同一工作簿中另一工作表上名為“test”的區(qū)域，可使用下面的代碼：application.goto sheets(sheet1).range(test)也可以先激活工作表，再選擇：sheets(s

8、heet1).activaterange(test).select如何選擇不同工作簿中工作表上的命名區(qū)域？例如，要選擇不同工作簿中工作表上名為“test”的區(qū)域，可使用下面的代碼：application.goto workbooks(book2.xls).sheets(sheet2).range(test)也可以先激活工作表，再選擇：workbooks(book2.xls).sheets(sheet2).activaterange(test).select如何選擇與當前單元格相關的單元格？例如，要選擇距當前單元格下面5行左側4列的單元格，可以使用下面的代碼：activecell.offset(

9、5, -4).select要選擇距當前單元格上方2行右側3列的單元格，可以使用下面的代碼：activecell.offset(-2, 3).select注意：一定要保證當前單元格與所選單元格之間的距離在工作表范圍內(nèi)，否則會出錯。如何選擇與另一單元格(不是當前單元格)相關的單元格？例如，要選擇距單元格c7下方5行右側4列的單元格，可以使用下面的代碼：activesheet.cells(7, 3).offset(5, 4).select或：activesheet.range(c7).offset(5, 4).select如何選擇偏離指定區(qū)域的一個單元格區(qū)域？例如，要選擇與名為“test”的區(qū)域大小

10、相同但在該區(qū)域下方4行右側3列的一個區(qū)域，可以使用下面的代碼：activesheet.range(test).offset(4, 3).select如果該命名區(qū)域不在當前工作表中，可以先激活該工作表，然后再選擇，如下面的代碼：sheets(sheet3).activateactivesheet.range(test).offset(4, 3).select如何選擇與當前單元格相關的單元格？例如，要選擇距當前單元格下面5行左側4列的單元格，可以使用下面的代碼：activecell.offset(5, -4).select要選擇距當前單元格上方2行右側3列的單元格，可以使用下面的代碼：active

11、cell.offset(-2, 3).select注意：一定要保證當前單元格與所選單元格之間的距離在工作表范圍內(nèi)，否則會出錯。如何選擇與另一單元格(不是當前單元格)相關的單元格？例如，要選擇距單元格c7下方5行右側4列的單元格，可以使用下面的代碼：activesheet.cells(7, 3).offset(5, 4).select或：activesheet.range(c7).offset(5, 4).select如何選擇偏離指定區(qū)域的一個單元格區(qū)域？例如，要選擇與名為“test”的區(qū)域大小相同但在該區(qū)域下方4行右側3列的一個區(qū)域，可以使用下面的代碼：activesheet.range(te

12、st).offset(4, 3).select如果該命名區(qū)域不在當前工作表中，可以先激活該工作表，然后再選擇，如下面的代碼：sheets(sheet3).activateactivesheet.range(test).offset(4, 3).select下面的示例使用了如下圖所示的工作表。如何選擇連續(xù)數(shù)據(jù)列中的最后一個單元格？例如，要選擇一個連續(xù)列中的最后一個單元格，可以使用下面的代碼：activesheet.range(a1).end(xldown).select該代碼使用在上面的工作表中，單元格a4被選擇。如何選擇連續(xù)數(shù)據(jù)列底部的空單元格？例如，要選擇連續(xù)單元格區(qū)域下面的單元格，可以使用

13、下面的代碼：activesheet.range(a1).end(xldown).offset(1, 0).select該代碼使用在上面的工作表中，單元格a5被選擇。如何選擇某列中連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇一列中的連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：activesheet.range(a1, activesheet.range(a1).end(xldown).select或：activesheet.range(a1: & activesheet.range(a1).end(xldown).address).select該代碼使用在上面的工作表中，單元格區(qū)域a1：a4將被選擇。如何選擇某

14、列中非連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇某列中非連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：activesheet.range(a1, activesheet.range(a65536).end(xlup).select或：activesheet.range(a1: & activesheet.range(a65536).end(xlup).address).select該代碼使用在上面的工作表中，單元格區(qū)域a1：a6將被選擇。如何選擇一個矩形(規(guī)則的)單元格區(qū)域？要選擇圍繞某單元格的一個矩形區(qū)域，可以使用currentregion方法。currentregion方法將選擇四周被空行和空列圍繞的區(qū)域

15、，如下面的代碼：activesheet.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).select若想選擇單元格區(qū)域a1：c6，可使用下面的代碼：lastcol = activeshee

16、t.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: & activeshee

17、t.cells(lastrow, lastcol).address).select下面的示例使用了如下圖所示的工作表。如何選擇連續(xù)數(shù)據(jù)列中的最后一個單元格？例如，要選擇一個連續(xù)列中的最后一個單元格，可以使用下面的代碼：activesheet.range(a1).end(xldown).select該代碼使用在上面的工作表中，單元格a4被選擇。如何選擇連續(xù)數(shù)據(jù)列底部的空單元格？例如，要選擇連續(xù)單元格區(qū)域下面的單元格，可以使用下面的代碼：activesheet.range(a1).end(xldown).offset(1, 0).select該代碼使用在上面的工作表中，單元格a5被選擇。如何選擇某

18、列中連續(xù)數(shù)據(jù)單元格區(qū)域？例如，要選擇一列中的連續(xù)數(shù)據(jù)單元格區(qū)域，可以使用下面的代碼：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, activesheet.range(a655

19、36).end(xlup).select或：activesheet.range(a1: & activesheet.range(a65536).end(xlup).address).select該代碼使用在上面的工作表中，單元格區(qū)域a1：a6將被選擇。如何選擇一個矩形(規(guī)則的)單元格區(qū)域？要選擇圍繞某單元格的一個矩形區(qū)域，可以使用currentregion方法。currentregion方法將選擇四周被空行和空列圍繞的區(qū)域，如下面的代碼：activesheet.range(a1).currentregion.select該代碼使用在上面的工作表中，將選擇單元格區(qū)域a1：c4。也可以使用下面的代

20、碼：activesheet.range(a1, activesheet.range(a1).end(xldown).end(xltoright).select或：activesheet.range(a1: & activesheet.range(a1).end(xldown).end(xltoright).address).select若想選擇單元格區(qū)域a1：c6，可使用下面的代碼：lastcol = activesheet.range(a1).end(xltoright).columnlastrow = activesheet.cells(65536, lastcol).end(xlup).

21、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注：使用application.goto方法，如果指定另一工作表(不是當前工作表)中的指定區(qū)

22、域，在range屬性中使用兩個cells屬性時，則必須包括sheets對象，如：application.goto sheets(sheet1).range(sheets(sheet1).range(sheets(sheet1).cells(2, 3), sheets(sheet1).cells(4, 5)在vba中，range 對象既可表示單個單元格，也可表示單元格區(qū)域。下面的內(nèi)容說明了標識和處理range對象最常用的方法。引用工作表上的所有單元格如果對工作表應用 cells 屬性時不指定索引號，該方法將返回代表工作表上所有單元格的 range 對象。以下 sub 過程清除活動工作簿中 she

23、et1 上的所有單元格的內(nèi)容。sub clearsheet() worksheets(sheet1).cells.clearcontentsend sub使用 a1 表示法引用單元格和區(qū)域可使用 range 屬性引用 a1 引用樣式中的單元格或單元格區(qū)域。下述子例程將單元格區(qū)域 a1:d5 的字體設置為加粗。sub formatrange() workbooks(book1).sheets(sheet1).range(a1:d5) _ .font.bold = trueend sub下表演示了使用 range 屬性的一些 a1 樣式引用。引用 含義range(a1) 單元格 a1range(a

24、1: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 行range(a:a,c:c,f:f)a 、c 和 f 列在vba中，range 對象既可表示單個單元格，也可表示單元格區(qū)域。下面的內(nèi)容說明了標識和處理range對象最常用的方法。引用工作表上的所有單元格如果對工作表應用 cells 屬性時不指定索引號，該方法將返回代表工作表上所有單元格的 range 對

25、象。以下 sub 過程清除活動工作簿中 sheet1 上的所有單元格的內(nèi)容。sub clearsheet() worksheets(sheet1).cells.clearcontentsend sub使用索引號引用單元格通過使用行列索引號，可用 cells 屬性引用單個單元格。該屬性返回代表單個單元格的 range 對象。在下例中，cells(6,1) 返回 sheet1 上的單元格 a6，然后將 value 屬性設置為 10。sub entervalue() worksheets(sheet1).cells(6, 1).value = 10end sub因為可用變量替代編號，所以 cells

26、 屬性非常適合于在單元格區(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ū)域中的所有單元格），建議使用 range 屬性。使用快捷表示法引用單元格可用方括號將 a1 引用樣式或命名區(qū)域括起來，作為 range 屬性的快捷方式。這樣就不必鍵入單詞“range”或使用引號了，如下例中所示。sub

27、 clearrange() worksheets(sheet1).a1:b5.clearcontentsend sub sub setvalue() myrange.value = 30end sub使用 range 對象引用單元格如果將對象變量設置為 range 對象，即可用變量名輕松地操作單元格區(qū)域。以下過程將創(chuàng)建對象變量 myrange，然后將活動工作簿中 sheet1 上的區(qū)域 a1:d5 賦予該變量。隨后的語句用該變量名稱代替 range 對象，以修改該區(qū)域的屬性。sub random() dim myrange as range set myrange = worksheets(s

28、heet1).range(a1:d5) myrange.formula = =rand() myrange.font.bold = trueend sub引用命名區(qū)域用名稱比用 a1 樣式記號更容易標識單元格區(qū)域。若要命名選定的單元格區(qū)域，請單擊編輯欄左端的名稱框，鍵入名稱，再按 enter。引用命名區(qū)域以下示例引用名為“mybook.xls”的工作簿中名為“myrange”的區(qū)域。sub formatrange() range(mybook.xls!myrange).font.italic = trueend sub以下示例引用名為“report.xls”的工作簿中特定于工作表的區(qū)域“she

29、et1!sales”。sub formatsales() range(report.xlssheet1!sales).borderaround weight:=xlthinend sub要選定命名區(qū)域，可使用 goto 方法，該方法將激活工作簿和工作表，然后選定該區(qū)域。sub clearrange() application.goto reference:=mybook.xls!myrange selection.clearcontentsend sub以下示例顯示對于活動工作簿將如何編寫與上例相同的過程。sub clearrange() application.goto reference:

30、=myrange selection.clearcontentsend sub在命名區(qū)域中的單元格上循環(huán)下例用 for each.next 循環(huán)語句在命名區(qū)域中的每一個單元格上循環(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 cend sub引用多個區(qū)域使用適當?shù)姆椒梢院苋菀椎赝瑫r引用多個

31、單元格區(qū)域。可用 range 和 union 方法引用任意組合的單元格區(qū)域；用 areas 屬性可引用工作表上選定的一組單元格區(qū)域。使用 range 屬性通過在兩個或多個引用之間插入逗號，可使用 range 屬性引用多個區(qū)域。以下示例清除了 sheet1 上三個區(qū)域的內(nèi)容。sub clearranges() worksheets(sheet1).range(c5:d9,g9:h16,b14:d18). _ clearcontentsend sub命名區(qū)域使得用 range 屬性處理多個區(qū)域更加容易。以下示例可在所有這三個命名區(qū)域處于同一工作表時運行。sub clearnamed() range(myrange, yourrange, hisrange).cl