你可能不知道的VBA加速技巧

-南风-

好贴。[em17]

shing32356

真是好东西,不看不知道,一看忘不掉(肯定是要先记下来)

Nilex

好文! 谢谢.

minjiwei

的确是好贴。用了几个改写我之前的代码，速度的确大幅提高了。

sunsoncheng

数组是快!但有时好象没办法的

用copy可以是连格式也复制了过去,特别当你一列是身份证号码时,简单用数组就不是你想要的东西了,虽然慢点,还是用copy好

[此贴子已经被作者于2007-10-19 17:18:12编辑过]

ifhwfu

QUOTE:

以下是引用sunsoncheng在2007-10-19 17:15:28的发言：

数组是快!但有时好象没办法的

用copy可以是连格式也复制了过去,特别当你一列是身份证号码时,简单用数组就不是你想要的东西了,虽然慢点,还是用copy好

Sub test()
    Range("a1").Copy Range("b1")
End Sub

Sub test2()
    Range("c1") = Range("a1")
End Sub

经过测试，这两个是等效的。

wzw117

你可能不知道的VBA加速技巧

第1讲 单元格写法
cells(1,1) >range("a1")>.[a1]
cells(1,1) 符合 EXCEL 结构，最快；range("a1") 有对象，稍稍慢；[A1] 写的快，运行慢
不过有时在VBA中使用Range()比cell()快，速度取决单元格的数据类型

第2讲 查找
VLOOkUP>FIND>if a=b
VLOOKUP 是工作表函数，速度最快

第3讲 少用SELECT，ＡＣＴＩＶＡＴＥ
代码少了，操作少了，速度自然快了

第4讲　不要直呼其名
a= Worksheets(1).Name >a=Worksheets("Sheet1").name

第5讲： 数组 > RANGE
Test1()比Test2()速度快5--10 倍！！
Sub Test1()
Dim i As Long, j As Long, buf As Long
For i = 1 To 10000
   For j = 1 To 100
     buf = Cells(i, j)
   Next j
Next i
End Sub

Sub Test2()
Dim i As Long, j As Long, buf As Long, C As Variant
C = Range("A1:CV10000")
For i = 1 To 10000
    For j = 1 To 100
      buf = C(i, j)
    Next j
Next i
End Sub

第6讲 循环有讲究
for i=1 to 10000 > for each xx in
理由： for each xx 还调用了 相关的对象，属性

第7讲 函数后加$>不加$的
如：Left$() 比 Left() 快，因为Left() 是 Variant（变量）
可用函数：Chr$ ChrB$ Command$ CurDir$ Date$ Dir$ Error$ Format$ Hex$ Input$ InputB$ LCase$ LeftB$ LTrim$ Mid$ MidB$ Oct$ Right$ RightB$ RTrim$ Space$ Str$ String$ Time$ Trim$ UCase$

kanonlee

很好很强啊

gyzzf

第一讲 单元格写法 cells(1,1) >>>>> range("a1")>>>>.[a1] cells(1,1) 符合 EXCEL 结构，最快 range("a1") 有对象，稍稍慢 [A1] 写的快，运行慢第2讲 查找 VLOOkUP》》》》》FIND》》》》》if a=b VLOOKUP 是工作表函数，速度嘴快第三讲 少用SELECT，ＡＣＴＩＶＡＴＥ代码少了，操作少了，速度自然快了第四讲　不要直呼其名 a= Worksheets(1).Name 》》》》》 a=Worksheets("Sheet1").name 第5讲： 数组 取代 RANGE，速度快5--10 倍！！ Sub Test1() Dim i As Long, j As Long, buf As Long For i = 1 To 10000 For j = 1 To 100 buf = Cells(i, j) Next j Next i End Sub Sub Test2() Dim i As Long, j As Long, buf As Long, C As Variant C = Range("A1:CV10000") For i = 1 To 10000 For j = 1 To 100 buf = C(i, j) Next j Next i End Sub 第6讲 循环有讲究 for i=1 to 10000 比 for each xx in 快理由： for each xx 还调用了 相关的对象，属性 Chr$ ChrB$ Command$ CurDir$ Date$ Dir$ Error$ Format$ Hex$ Input$ InputB$ LCase$ LeftB$ LTrim$ Mid$ MidB$ Oct$ Right$ RightB$ RTrim$ Space$ Str$ String$ Time$ Trim$ UCase$

wallace.xu

Mark Good ideas