[VBA ] 提升Excel逐行判斷執行效率 sarcasm PTT批踢踢實業坊

[VBA ] 提升Excel逐行判斷執行效率

作者: sarcasm 2015-07-28 01:24:43

為了跑公司資料分析自己透過vba簡單寫了一段整理raw data格式
目前已可正常執行省下大量人工處理的時間
但其中有一段做逐行判斷會跑特別久
即便是在最新的i7四核筆電上跑，有時還是會跑到無回應...
因此想請教是否有較有效率的寫法
經過分段測試，跑最久的是這段
資料量約近萬筆(列)、每筆約100+欄位(欄)

作者: MOONRAKER (㊣牛鶴鰻毛人) 2015-07-28 02:49:00

沒什麼好辦法，你頂多可以改用loop...until抱歉上面跳過，那沒什麼用頂多把cells(r,2)="WW"放前面或乾脆分開寫看會不會比較快你要檢查4-100行是不是都0 唯一的辦法就是全都看過一次一萬列就是97萬格不可能多快又者我很懷疑叫用工作表函數的效率你可以多用一個for來檢查是不是都0 看是快還是慢

作者: hulapig (呼拉豬) 2015-07-28 06:01:00

可以加abs()函數,讓所有4至100欄的數字必為正值

作者: knstt 2015-07-28 13:10:00

你需要的是加Application.Calculation=xlCalculationManual應該可大符提升速度

作者: ClubT (å°å–¬) 2015-07-28 15:56:00

你可以先把要刪除的列數記下來，最後再一次刪除應該會快點Sheet1.Range("2:3,5:5").Delete shift:=xlUp另外可以用CountIF的函數我認為慢的部分應該是刪除的部分而不是判斷式的部分

作者: biglongtoday (大長今) 2015-07-30 09:18:00

用specialcells

作者: hulapig (呼拉豬) 2015-07-30 11:30:00

如果不刪,將該列複製到另一個工作表,最後刪除原始工作表不知道會不會比較快

作者: Yaiba (緋心刀刃) 2015-07-30 16:53:00

先移動到最下面再一次刪除應該可以省時間?!

作者: olycats ( ) 2015-08-08 13:14:00

多加入一欄，下公式判斷是否要刪除，最後針對該欄篩選篩選出來後一次刪除這樣或許會比較快判斷全為零 min=0 and max=0 如果資料都是數值的話

繼續閱讀

Re: [ASP] ASP 網站表單送出中文編碼問題Yaiba Re: [VBA ] 每天定時執行某巨集Yaiba [VBA ] 每天定時執行某巨集haruka416 [VBA ] 如何擷取資料畫成折線圖williamsm [ASP] ASP 網站表單送出中文編碼問題Big9 [資訊] Visual Studio 2015 & 2013 Update 5fumizuki VBA 讀取txt檔goldberg73 [VBA ] 不好意思這是c的問題，但介面一樣都是VSQ1Q2Q3 [.NET] 請教有關vb.net物件導向hawfu [.NET] NPOI複製sheetbecause25