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

看板Visual_Basic作者時間9年前 (2015/07/28 01:24), 9年前編輯推噓4(4017)
留言21則, 7人參與, 最新討論串1/1
為了跑公司資料分析自己透過vba簡單寫了一段整理raw data格式 目前已可正常執行省下大量人工處理的時間 但其中有一段做逐行判斷會跑特別久 即便是在最新的i7四核筆電上跑,有時還是會跑到無回應... 因此想請教是否有較有效率的寫法 經過分段測試,跑最久的是這段 資料量約近萬筆(列)、每筆約100+欄位(欄) --------------------------------------------------------- Sub Clear_Row() ' ' Delete blank row ' Dim LastRow As Integer, r As Integer Sheets("raw_data").Select Range("A1").Select Selection.End(xlDown).Select LastRow = ActiveCell.Row Application.ScreenUpdating = False For r = LastRow To 2 Step -1 If Application.WorksheetFunction.Sum(Range(Cells(r, 4),_ Cells(r,100))) = 0 Or Cells(r, 2) = "WW" Then Rows(r).Delete End If Next r Application.ScreenUpdating = True End Sub --------------------------------------------------------- 基本上做的事情就是 1.找到整串資料的最後一筆 2.由下而上判斷該筆資料是否第二攔是WW 或 第4~100欄位是0 3.若是則刪除該筆資料、否則跳過 --------------------------------------------------------- 另外那行If中 其實第一個條件是想判斷第4~100欄是否全為0,但我不知道怎麼寫... 因raw data暫時不會出現負數相抵就先用sum的方式偷吃步 但還是想問問正確的做法,以免未來要處理負數的情況 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.240.178.251 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1438017887.A.EA4.html

07/28 02:49, , 1F
沒什麼好辦法,你頂多可以改用loop...until
07/28 02:49, 1F

07/28 02:52, , 2F
抱歉上面跳過,那沒什麼用
07/28 02:52, 2F

07/28 02:53, , 3F
頂多把cells(r,2)="WW"放前面 或乾脆分開寫 看會不會比
07/28 02:53, 3F

07/28 02:54, , 4F
較快 你要檢查4-100行是不是都0 唯一的辦法就是全都看
07/28 02:54, 4F

07/28 02:54, , 5F
過一次 一萬列就是97萬格 不可能多快
07/28 02:54, 5F

07/28 02:56, , 6F
又者我很懷疑叫用工作表函數的效率 你可以多用一個for
07/28 02:56, 6F

07/28 02:56, , 7F
來檢查是不是都0 看是快還是慢
07/28 02:56, 7F

07/28 06:01, , 8F
可以加abs()函數,讓所有4至100欄的數字必為正值
07/28 06:01, 8F

07/28 13:10, , 9F
你需要的是加Application.Calculation=xlCalculationManual
07/28 13:10, 9F

07/28 13:10, , 10F
應該可大符提升速度
07/28 13:10, 10F
原來我弄錯了?!

07/28 15:56, , 11F
你可以先把要刪除的列數記下來,最後再一次刪除應該會快點
07/28 15:56, 11F

07/28 16:00, , 12F
Sheet1.Range("2:3,5:5").Delete shift:=xlUp
07/28 16:00, 12F

07/28 16:08, , 13F
另外可以用CountIF的函數
07/28 16:08, 13F

07/28 16:08, , 14F
我認為慢的部分應該是刪除的部分而不是判斷式的部分
07/28 16:08, 14F
交叉測試了一下"刪除"這動作本身應該是最久的... ※ 編輯: sarcasm (114.34.85.249), 07/29/2015 14:20:40

07/30 09:18, , 15F
用specialcells
07/30 09:18, 15F

07/30 11:30, , 16F
如果不刪,將該列複製到另一個工作表,最後刪除原始工作表
07/30 11:30, 16F

07/30 11:36, , 17F
不知道會不會比較快
07/30 11:36, 17F

07/30 16:53, , 18F
先移動到最下面再一次刪除應該可以省時間?!
07/30 16:53, 18F

08/08 13:14, , 19F
多加入一欄,下公式判斷是否要刪除,最後針對該欄篩選
08/08 13:14, 19F

08/08 13:15, , 20F
篩選出來後一次刪除 這樣或許會比較快
08/08 13:15, 20F

08/08 13:16, , 21F
判斷全為零 min=0 and max=0 如果資料都是數值的話
08/08 13:16, 21F
文章代碼(AID): #1LjcbVwa (Visual_Basic)
文章代碼(AID): #1LjcbVwa (Visual_Basic)