返回列表 上一主題 發帖

[發問] 迴圈程式碼，請問是否有更快的執行方式??

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2012-10-26 17:19 | 顯示全部帖子
請問大大們，如達到下面迴圈程式碼，能夠有更快的執行方式嗎??
(a1~a65535都有數字， ...
swtseng 發表於 2012-10-26 14:36


先copy到同一個sheet再做比較 , 試看看:
  1. Sub test()
  2.     Application.ScreenUpdating = False
  3.    
  4.     Dim my_min%, my_max%
  5.     my_min = 30
  6.     my_max = 50
  7.    
  8.     sheet1.Range("AA:AA") = sheet3.Range("A:A").Value
  9.     sheet1.Range("AB:AE") = sheet3.Range("C:F").Value
  10.    
  11.     sheet1.Cells(27) = "Num"
  12.     sheet1.Cells(28) = "x(1)"
  13.     sheet1.Cells(29) = "y(2)"
  14.     sheet1.Cells(30) = "iv(3)"
  15.     sheet1.Cells(31) = "vf(4)"
  16.    
  17.     Dim n As Range
  18.     For Each n In sheet1.Range("AE2:AE65535")
  19.         If n.Value > my_min And n.Value < my_max Then
  20.         Else
  21.             n.Offset(, -3).Resize(, 4).ClearContents
  22.         End If
  23.     Next n
  24.    
  25.     Application.ScreenUpdating = True
  26. End Sub
複製代碼

TOP

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題