专业海外网站推广创建网站论坛

《VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第四章第四节：单元格对象的Clear方法和Count属性

【分享成果，随喜正能量】165 我们很多道友没受过什么苦，或受不了一句话、一点气，总想悠悠自在成佛。或是念上几十部经就想换取什么，法宝是无价的！你拿有价来换，不但换不到，还丧失了功德。应当不退初心，遇到恶缘，把它看作考验，你能不能定得住?人身难得，佛法难闻，百念千生，要坚固自己的信愿力，莫退信心。

第四章 单元格（Range）对象

大家好，我们这章开始学习单元格对象。单元格（Range）对象是Excel VBA中最重要的对象之一。本章概述了Range对象的属性和方法，包括如何声明一个单元格对象，如何选择单元格对象，以及对行、列的操作，还讲解了如何对单元格进行复制、粘贴、清除、计数，以及对当前区域CurrentRegion的讲解，还涉及到单元格的联合与交叉等。通过这章的学习，大家会更清楚地看到VBA的结构，以及在实际工作中VBA的综合利用。

第四节 单元格对象的Clear方法和Count属性

大家好，我们这讲的内容是讲解单元格对象的Clear方法和Count属性，随着对单元格讲解的深入，我们逐渐了解了许多EXCEL的后台操作，给我们的学习带来了很多的方便，也让我们更深入地了解了EXCEL的本质。这节内容将更加直观地让我们看到VBA的方便操作。

1 Range的Clear方法；ClearContents方法；ClearFormats方法

1）语法：expression.Clear 这种方法将清除整个对象，包括格式和内容以及公式。

其中expression 一个表示 Range 对象的变量。

2）语法：expression.ClearContents这种方法将清理区域中的公式和值，但单元格格式和条件格式保留不变。

其中expression 一个表示 Range 对象的变量。

3）语法：expression.ClearFormats 这种方法将清除清除对象的格式设置。

其中expression 一个表示 Range 对象的变量。

• 注意:使用Clear方法来清除范围的内容和格式。使用clearformat方法只清除格式。

2 Range.Count 属性

语法：expression.Count 返回一个 Long 值，它代表集合中对象的数量。

其中expression 一个表示 Range 对象的变量。

• Count属性的功能与CountLarge 属性的作用相同, 不同之处在于, 如果指定的区域包含超过2147483647个单元格 (一个小于2048列), count属性将生成一个溢出错误。 但是，CountLarge 属性可处理达工作表最大大小的区域，即 17,179,869,184 个单元格。
• 使用Count属性，可以计算范围的单元格数、行数和列数。

3 Clear方法Count属性的实例应用

下面我们来看看上述方法和属性的实例应用，如下代码：

Sub mynzH() 'Clear方法Count属性的实例应用

Dim myRange As Range

Set myRange = Range("A1:C4")

myRange.Value = 100

Range("A1").ClearContents

Range("b2").Clear

MsgBox myRange.Count

End Sub

代码截图：

代码讲解：

1) myRange.Value = 100 这句代码是令A1:C4的单元格值等于100

2）Range("A1").ClearContents 只清除了内容

3）Range("b2").Clear 清除了格式和内容

4）MsgBox myRange.Count 提示我们整个单元格区域的单元格的数量

我们最后看代码的执行效果：

如果需要计算所选单元格区域的行数，可以用下面的代码：

myRange.Rows.Count

今日内容回向：

1） 单元格的CLEAR方法有哪些，有什么作用？

2） 单元格的COUNT属性有什么意义？

本讲内容参考程序文件：工作簿04.xlsm

我20多年的VBA成果全在下面的资料中：