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

sstudent

每套软件都有专用通道，掌握了就是贵宾待遇

kakadian

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

这个没想到阿！！！！

还有不能直呼其名是不好的

这毕竟是vb，不是汇编语言，我们图的就是编成的时候看着舒服！！！

xq1234

QUOTE:

以下是引用ghx321在2005-11-22 21:11:13的发言：

赋值的话，用这样的方法可能更快。

Sub Test2()
    Dim i As Long, j As Long, buf As Long, C As Variant
    Application.ScreenUpdating = False
    Sheets(2).Cells.ClearContents
    t1 = Timer
    C = Range("A1:CV10000")
    Worksheets(2).Range("A1:CV10000") = C
    Application.ScreenUpdating = True
    t1 = Timer - t1
    MsgBox t1
End Sub

按照你的说法,这句来得更快:  Worksheets(1).Range("A1:CV10000").Copy Worksheets(2).Range("A1")

但我们是在讨论数组，也就是说，当我们不得不对大量的数据一个一个的逐一处理的时候，应该使用数组。

rheiva

千方百计让我的宏更快速！

好东西，谢谢！

JASONSI

支持!多给点提速经验!

-南风-

谢谢楼主[em17]

ztj1967

一直在想

kidsing

QUOTE:

以下是引用andysky在2006-7-8 11:35:20的发言：

Sheets(2).Range("a1:cv10000").Value = Sheets(1).Range("a1:cv10000").Value

用这一句就行了，4-6秒钟。

不过要讨论数组用法又当别论了。

下面这句效果大概也差不多吧？ 

Sheets(1).Range("a1:cv10000").Copy  Sheets(2).Range("a1:cv10000")

啊一

QUOTE:

以下是引用figfig在2005-6-30 21:03:49的发言：

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

经检验，数组比单个值快,快不止10倍,如果用秒表计算，快得更多.如下图:

 

如果想亲自测试,请用如下代码,然后分别运行.
Sub Test1()
Dim i As Long, j As Long, buf As Long
Cells(1, 1).FormulaR1C1 = "=NOW()"
Cells(1, 1).NumberFormatLocal = "hh""时""mm""分""ss""秒"""
With Cells(1, 1)
    .Copy
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With
Application.CutCopyMode = False
For i = 1 To 10000
For j = 1 To 100
buf = Cells(i, j)
Next j
Next i
Cells(1, 2).FormulaR1C1 = "=NOW()"
Cells(1, 2).NumberFormatLocal = "hh""时""mm""分""ss""秒"""
End Sub
Sub Test2()
Dim i As Long, j As Long, buf As Long, C As Variant
Cells(2, 1).FormulaR1C1 = "=NOW()"
Cells(2, 1).NumberFormatLocal = "hh""时""mm""分""ss""秒"""
With Cells(1, 1)
    .Copy
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With
Application.CutCopyMode = False
C = Range("A1:CV10000")
For i = 1 To 10000
For j = 1 To 100
buf = C(i, j)
Next j
Next i
Cells(2, 2).FormulaR1C1 = "=NOW()"
Cells(2, 2).NumberFormatLocal = "hh""时""mm""分""ss""秒"""
End Sub

[此贴子已经被作者于2006-12-4 22:35:53编辑过]

abcd321abcd

新手学习、提高；高手讨论、过招。真不愧好贴。