返回列表 上一主題 發帖

[發問] for next 迴圈速度慢，如何改速度能加快

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-12-2 16:41 | 顯示全部帖子

[發問] for next 迴圈速度慢，如何改速度能加快

test.zip (93.13 KB)     共幾秒.jpg

M欄為變數，有可能數量會到十萬或二十萬...
利用迴圈速度很慢，如何可以加快速度

Public Sub WWW()

Start = Timer

Range("K3") = "=COUNTIF(M:M,""*RBW*"")"
    a = Range("K3")
        For i = 4 To a + 3

            Cells(i, "N") = "=IFERROR(AVERAGEIF($D:$H,M" & i & ",E:H),""0"")"
            Cells(i, "O") = "=IFERROR(COUNTIF(D:D,M" & i & "),""0"")"

Next i

Range("M:O").Value = Range("M:O").Value
      
Finish = Timer
TotalTime = Finish - Start
MsgBox "已完成!  總共：" & TotalTime & "秒 !"

End Sub
收藏 分享

chiang0320

帖子
45 
主題
15 
精華
0 
積分
92 
點名
0  
作業系統
? 
軟體版本
? 
閱讀權限
20 
註冊時間
2016-3-17 
最後登錄
2019-11-19 
2#
發表於 2016-12-5 21:06 | 顯示全部帖子
回復 2# 准提部林


Dear 准提部林 :

謝謝幫忙，跑完才花費不到一秒鐘

對於初學持者但太深奧了!很想學起來但不知如何問起 =_=

TOP

        靜思自在 : 人要知福、惜福、再造福。
返回列表 上一主題