返回列表 上一主題 發帖

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

flask

帖子
40 
主題
10 
精華
0 
積分
83 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2011-6-3 
最後登錄
2020-10-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
67 
主題
8 
精華
0 
積分
78 
點名
0  
作業系統
Windows XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-15 
最後登錄
2021-9-14 
2#
發表於 2012-5-17 21:29 | 只看該作者
程式碼 最上方 , 最下方 各加入(如下) ,會更快
Application.ScreenUpdating = False

Application.ScreenUpdating = True

TOP

alumi

帖子
67 
主題
8 
精華
0 
積分
78 
點名
0  
作業系統
Windows XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-15 
最後登錄
2021-9-14 
3#
發表於 2012-5-17 21:31 | 只看該作者
本帖最後由 alumi 於 2012-5-17 21:32 編輯


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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-5-17 21:45 | 只看該作者
回復 1# flask
選擇性貼上
play.gif
學海無涯_不恥下問

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
5#
發表於 2012-5-17 23:36 | 只看該作者
提供一個陣列運算

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

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
6#
發表於 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
複製代碼

TOP

flask

帖子
40 
主題
10 
精華
0 
積分
83 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2011-6-3 
最後登錄
2020-10-1 
7#
發表於 2012-5-18 10:09 | 只看該作者
謝謝各位老師的回答,我測試的結果oobird 老師的比較適合我,真的感謝各位!

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題