返回列表下一主題上一主題發帖

這樣還可提升執行時間？

s7659109

中學生 Rank: 2

帖子: 248
主題: 76
精華: 0
積分: 331
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 男
來自: kaohsiung
註冊時間: 2013-6-10
最後登錄: 2020-7-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-8-21 10:53 | 顯示全部帖子

這樣還可提升執行時間？

原資料2500筆，載入6.6秒，如何修改縮短執行時間
Sub 載入資料()
Dim arr, arr1, i, Time0#
Time0 = Timer
arr = 工作表1.UsedRange
arr1 = Application.Transpose(Application.Transpose(arr))
For i = 1 To UBound(arr1)
工作表3.Cells(i + 3, 1) = arr(i, 5)
工作表3.Cells(i + 3, 2) = arr(i, 2)
工作表3.Cells(i + 3, 3) = arr(i, 3)
工作表3.Cells(i + 3, 4) = arr(i, 8)
工作表3.Cells(i + 3, 5) = arr(i, 9)
工作表3.Cells(i + 3, 6) = arr(i, 10)
工作表3.Cells(i + 3, 7) = arr(i, 11)
工作表3.Cells(i + 3, 8) = arr(i, 7)
工作表3.Cells(i + 3, 9) = arr(i, 6)
工作表3.Cells(i + 3, 10) = arr(i, 19)
工作表3.Cells(i + 3, 11) = arr(i, 20)
工作表3.Cells(i + 3, 12) = arr(i, 23)
工作表3.Cells(i + 3, 13) = arr(i, 24)
Next i
MsgBox "執行時間 " & Timer - Time0 & " 秒", vbOKOnly
End Sub