- 帖子
- 16
- 主題
- 5
- 精華
- 0
- 積分
- 27
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- office2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-10-3
- 最後登錄
- 2012-10-29
|
[發問] 迴圈程式碼，請問是否有更快的執行方式??
請問大大們，如達到下面迴圈程式碼，能夠有更快的執行方式嗎??
(a1~a65535都有數字，判斷是否在範圍中，如果不在範圍中則複製空白)
sub xx()
Dim my_min%, my_max%
my_min = 30
my_max = 50
Sheet1.Cells(27) = "Num"
Sheet1.Cells(28) = "x(1)"
Sheet1.Cells(29) = "y(2)"
Sheet1.Cells(30) = "iv(3)"
Sheet1.Cells(31) = "vf(4)"
For i = 2 To 65535
Sheet1.Cells(i, 27) = Sheet3.Cells(i, 1)
If Sheet3.Cells(i, 6) > my_min And Sheet3.Cells(i, 6) < my_max Then
Sheet1.Cells(i, 28) = Sheet3.Cells(i, 3)
Sheet1.Cells(i, 29) = Sheet3.Cells(i, 4)
Sheet1.Cells(i, 30) = Sheet3.Cells(i, 5)
Sheet1.Cells(i, 31) = Sheet3.Cells(i, 6)
End If
Next i
end xx |
|
發表於 2012-10-26 14:36
| 
