range显示当前刻度_Vba实例教程：Range（二）：Clear、Count、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，与你判断的是否一样呢？