With Sheets(″Sheet3″)
　.Range(″A1″).Value = 100
　.Range(″A2″).Value = 200
End With
2、盡量減少使用對(duì)象引用，即減少“.”的使用，尤其在循環(huán)中
每一個(gè)Excel對(duì)象的屬性、方法的調(diào)用都需要通過(guò)OLE接口的一個(gè)或多個(gè)調(diào)用，這些OLE調(diào)用都是需要時(shí)間的，減少使用對(duì)象引用能加快VBA代碼的運(yùn)行。例如
(1)使用With語(yǔ)句。

With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font
　　 .Name = ″Pay″
　　 .FontStyle = ″Bold″
End With
(2)使用對(duì)象變量。
　　如果你發(fā)現(xiàn)一個(gè)對(duì)象引用被多次使用，則你可以將此對(duì)象用Set 設(shè)置為對(duì)象變量，以減少對(duì)對(duì)象的訪(fǎng)問(wèn)。如：

Workbooks(1).Sheets(1).Range(″A1″).Value = 100
Workbooks(1).Sheets(1).Range(″A2″).Value = 200則以下代碼比上面的要快：

Set TheValue = Cells(1,1).Value
Sheets(″Sheet1″).Select
For k = 1 To 1000
　Cells(k,1).Value = TheValue
Next k
(3)在循環(huán)中要盡量減少對(duì)象的訪(fǎng)問(wèn)。
For k = 1 To 1000
　Sheets(″Sheet1″).Select
　Cells(k,1).Value = Cells(1,1).Value
Next k
則以下代碼比上面的要快：
Set TheValue = Cells(1,1).Value
Sheets(″Sheet1″).Select
For k = 1 To 1000
　Cells(k,1).Value = TheValue
Next k
3、有效地使用數(shù)組與變量，盡量少使用單元格直接參與計(jì)算
　　通常單元格的操作都比較慢，可以先將單元格的值讀入變量或數(shù)組變量，對(duì)變量進(jìn)行運(yùn)算，這樣可以提高處理的速度。處理結(jié)束以后，只要用一個(gè)語(yǔ)句就可以將數(shù)組中的數(shù)據(jù)傳遞回單元格區(qū)域中。
　　在創(chuàng)建已知元素的確定數(shù)組時(shí)，使用Array函數(shù)對(duì)于節(jié)約空間和時(shí)間以及寫(xiě)出更具效率的代碼是非常理想的。例如：
Dim Names As Variant
Names=Array(“Fan”,“Yang”,“Wu”,“Shen”) 　　此外，應(yīng)該盡量使用固定大小的數(shù)組。如果確實(shí)選擇使用了動(dòng)態(tài)數(shù)組，應(yīng)該避免數(shù)組每增加一個(gè)元素就改變一次數(shù)組的大小，最好是每次增加一定數(shù)量的元素。

下面是一些擴(kuò)展讀物，有興趣的同學(xué)可以試試看：

一個(gè)遍歷大范圍Range的各種方法的比較：http://www.vbafan.com/2009/01/22/what-is-the-fastest-way-to-scan-a-large-range-in-excel/。
http://wenku.baidu.com/view/7ec7c74e2e3f5727a5e962f1.html