currentregion

本文主要内容：range的方法、属性——Clear、Count、CurrentRegion

Clear

1.如果清除Range的内容，可以用clearcontents方法

Range('A1').ClearContents

或者可以用如下代码:

Range('A1').Value="'

点击按钮，结果如图

可以看到A1单元格的内容清除了，但是填充色还在，如何清除类似填充色之类的格式内容呢？

2.清除Range的属性，可以用clearformats方法

Range（“A1”）.clearformats

3.如果想同时清除Range的内容和属性，可以用clear方法

Range('A1').Clear

点击按钮后，可以看到不仅A1单元格的内容清除了，而且其黄色的填充色也清除了

Count

Count属性可以计算Range的单元格、行或者列的数量。

下列代码显示选中区域的单元格数量、行数、列数：

Sub 按钮2_Click()

Dim r As Range

Set r=Range('a1:c5')

r.Select

MsgBox '选中的区域共有' & r.Count & '个单元格、' & r.Rows.Count & '行、' & r.Columns.Count & '列'

End Sub

CurrentRegion

CurrentRegion属性是一个非常有用的属性，返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域)，该区域为活动单元格附近不为空的单元格范围，该范围截止区域为空行、空列。

如图，根据上面的讲述，你能找到A1的CurrentRegion吗？

输入代码：

Sub 按钮2_Click()

Range('a1').CurrentRegion.Select

End Sub

得到A1的CurrentRegion，与你判断的是否一样呢？