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

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

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

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

1工作表的選擇或者激活

1） Sheets("4").Activate.

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

備注：在工作表的操作時可以用select.

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

2） Range("A1").Select

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

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

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

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

展開全文

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

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

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

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

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

4） Cells.Select

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

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

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

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

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

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

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

執(zhí)行代碼后：

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

6） Rows("1").Select

Columns("A").Select

或者：

ActiveCell.EntireRow.Select

ActiveCell.EntireColumn.Select

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

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

Rows("1:5").Select

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

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

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

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

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

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

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

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

語句說明：執(zhí)行上述代碼后選擇當前活動單元格向下至最后一個空或者非空的單元格：

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

今日內容回向：

1 選擇包括哪些內容？

2 如何理解CurrentRegion含義？

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

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

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：