第四讲 如何利用VBA代码选择工作表，选择连续区域及选择不连续区域

这节主要是讲解各种选择在VBA中的实现，如果在EXCEL中，轻点鼠标就可以实现，那么在VBA中是如何实现的呢？我们看下面的代码。

1  工作表的选择或者激活

1） Sheets("4").Activate.      

语句说明：执行上述代码后，选择一个名为"4"的工作表：      

备注：在工作表的操作时可以用select.      

2   工作表内区域的选择

2） Range("A1").Select             

语句说明：执行上述代码后，选择一个名为" A1"的单元格：

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

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

语句说明：执行上述代码后，选择"A1:G8"的连续单元格：

选择不连续的单元格：                    

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

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

语句说明：执行上述代码后，选择不连续单元格："A1,B6,D9"，"A1,B6:B10,D9"

lCELLS()的单元格表示方式是不能用这种表示方法的。

4） Cells.Select

语句说明：执行上述代码后，选择整个工作表.

l注意select和selection的区别，这里用的是select

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

语句说明：执行上述代码后，选择当前单元格所在的区域（遇到空行/空列即止）.

lCurrentRegion的意义是区域，CurrentRegion属性返回代表当前区域的Range对象。当前区域是指包含有当前单元格的由空行和空列围绕组成的区域。在该区域中，必须保证区域中的每一行或列中至少有一个存在数据的单元格。 但是，该属性在受保护的工作表中无效。

如何理解上面“由空行和空列围绕组成的区域”呢？我们看下面的实例,代码：

现在有下面的区域：

执行代码后：

上面深色区域是选择后的区域。它是由空格包围的。

6）  Rows("1").Select

Columns("A").Select

或者：

ActiveCell.EntireRow.Select

ActiveCell.EntireColumn.Select

语句说明：执行上述代码后，选择行或列：

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

Rows("1:5").Select

语句说明：执行上述代码后，选择选择相邻的多行/多列：

备注：使用"Columns/Rows"：要注意和下面第八点的区别。

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

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

语句说明：执行上述代码后，选择不相邻的多行/多列：

l和选择相邻的多行/多列不同，使用"Range"而不是"Columns/Rows"。

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

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

语句说明：执行上述代码后选择当前活动单元格向下至最后一个空或者非空的单元格：

备注：注意理解End(xlDown)的意义，相当于CTRL+↓

今日内容回向：

1 选择包括哪些内容？

2 如何理解CurrentRegion含义？