返回列表 上一主題 發帖

[發問] 改善迴圈速度及工作頁資料匯總

mistery

帖子
82 
主題
5 
精華
0 
積分
115 
點名
0  
作業系統
Vista 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2010-5-1 
最後登錄
2023-4-18 
1# 跳轉到 »
發表於 2019-6-10 18:51 | 顯示全部帖子
本帖最後由 mistery 於 2019-6-10 18:52 編輯

跑了三次迴圈，資料量一大，當然會耗時
建議先"篩選",再將篩選後的結果,轉到彙總用的工作表
這樣應該會比較快
(個人在處理上百萬筆的資料有發生類似的情形)(如果可以,直接用ACCESS 一拖一拉比較快)

因為沒有檔案, 截取一段"篩選"程式碼當參考

    Rows("1:1").AutoFilter Field:=7, Criteria1:="XX品項", Operator:=xlFilterValues     
    Set FR = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
        For Each xR In FR
            If xR.Row > 1 Then      Cells(xR.Row, "I") =Application.WorksheetFunction.Subtotal(3, Range("A2:A" & Range("A1048576").End(xlUp).Row))
       Next

    Set FR = Nothing
    Rows("1:1").AutoFilter

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題