1-1使用With语句引用对象在需要重复引用同一个对象时可以使用With语句来获得较快的运行速度，如下面的代码所示。

Sub WithSta()
Dim i As Integer
Dim t As Date
Dim t1As String
Dim t2As String
t= Timer
For i=1To 5000 Sheets("S heet1").C ells(1, 1) = 10
Sheets("S heet1").C ells(1, 2) = 10 Sheets("S heet1").C ells(1, 3) = 10
Sheets("S heet1").C ells(1, 4) = 10
Sheets("S heet1").C ells(1, 5) = 10
Next
t1 =Timer-t
t= Timer
With Sheets("S heet1") For i=1 To 5000
.Cells(1, 1) = 10
.Cells(1, 2) = 10
.Cells(1, 3) = 10
.Cells(1, 4) = 10
.Cells(1, 5) = 10 Next
End With
t2 =Timer-t
MsgBox"第一次运行时间:"& Format(t1 ,
"0.00000" )&"秒" _
&Chr(13) &"第二次运行时间:" &
Format(t2 ,
"0.00000" ) & "秒"
End Sub 代码解析：WithSta过程在单元格填充时使用With 语句来引用工作表对象从而获得较快的运行速度。

With语句在一个单一对象或一个用户定义类型上执行一系列的语句，语法如下：With Object
[statemen ts]
End With 参数object 是必需的，一个对象或用户自定义类型的名称。

参数statement s是可选的，要执行的一条或多条语句。

With语句
可以对某
个对象执
行一系列
的语句，
而不用重
复指出对
象的名称。

在运行
时只需引
用对象一
次而不是
在每个属
性赋值时
都要引
用，从而
获得较快
的运行速
度。

运行
WithSta过
程，消息
框显示两
种方法的
运行时
间，可以
看出使用
With语句
来引用工
作表对象
的运行速
度较快，
如图
190‑4所示。

图 190‑4运行时间比较。