Excel VBA代码优化技巧介绍

大家都知道在Office里面可以用VBA进行二次开发，为日常工作提供了一条快捷的途径，善用它，可以大大的改善我们的工作体验和质量。今天跟大家分享的不是VBA本身，而是一些VBA代码常用的优化技巧，VBA初学者或者爱好者可以看看，哪怕是得到一点点启发和借鉴，那也是极好的。
1.尽量调用内置功能，即使用系统提供的属性、方法和函数很多时候我们要实现某些功能，如果本身对excel不熟悉的话，可能会想办法去实现某些看上去很复杂的功能，殊不知，其实excel本身已经提供了类似的功能，有的时候可能仅仅是一个函数就解决了的事情，结果你搞半天，说不定辛苦弄出来，结果效率和效果还没内置的好。在很大程度上，这简直是一定的，试想，你用的微软的软件，你编出来的东西能比别人开发人员还NB（不乏天才，所以我有所保留）？所以碰到这种情况还是省省心吧，能调用内置的尽量调用内置。也有例外，如：sub 获取数组最大值()  'VBA法dim arr(),temp as byte,i,j,tim as longfor j=1 to 100000  '循环100000次，从而可以更好的进行时间比较arr=array(1,7,8,6,9,3,5,7,6,8,9,4,1,2,4)  '数组的值temp=arra(1)  '将数组中的第一个值赋予变量temp  'temp=worksheetfunction.max(arr) 调用max函数，效率反而偏低for i=1 to UBound(arr)  '循环比较数组中所有元素if arra(i)>temp then temp=arr(i)  '如果数组中某元素大于变量，即将该值赋予变量tempnext inext jend sub先前在帮助一些学生朋友解决VBA难题的时候，碰到过别人计算机老师出题，为了偷懒，直接挑几个工作表函数，让学生拿代码给编出来，这是典型的放着内置的不用而自己编的案例，当然老师的出发点可能是训练学生的逻辑思维和算法理解能力。2.尽量减少使用对象引用

在循环中尽量减少对对象的引用，多用with... end with语句,圆点越少越省时

用set语句将反复引用的对象设置为对象变量，因为变量存在内存中

利用对象循环代替单元格循环，如判断单元格批注，可以循环批注comments对象，直接找到每个批注，再利用parent获取该批注的父对象单元格即可。sub批注循环()dim com as comment,address asstringfor each com in activeSheet.commentsaddress=address&com.parent.address(0,0)&chr(10)nextmsgbox addressendsub
sub 单元格循环()dim rng as range,address as string,bl as booleanon error resume nextfor each rng in activesheet.usedrangebl=rng.comment.visibleif err=0 then address=address&rng.address(0,0)&chr(10)err.clear:next rngmsgbox addressend sub
3.减少对象的激活和选择

少用select和activate语句这个通常会出现在我们自己录制宏代码的时候，excel记录了大量的点击和激活动作，而这些都不是必须的，大多数都可以省略掉（有些操作必须用到激活或者选择的除外）
4.关闭屏幕更新就是程序运行的时候会看到屏幕在闪烁，这个会影响计算机的性能，也会闪瞎眼，所以基本上编程的人都会默认使用这一条（尤其是对于运行时间比较长的，短的可以视情况不加）Application.ScreenUpdating=False  '通常放在循环语句前...Application.ScreenUpdating=True
5.变量的使用

强制变量声明（OptionExplicit）：在设置里面勾选，会节省时间，自动带出，而不是自己手动敲出来的

尽量显式声明变量：事前连接--early binding；定义object类型的属于事后连接，late binding。通常事前定义会节省时间，但往往会有兼容性问题，后定义的适配性比较好

选择合适的变量类型：缺省会默认Variant型，但是会增加内存耗用，能明确的就具体指明

善用变量：对于反复出现的数值或者字符串，尽量声明一个常量来取代该值，直接调用，修改的时候也能做到一改都改，而不用改动多个地方讲到这里，想强调一下，有时候为了效率，有的人喜欢在代码编写的时候采用一些简写或者隐式声明，这个确实会让我们少敲不少字，但是带来的另外一个问题是，一旦代码出现了问题，调试或者找错误的时候就会很抓狂了，可能从整体的时间效率上反而不划算，所以还是建议大家养成良好的编程习惯，变量都写清楚，勤备注，这样易读性和可维护性好
6.善用带$的字符串处理函数VBA中有2套字符串处理函数，带$和不带$的。如果不带$的的函数处理字符串，则VBA将字符串作为variant数据计算，用带$的，则当string处理。而前者需要耗费更多的内存
7.善用循环中的步长减少循环次数如判断奇偶，有了步长，就可以省去判断语句，加快速度讲到循环，还有一个类似的例子：就是我们在遍历某个区域的时候，如果能用目标区域（Target）与已用区域（UsedRange）的交集（Intersect）区域来循环的话，会缩小循环的范围，规避掉一些空的单元格的比对
8.利用数组代替单元格对象将中间过程存在数组中，直接从内存调用，最后再读取这个应该是应用的最多的，效果是最明显的，少了单元格的交互，会省不少事。当然字典作为特殊的数组存在形式，一样的也能来做这个事情实例：对几千个个学生中不及格的成绩标示“不及格”sub 对小于60分成绩进行注释（）Dim i as integer,tim as long,arr1(),arr2() '将成绩赋予数组变量arr1=range([b2],cells(rows.count,2).end(xlup)) '重置第二个数组变量大小ReDim arr2(1 to UBound(arr1),1 to 1) '循环数组for i=1 to UBound(arr1)if arr1(i,1)

时间很短时，可以用timer函数，返回秒，即相对于当天相对午夜0点时候经过了多少秒（感觉时间长了，统计不是蛮准，自己编程体会）

时间比较长时，可以用time，time是按照时间如22:58:30这样记录的，即运行前后电脑时间相减[/ol]