標題: [發問] 請問一整行的值除一個整數問題? [打印本頁]

---

作者: flask    時間: 2012-5-17 21:24     標題: 請問一整行的值除一個整數問題?

請問一整行的值除一個整數有什麼方法比迴圈處理更快
    Last = [a65535].End(xlUp).Row
        For l = 1 To Last
    Range("A" & l) = Int(Range("A" & l) / 1000)
    Next
    如有上萬筆要計算.

---

作者: alumi    時間: 2012-5-17 21:29

程式碼 最上方 , 最下方 各加入(如下) ,會更快
Application.ScreenUpdating = False

Application.ScreenUpdating = True

---

作者: alumi    時間: 2012-5-17 21:31

本帖最後由 alumi 於 2012-5-17 21:32 編輯


    另一點,  用 Cells ( Y , X ) 來取代 Range("字串") , 也會提高運算速度.

---

作者: Hsieh    時間: 2012-5-17 21:45

回復 1# flask
選擇性貼上
[attach]11000[/attach]

---

作者: oobird    時間: 2012-5-17 23:36

提供一個陣列運算

Sub yy()
i = [a65536].End(3).Row
Range("a1:a" & i) = Evaluate("a1:a" & i & "/1000")
End Sub

---

作者: register313    時間: 2012-5-18 00:13

回復 1# flask

1. Sub zz()
   
2. Dim Arr()
   
3. Arr = Range("A1:A" & [A65536].End(xlUp).Row)
   
4. For R = 1 To UBound(Arr)
   
5.   Arr(R, 1) = Int(Arr(R, 1) / 1000)
   
6. Next
   
7. [A1].Resize(UBound(Arr)) = Arr
   
8. End Sub

複製代碼

---

作者: flask    時間: 2012-5-18 10:09

謝謝各位老師的回答,我測試的結果oobird 老師的比較適合我,真的感謝各位!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)