方法1：盡量使用VBA原有的屬性、方法和Worksheet函數(shù)

　　由于Excel對象多達(dá)百多個，對象的屬性、方法、事件多不勝數(shù)，對于初學(xué)者來說可能對它們不全部了解，這就產(chǎn)生了編程者經(jīng)常編寫與Excel對象的屬性、方法相同功能的VBA代碼段，而這些代碼段的運(yùn)行效率顯然與Excel對象的屬性、方法完成任務(wù)的速度相差甚大。例如用Range的屬性CurrentRegion來返回 Range 對象，該對象代表當(dāng)前區(qū)。(當(dāng)前區(qū)指以任意空白行及空白列的組合為邊界的區(qū)域)。同樣功能的VBA代碼需數(shù)十行。因此編程前應(yīng)盡可能多地了解Excel對象的屬性、方法。

　　充分利用Worksheet函數(shù)是提高程序運(yùn)行速度的極度有效的方法。如求平均工資的例子：

　　For Each c In Worksheet(1).Range(″A1:A1000″)

　　Totalvalue = Totalvalue + c.value

　　Next

　　Averagevalue = Totalvalue / Worksheet(1).Range(″A1:A1000″).Rows.Count

　　而下面代碼程序比上面例子快得多：

　　Averagevalue=Application.WorksheetFunction.Average(Worksheets(1).Range(″A1:A1000″))

　　其它函數(shù)如Count,Counta,Countif,Match,Lookup等等，都能代替相同功能的VBA程序代碼，提高程序的運(yùn)行速度。

　　方法2：盡量減少使用對象引用，尤其在循環(huán)中

　　每一個Excel對象的屬性、方法的調(diào)用都需要通過OLE接口的一個或多個調(diào)用，這些OLE調(diào)用都是需要時間的，減少使用對象引用能加快VBA代碼的運(yùn)行。

　　例如　1.使用With語句。

　　Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.Name=″Pay″

　　Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.FontStyle=″Bold″ ...

　　則以下語句比上面的快

　　With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font

　　Name = ″Pay″

　　.FontStyle = ″Bold″ 　　 ...

　　End With

　　2.使用對象變量

　　如果你發(fā)現(xiàn)一個對象引用被多次使用，則你可以將此對象用Set 設(shè)置為對象變量，以減少對對象的訪問。如：

　　Workbooks(1).Sheets(1).Range(″A1″).value = 100

　　Workbooks(1).Sheets(1).Range(″A2″).value = 200

　　則以下代碼比上面的要快：

　　Set MySheet = Workbooks(1).Sheets(1)

　　MySheet.Range(″A1″).value = 100

　　MySheet.Range(″A2″).value = 200

　　3.在循環(huá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：減少對象的激活和選擇

　　如果你的通過錄制宏來學(xué)習(xí)VBA的，則你的VBA程序里一定充滿了對象的激活和選擇，例如

　　Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select等,但事實上大多數(shù)情況下這些操作不是必需的。例如

　　Sheets(″Sheet3″).Select

　　Range(″A1″).value = 100

　　Range(″A2″).value = 200

　　可改為：

　　With Sheets(″Sheet3″)

　　.Range(″A1″).value = 100

　　.Range(″A2″).value = 200

　　End With

　　方法4：關(guān)閉屏幕更新

　　如果你的VBA程序前面三條做得比較差，則關(guān)閉屏幕更新是提高VBA程序運(yùn)行速度的最有效的方法，縮短運(yùn)行時間2/3左右。關(guān)閉屏幕更新的方法：

　　Application.ScreenUpdate = False

　　請不要忘記VBA程序運(yùn)行結(jié)束時再將該值設(shè)回來：

　　Application.ScreenUpdate = True