作者skating (X-Tracker 法克祺)
看板Office
標題[算表] VBA 大量資料處理
時間Fri Sep 15 10:00:11 2017
軟體:Excel
版本:2010
i=2
Do
If XXX then
J=2
Do
IF XXX then
Exit Do
End IF
J=J+1
Loop Until len(Worksheets("工作表2").Cells(J,1).Value)=0
End If
I=I+1
Loop Until len(Worksheets("工作表1").Cells(I,1).Value)=0
工作表1,2皆有近2萬筆
每次都跑到當掉，請問這有解嗎??
除了把資料導入資料庫以外
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.143.229
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1505440814.A.8FB.html
1F：→ soyoso: 想法為內層判斷如果是儲存格符合某值就exit do來看，以 09/15 10:52
2F：→ soyoso: range.find或工作表函數match來回傳儲存格或列號 09/15 10:52
3F：→ soyoso: 該儲存格以上的範圍為原po要執行其他動作 09/15 10:52
4F：→ soyoso: 就應可將do loop until len(worksheets("工作表2")... 09/15 10:52
5F：→ soyoso: 取消掉 09/15 10:52
6F：→ soyoso: 外層判斷如果是儲存格符合某值而執行接下來動作的話 09/15 10:52
7F：→ soyoso: 迴圈於autofilter可見儲存格range.specialcells集合 09/15 10:53
8F：→ soyoso: 、range.find或工作表函數match(需調整範圍) 09/15 10:53
9F：→ soyoso: 來針對於符合的儲存格執行 09/15 10:55
10F：推 lowcat: 在內層迴圈加入 docents 就能減少沒回應問題，再來就是 09/16 12:39
11F：→ lowcat: 減少使用cells比對cells，就能稍微提高速度 09/16 12:39
12F：→ soyoso: docents是什麼？google excel vba docents並沒看到相關的 09/16 13:10
13F：→ soyoso: 是要提doevents這個函數嗎 09/16 13:12
14F：推 lowcat: 對啦 doevents 字打錯了，感謝糾正 09/16 21:45