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

figfig

第一讲 单元格写法

cells(1,1) >>>>> range("a1")>>>>.[a1]

cells(1,1) 符合 EXCEL 结构，最快

range("a1") 有对象，稍稍慢

[A1] 写的快，运行慢

figfig

第2讲 查找

VLOOkUP》》》》》FIND》》》》》if a=b

VLOOKUP 是工作表函数，速度嘴快

figfig

第三讲 少用SELECT，ＡＣＴＩＶＡＴＥ

代码少了，操作少了，速度自然快了

figfig

第四讲　不要直呼其名

a= Worksheets(1).Name 》》》》》 a=Worksheets("Sheet1").name

UNARTHUR

第2，3，4讲同意

第1讲有待试验

figfig

重点一讲！！第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

[此贴子已经被作者于2005-6-30 21:08:50编辑过]

UNARTHUR

经我测试cell(1,1)确实比[a1]快大概10%，第一次知道，学习！

建仪：不要连续跟贴，这样看起来不方便

lj1226189

盼再出高招！

丸究阵引

这比那花里胡哨的东东强多了，好！！！

Long_III

才知道cells>[]这种写法的,学习!!!

支持楼主继续跟贴