[upload=rar]viewFile.asp?ID=65[/upload]使用过大型excel工作表的朋友都深有体会,过多的使用函数会严重降低数据的运算效率．这时候可能会考虑使用VBA .
这个附件中的代码完成的是最普通的四则运算,他比普通的循环要快２０倍．
在ＶＢＡ中使用数组，速度确实是快．

发现改用cells方法后还可以提高一点点速度．
Private Sub CommandButton1_Click()    Dim arr1(), arr2(), arr3()    Dim i As Long, k As Long, h As Single    h = Timer        k = Cells(65536, 1).End(xlUp).Row        ReDim arr1(1 To k - 1, 1 To 1)    arr1 = Range(Cells(2, 1), Cells(k, 1))    ReDim arr2(1 To k - 1, 1 To 1)    arr2 = Range(Cells(2, 2), Cells(k, 2))    ReDim arr3(1 To k - 1, 1 To 1)            For i = 1 To k - 1            arr3(i, 1) = arr1(i, 1) + arr2(i, 1) '根据需要把加号换成别的运算符号        Next i    Range(Cells(2, 3), Cells(k, 3)) = arr3        MsgBox Timer - h & "秒"End Sub

• 下载地址1

☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。