[upload=rar]viewFile.asp?ID=65[/upload]使用過大型excel工作表的朋友都深有體會(huì),過多的使用函數(shù)會(huì)嚴(yán)重降低數(shù)據(jù)的運(yùn)算效率．這時(shí)候可能會(huì)考慮使用VBA .
這個(gè)附件中的代碼完成的是最普通的四則運(yùn)算,他比普通的循環(huán)要快２０倍．
在ＶＢＡ中使用數(shù)組，速度確實(shí)是快．

發(fā)現(xiàn)改用cells方法后還可以提高一點(diǎn)點(diǎn)速度．
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) '根據(jù)需要把加號(hào)換成別的運(yùn)算符號(hào)        Next i    Range(Cells(2, 3), Cells(k, 3)) = arr3        MsgBox Timer - h & "秒"End Sub

• 下載地址1

☉推薦使用第三方專業(yè)下載工具下載本站軟件，使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個(gè)軟件總是不能下載的請(qǐng)點(diǎn)擊報(bào)告錯(cuò)誤,謝謝合作!!
☉下載本站資源，如果服務(wù)器暫不能下載請(qǐng)過一段時(shí)間重試！
☉如果遇到什么問題，請(qǐng)到本站論壇去咨尋，我們將在那里提供更多 、更好的資源！
☉本站提供的一些商業(yè)軟件是供學(xué)習(xí)研究之用，如用于商業(yè)用途，請(qǐng)購買正版。