《VBA代碼解決方案》(10028096)這套教程是我最早推出的教程，目前已經(jīng)是第三版修訂了。這套教程定位于入門(mén)后的提高，在學(xué)習(xí)這套教程過(guò)程中，側(cè)重點(diǎn)是要理解及掌握我的“積木編程”思想。要靈活運(yùn)用教程中的實(shí)例像搭積木一樣把自己喜歡的代碼擺好。

這套教程共三冊(cè)，一百四十七講，內(nèi)容覆蓋較廣，也是初級(jí)和中級(jí)間的過(guò)渡教程，改版后的內(nèi)容主要是提供程序源碼文件及代碼修正為32位和64位兼用代碼。今后一段時(shí)間會(huì)給大家陸續(xù)推出。今日的內(nèi)容是第4講：如何利用VBA代碼選擇工作表，選擇連續(xù)區(qū)域及選擇不連續(xù)區(qū)域

第四講 如何利用VBA代碼選擇工作表，選擇連續(xù)區(qū)域及選擇不連續(xù)區(qū)域

這節(jié)主要是講解各種選擇在VBA中的實(shí)現(xiàn)，如果在EXCEL中，輕點(diǎn)鼠標(biāo)就可以實(shí)現(xiàn)，那么在VBA中是如何實(shí)現(xiàn)的呢？我們看下面的代碼。

1工作表的選擇或者激活

1） Sheets("4").Activate.

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇一個(gè)名為"4"的工作表：

備注：在工作表的操作時(shí)可以用select.

2工作表內(nèi)區(qū)域的選擇

2） Range("A1").Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇一個(gè)名為"A1"的單元格：

備注：RANGE是單元格，也可以用CELLS(M,N)來(lái)代替，其中M是行，N是列。

3） Range("A1:G8").Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇"A1:G8"的連續(xù)單元格：

展開(kāi)全文

選擇不連續(xù)的單元格：

Range("A1,B6,D9").Select

Range("A1,B6:B10,D9").Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇不連續(xù)單元格："A1,B6,D9"，"A1,B6:B10,D9"

lCELLS()的單元格表示方式是不能用這種表示方法的。

4） Cells.Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇整個(gè)工作表.

l注意select和selection的區(qū)別，這里用的是select

5） Range("B2").CurrentRegion.Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇當(dāng)前單元格所在的區(qū)域（遇到空行/空列即止）.

lCurrentRegion的意義是區(qū)域，CurrentRegion屬性返回代表當(dāng)前區(qū)域的Range對(duì)象。當(dāng)前區(qū)域是指包含有當(dāng)前單元格的由空行和空列圍繞組成的區(qū)域。在該區(qū)域中，必須保證區(qū)域中的每一行或列中至少有一個(gè)存在數(shù)據(jù)的單元格。 但是，該屬性在受保護(hù)的工作表中無(wú)效。

如何理解上面“由空行和空列圍繞組成的區(qū)域”呢？我們看下面的實(shí)例,代碼：

現(xiàn)在有下面的區(qū)域：

執(zhí)行代碼后：

上面深色區(qū)域是選擇后的區(qū)域。它是由空格包圍的。

6） Rows("1").Select

Columns("A").Select

或者：

ActiveCell.EntireRow.Select

ActiveCell.EntireColumn.Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇行或列：

7） Columns("A:C").Select

Rows("1:5").Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇選擇相鄰的多行/多列：

備注：使用"Columns/Rows"：要注意和下面第八點(diǎn)的區(qū)別。

8） Range("A:A, C:C, E:F").Select

Range("1:1,5:6,9:9").Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后，選擇不相鄰的多行/多列：

l和選擇相鄰的多行/多列不同，使用"Range"而不是"Columns/Rows"。

9） Range("A1", Range("A1").End(xlDown)).Select

Range(ActiveCell, ActiveCell.End(xlDown)).Select

語(yǔ)句說(shuō)明：執(zhí)行上述代碼后選擇當(dāng)前活動(dòng)單元格向下至最后一個(gè)空或者非空的單元格：

備注：注意理解End(xlDown)的意義，相當(dāng)于CTRL+↓

今日內(nèi)容回向：

1 選擇包括哪些內(nèi)容？

2 如何理解CurrentRegion含義？

本講內(nèi)容參考程序文件：VBA代碼解決方案（1-19）.xlsm

【分享成果，隨喜正能量】我們不可能自己不犯錯(cuò)，就如同你不可能不允許別人犯錯(cuò)，每個(gè)人都不是圣人，但即便是圣人，他也有犯錯(cuò)的時(shí)候。內(nèi)觀和寬容都是修行之道。。

我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中：