使用动态数组完成VBA中的四则运算

[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