简化及提高VBA运行速度的方法

VBA執行的速度很快的,只要你代碼寫的好

1.盡量不要選擇任何內容(對象)
例:
Rows(“1:1”).Select
Selection.Font.Bold =True
'改成**************
Rows(“1:1”).Font.Bold=True

2.使用單行語句進行複制和粘貼
例:
Range(“E14”).Select
Selection.Copy
Range(“F14:G14”).Select
Activesheet.Paste
'改成*************
Range(“E14”).Copy Destination :=Range(“F14:G14”)

3.使用With…..   End With語句
例:
Range(“A14:G14”).Select
Selection.Font.Bold=True
Selection.Font.Size=12
Selection.Font.ColorIndex=5
Selection.Font.Undecline=xlUnderlinestyleDoubleAccounting
'改成***********************
With Range(“A14:G14”).Font
.Bold=True
.Size=12
.ColorIndex=5
.Undecline=xlUnderlinestyleDoubleAccounting
End With

4.將錄製宏產生多餘的代碼(內容前後未變化者)刪除
例:將Range(“E6:E11”)設成16粗体字型使用錄製宏可能產生如下代碼
'*****************************************************
Range("E6:E11").Select
    With Selection.Font
        .Name = "新細明体"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
'改成如下即可達到同樣效果***********
Range(“E6:E11”).Font.Size=16
Range(“E6:E11”).Font t.Bold = True

5.使用變量及R1C1表示法編寫Range選取指令或公式
例:
Range("B1").value2=1
Range("B2").value2=2
Range("B3").value2=3
...
Range("B10").value2=10
'改成***********
For i=1 to 10
Cells(i,2).value2=i
next

6.使用Application.Calculation = xlManual,減少工作表重算時間  
避免在工作表中設定太多公式(上萬條),能用VBA計算處理則用VBA計算處理,減少工作表重算時間
   如可能者先將計算方式設成手動再覆製或填寫資料,待有必要時在將其設成自動等方式
   計算方式設成手動代碼:
   Application.Calculation = xlManual
  計算方式設成自動代碼:
  Application.Calculation = xlSemiautomatic   (除運算列表外,自動重算)
Application.Calculation = xlAutomatic

7.使用Application.ScreenUpdating=false提高运行速度
如果写入单元格的操作较多在程序开始时application.ScreenUpdating=False，结束时application.ScreenUpdating＝True，
也对提高运行速度有帮助。

8.善加利用Excel工作表函數功能
EXCEL的函數功能是非常強大的,透過Excel VBA方法編寫函數公式引用代碼,則任何可在Excel中使用的公式皆可在VBA中引用,
Excel工作表函數是經过優化的代碼,其執行速度比自己在VBA(或VB)編寫的代碼運行速度一般都快很多