如何提高Excel中VBA的运行速度，VBA运行速度优化方法_办公教程

　　还在为Excel中VBA运行速度慢发愁吗？今天就来分享几个能有效提高速度的例子，手把手教你优化代码。

使用Excel自带函数计算

　　要是用循环方式求平均数，像下面这样写代码：

　　复制代码

　　For Each c In Range('A1:A1000')

　　TotalValue = TotalValue + c.Value

　　AverageValue = TotalValue / Range('A1:A1000').Rows.Count

　　其实这代码执行效率比直接用Excel函数低很多，换成下面这样就快多了：

　　复制代码

　　AverageValue = Application.WorksheetFunction.Average(Range('A1:A1000'))

　　所以能不用自己写代码，就尽量用Excel自带的函数和属性哦。

减少对象引用，尤其在循环里

　　每个Excel对象的属性和方法调用都得通过OLE接口，这可是很耗时的，减少对象引用能让VBA跑得更快。

　　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．用对象变量

　　要是一个对象引用总被用，就可以把它设为对象变量，比如：

　　复制代码

　　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．循环中减少对象访问

　　像这样的代码：

　　复制代码

　　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

减少对象激活和选择

　　比如这样的代码：

　　复制代码

　　Sheets('Sheet3').Select

　　Range('A1').Value = 100

　　Range('A2').Value = 200

　　可以改成：

　　With Sheets('Sheet3')

　　.Range('A1').Value = 100

　　.Range('A2').Value = 200

　　End With

关闭屏幕更新

　　这招很多用VBA的人都知道，也很有效，但关了屏幕刷新后，代码跑完一定要记得打开，出错时也要有错误处理来保证能重新打开，像这样：

　　复制代码

　　Application.ScreenUpdate = False

　　'关闭屏幕刷新

　　On Error Goto ErrLab

　　ErrLab:

　　Application.ScreenUpdate = True

　　'打开屏幕刷新

　　其实除了这些，还有像将数据存入数组处理、减少工作表间切换等方法也能提高VBA运行速度，大家可以自己去试试。

　　你平时用VBA时遇到过运行慢的问题吗？试试这些方法，看看有没有效果，也可以分享你的优化技巧哦。