本文主要内容:range的方法、属性——Clear、Count、CurrentRegion
Clear
1.如果清除Range的内容,可以用clearcontents方法
Range("A1").ClearContents
或者可以用如下代码:
Range("A1").Value = ""
![ecf793669a73a7c136007c7fda3a4d04.png](https://i-blog.csdnimg.cn/blog_migrate/d6008eaca41bada9267752d49e397ffb.jpeg)
点击按钮,结果如图
![262c33665fe7137ad20f0e14c1dd2388.png](https://i-blog.csdnimg.cn/blog_migrate/456cc9e361fbd89f76071c779d082dea.jpeg)
可以看到A1单元格的内容清除了,但是填充色还在,如何清除类似填充色之类的格式内容呢?
2.清除Range的属性,可以用clearformats方法
Range(“A1”).clearformats
3.如果想同时清除Range的内容和属性,可以用clear方法
Range("A1").Clear
![fac2a7d98f8a8987f0cbbee5804ddc02.png](https://i-blog.csdnimg.cn/blog_migrate/498cb7d435406598958beac6322b3f23.jpeg)
点击按钮后,可以看到不仅A1单元格的内容清除了,而且其黄色的填充色也清除了
![5272bb4a0c1739bb7d327445ff3228a6.png](https://i-blog.csdnimg.cn/blog_migrate/f7e656503cf9d90ca3ee0fc4b3e358ba.jpeg)
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
![a0f3fc00ab7775269a47ca85ef226efe.png](https://i-blog.csdnimg.cn/blog_migrate/294cd22acf609b8bccf2d3a9112e4763.jpeg)
![ba556f3059a641409bed9ae02009f3d6.png](https://i-blog.csdnimg.cn/blog_migrate/7cbed23c74106376a73ad0be1cb63951.jpeg)
CurrentRegion
CurrentRegion属性是一个非常有用的属性,返回活动单元格所在的周围由空行和空列组成的单元格区域(即通常所说的当前区域),该区域为活动单元格附近不为空的单元格范围,该范围截止区域为空行、空列。
如图,根据上面的讲述,你能找到A1的CurrentRegion吗?
![e85a3a990f1be73d6c3eab01c8ee5c17.png](https://i-blog.csdnimg.cn/blog_migrate/56ce2aa39e70a440ba74481b6f6ea3d2.jpeg)
输入代码:
Sub 按钮2_Click()
Range("a1").CurrentRegion.Select
End Sub
得到A1的CurrentRegion,与你判断的是否一样呢?
![b5ec90779a4cc29beaaca0ec7297d9ee.png](https://i-blog.csdnimg.cn/blog_migrate/4490f0908e9b1d5709871704868977dc.jpeg)