- 帖子
- 8
- 主題
- 4
- 精華
- 0
- 積分
- 62
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-12-8
- 最後登錄
- 2025-9-9
|
程式碼速度問題
新手請益各位，下列程式碼在最檢查複測資料做刪除時，運行時間較久，可以怎麼修改程式，讓速度變快
Sub 複製()
Sheets("超規").Select
Range("A3:V3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("送測").Select
i = Sheets("送測").Columns("A:A").Find("*", LookIn:=xlValues, LOOKAT:=xlWhole, SearchDirection:=xlPrevious).Row + 1
Range("A" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
For j = Sheets("送測").Columns("B:B").Find("*", LookIn:=xlValues, LOOKAT:=xlWhole, SearchDirection:=xlPrevious).Row To 2 Step -1
If Cells(j, 2) <> "複測" Then
Rows(j).Delete
End If
Next
End Sub |
|
發表於 2024-11-29 08:36
| 
