請問有辦法加快VBA執行的速度嗎? - Excel程式區

[發問] 請問有辦法加快VBA執行的速度嗎?

1^# 跳轉到 »

發表於 2013-1-29 23:05 | 顯示全部帖子

回復 1# m077
沒上傳 ... 自己試試行否

Sub Test()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim r As Long, i As Long
Dim ar, rngCopy As Range
With Workbooks("vbtest.xls")
With .Sheets("sheet1")
r = .Cells(.Rows.Count, "G").End(xlUp).Row
ar = Application.Transpose(.Range(.Cells(1, 30), .Cells(r, 30)).Value)
For i = 2 To r
If ar(i) = "C2A4TST1" Then
If rngCopy Is Nothing Then Set rngCopy = .Rows(i) Else Set rngCopy = Union(rngCopy, .Rows(i))
End If
Next
.Select
rngCopy.Copy .Sheets("sheet2").Range("A" & .Rows.Count).End(xlUp).Offset(1)
.Sheets("sheet2").Select
End With
End With
Set rngCopy = Nothing
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

複製代碼

2^#

發表於 2013-1-30 15:15 | 顯示全部帖子

回復 6# m077
看到圖片了..
逐筆匯出應該是更慢

你應該把條件列出來看是進階篩選條件哪裡可改善
才能篩到你要的結果會比較好

靜思自在 : 知識要用心體會，才能變成自己的智慧。