- 帖子
- 104
- 主題
- 32
- 精華
- 0
- 積分
- 144
- 點名
- 0
- 作業系統
- windowsXP
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-2-25
- 最後登錄
- 2022-9-2

|
本帖最後由 lifedidi 於 2013-5-2 13:47 編輯
回復 4# Hsieh
大大好:
改用大大的語法後,run起來有快很多,但還是有個地方有問題
請問大大一個問題,
我一直交叉測試發現到,
篩選並貼上的語法,很費時間,
程式碼如下:- Dim HH As Range, KK As Range, PP As Range
- Set PP = .[A6]
- .[A1:W65536].ClearContents
- HH.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=KK,
複製代碼 【假設五千筆資料】
run起來,資料一筆一筆貼上,貼到五千筆需要不少時間,
(我將儲存格拉至5000列處,按執行,發現要一段時間才會run到五千筆,因此判斷是這問題)
可是我把一樣的資料原封不動的貼到新sheet檔(new excel file),在run,不到一秒就跑完了,(........)
(PS)整個excel檔案有約20個userform每個都篩選不同條件,小弟在猜想,這樣會不會造成excel執行時的緩慢?
請益大大意見,小弟現在頭好暈=.= 感謝 |
|