摘要： 们已经了解了Excel VBA的变量，知道了如何给变量赋值。下面，我们详细谈谈Excel中很重要的对象变量。 变量除了可以表示数值、字符串等外，还可以表示一个工作簿、...
们已经了解了Excel VBA的变量，知道了如何给变量赋值。下面，我们详细谈谈Excel中很重要的对象变量。
变量除了可以表示数值、字符串等外，还可以表示一个工作簿、一张工作表、一个单元格，这就是对象变量（Object类型的变量）。
声明对象变量
对象变量的声明没有什么特殊之处，仍然是使用Dim语句或者Public语句。下图1是一些常用的对象声明示例：
图1
注意：当我们不知道对象变量的具体类型时，可以将其声明为通用的Object类型。
给对象变量赋值
对象变量的赋值与普通变量的赋值不同，必须使用关键字Set。
例如，使用下面的语句将变量rng声明为Range对象：
Dim rng As Range
然后，使用下面的语句给变量rng赋值：
Set rng = Worksheets(“Sheet1”).Range(“A1:B2”)
现在，我们就可以使用变量rng来代表工作表Sheet1中的单元格区域A1:B2。
此时，再运行代码：
rng.Value = “示例”
将在单元格区域A1:B2中输入“示例”文本，如图2所示。
图2
注意：在给对象变量赋值时，一定要加上关键字Set。很多代码错误往往就是在给对象变量赋值时没有使用Set。
给对象变量赋值的通用结构为：
Set 对象变量名= 对象
使用对象变量的好处
仍然使用上面给单元格区域A1:B2输入文本“示例”的例子。如果不使用对象变量，那么将使用下面的代码来操作该区域：
Sub test()
Worksheets(“Sheet1”).Range(“A1:B2”).Value = “示例”
Worksheets(“Sheet1”).Range(“A1:B2”).Font.Bold = True
Worksheets(“Sheet1”).Range(“A1:B2”).Font.Size = 19
Excel VBA变量和常量
在编写程序时，少不了要使用变量和常量，它们都是程序中很重要的元素，是组织程序的基础。 一个示例 下面是一个简单的VBA程序，用来计算半径为5的圆的面积。 Sub 示例2() Const PI = 3.1415926 Dim r As Integer Dim area As Double r = 5 '
Worksheets(“Sheet1”).Range(“A1:B2”).Interior.Color =vbYellow
End Sub
该段代码首先在工作表Sheet1的单元格区域A1:B2中输入文本“示例”，然后将字体加粗，字号大小调整为19号，将单元格背景色设置为黄色。
让我们再来看看使用对象变量达到同样效果的代码：
Sub testUpdate()
Dim rng As Range
Set rng =Worksheets(“Sheet1”).Range(“A1:B2”)
rng.Value = “示例”
rng.Font.Bold = True
rng.Font.Size = 19
rng.Interior.Color = vbYellow
End Sub
代码显得更简洁，似乎运行的速度也加快了。因此，我们总结使用对象变量的好处有：
可以很好地简化代码，使代码更容易阅读。
可以提高代码的执行速度。在多次引用相同的对象时，使用对象变量后，点运算符的数目明显减少，用于解析对象引用的时间也会减少，自然就提高了代码的执行速度。
方便地操作其他工作表或工作簿中的数据。例如，在操作当前工作表的数据时，我们要复制或使用其他工作表中的数据，此时，可以将其他工作表中的数据区域赋值给对象变量，就可以方便地使用了，而不用担心代码究竟在操纵哪个工作表。
方便创建新的对象实例。例如下面的代码：
Sub CreateNewWorkbook()
‘声明工作簿和工作表对象变量
Dim wb As Workbook
Dim wks As Worksheet
‘创建新的对象实例并赋值
Set wb = Workbooks.Add
Set wks =wb.Worksheets(“Sheet1”)
‘对工作表进行操作
wks.Name = “我的工作表” ‘重命名工作表
wks.Range(“A1”)= “Test” ‘给工作表中的单元格A1填充值
End Sub
SUBSTITUTE函数
SUBSTITUTE函数在文本字符串中使用新文本替换旧文本。该函数将替换所有的旧文本，除非选择了指定位置。该函数区分大小写。 什么情况下使用SUBSTITUTE函数? SUBSTITUTE函数使用新文本替换文本字符串中的旧文本。因此，可以用于： 修改报告标题中的区域名称 移除非打印字符 替换最后一个空字符
