返回列表 上一主題 發帖

[發問] 大筆資料篩選,速度很慢(篩選及排列)

[發問] 大筆資料篩選,速度很慢(篩選及排列)

本帖最後由 lifedidi 於 2013-4-30 15:42 編輯

大大好:

小弟有一個工時的EXCEL檔,交給同事使用,

起初100筆or500筆資料都可以很順,功能也都ok!

但是當資料數來到10000筆以上時,開始變慢了!

查詢一筆資料要等很久,雖然還是跑得出來..

請教大大有沒有更好的寫法呢?

有幾個要點:
1.資料要篩選出並貼在Sheet2上
2.貼於Sheet2的資料需要照日期排序
3.統計篩選後資料中 R欄 時間的總和

測試檔資料數1.6W筆,公司電腦要跑2~3分鐘,
有點久...請大大小心:L
測試用.rar (480.01 KB)

回復 2# GBKEE


    GBKEE大大好:

測試過OK,但是沒有將篩選的資料貼於SHEET2,是否請大大在編一下,

小弟研究一下大大的註解;P 感謝。

TOP

本帖最後由 lifedidi 於 2013-5-2 13:47 編輯

回復 4# Hsieh


大大好:

改用大大的語法後,run起來有快很多,但還是有個地方有問題
請問大大一個問題,
我一直交叉測試發現到,
篩選並貼上的語法,很費時間,
程式碼如下:
  1. Dim HH As Range, KK As Range, PP As Range
  2. Set PP = .[A6]
  3.        .[A1:W65536].ClearContents
  4. HH.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=KK,
複製代碼
【假設五千筆資料】
run起來,資料一筆一筆貼上,貼到五千筆需要不少時間,
(我將儲存格拉至5000列處,按執行,發現要一段時間才會run到五千筆,因此判斷是這問題)
可是我把一樣的資料原封不動的貼到新sheet檔(new excel file),在run,不到一秒就跑完了,(........)

(PS)整個excel檔案有約20個userform每個都篩選不同條件,小弟在猜想,這樣會不會造成excel執行時的緩慢?
請益大大意見,小弟現在頭好暈=.= 感謝

TOP

回復 4# Hsieh

大大好:

因為同事需要【工時加總(單、多條件篩選)】【資料瀏覽】的功能,所以目前小弟先以這功能去加強。

請參考附件。

【建立在相同狀況下】
50,000筆資料 處理數度快
3,000筆資料 處裡數度卻較慢

請大大抽空時測試看看,謝謝。

小弟繼續研究XD

    qq.rar (953.9 KB)

TOP

回復 6# GBKEE


大大好:

不知道是因為公司電腦關係還是其他元素,
如同上面的回覆,

30000筆資料是快速的copy上sheet (上方的回覆內容打錯50000,更正為30000)

3000筆資料卻是一筆一筆的copy上sheet

(一筆一筆貼上是誇飾法..請見諒)

TOP

本帖最後由 lifedidi 於 2013-5-2 19:25 編輯

回復 9# GBKEE


    to GBKEE大大

小弟的語法:

【A.於sheet1篩選資料】→【B.於sheet2貼上資料】→【C.sheet2做時間加總】

※小弟在於B.會跑很久,下班回到家也是同樣情形,情形大概如附檔(影片)

3000筆資料.rar (886.57 KB) 30000筆資料.rar (416.4 KB)

真邪門XD

GBKEE大大的語法:

【於sheet1篩選資料】→【於sheet1時間加總】

※請問大大篩選資料可以多條件篩選嗎?假設同時要篩選:專案編號、職工編號、日期•••的條件。(請參考EXCEL檔案第二種查詢)

──────────────────────────────────────────────────────────────
Hsieh大大的程式碼也會有同樣的問題(複製貼上需要時間),

但是我將時間加總的語法改成Hsieh大大的語法,比較簡潔,哈XD

──────────────────────────────────────────────────────────────
GBKEE大大太神了吧,運算時間竟然也可以算的出來...

TOP

回復 9# GBKEE


大大好:

請問大大是2003的嗎?

今天有用其他同事2003版本的run,結果就正常多了。

不知道是版本問題還是電腦問題,謝謝大大的幫忙。

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題