- 帖子
- 82
- 主題
- 5
- 精華
- 0
- 積分
- 115
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2010-5-1
- 最後登錄
- 2025-7-15
|
本帖最後由 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 |
|
發表於 2019-6-10 18:51
| 