[發問] 請問一整行的值除一個整數問題?

flask

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

alumi

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

Application.ScreenUpdating = True

alumi

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

Hsieh

回復 1# flask
選擇性貼上

下載 (926.47 KB)

2012-5-17 21:45

oobird

提供一個陣列運算

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

register313

回復 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

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