作者sarcasm ()
看板Visual_Basic
標題[VBA ] 提升Excel逐行判斷執行效率
時間Tue Jul 28 01:24:43 2015
為了跑公司資料分析自己透過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://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1438017887.A.EA4.html
1F：→ MOONRAKER: 沒什麼好辦法，你頂多可以改用loop...until 07/28 02:49
2F：→ MOONRAKER: 抱歉上面跳過，那沒什麼用 07/28 02:52
3F：→ MOONRAKER: 頂多把cells(r,2)="WW"放前面 或乾脆分開寫 看會不會比 07/28 02:53
4F：→ MOONRAKER: 較快 你要檢查4-100行是不是都0 唯一的辦法就是全都看 07/28 02:54
5F：→ MOONRAKER: 過一次 一萬列就是97萬格 不可能多快 07/28 02:54
6F：→ MOONRAKER: 又者我很懷疑叫用工作表函數的效率 你可以多用一個for 07/28 02:56
7F：→ MOONRAKER: 來檢查是不是都0 看是快還是慢 07/28 02:56
8F：→ hulapig: 可以加abs()函數,讓所有4至100欄的數字必為正值 07/28 06:01
9F：推 knstt: 你需要的是加Application.Calculation=xlCalculationManual 07/28 13:10
10F：→ knstt: 應該可大符提升速度 07/28 13:10
原來我弄錯了?!
11F：推 ClubT: 你可以先把要刪除的列數記下來，最後再一次刪除應該會快點 07/28 15:56
12F：→ ClubT: Sheet1.Range("2:3,5:5").Delete shift:=xlUp 07/28 16:00
13F：→ ClubT: 另外可以用CountIF的函數 07/28 16:08
14F：→ ClubT: 我認為慢的部分應該是刪除的部分而不是判斷式的部分 07/28 16:08
交叉測試了一下"刪除"這動作本身應該是最久的...
※ 編輯: sarcasm (114.34.85.249), 07/29/2015 14:20:40
15F：→ biglongtoday: 用specialcells 07/30 09:18
16F：→ hulapig: 如果不刪,將該列複製到另一個工作表,最後刪除原始工作表 07/30 11:30
17F：→ hulapig: 不知道會不會比較快 07/30 11:36
18F：推 Yaiba: 先移動到最下面再一次刪除應該可以省時間?! 07/30 16:53
19F：推 olycats: 多加入一欄，下公式判斷是否要刪除，最後針對該欄篩選 08/08 13:14
20F：→ olycats: 篩選出來後一次刪除 這樣或許會比較快 08/08 13:15
21F：→ olycats: 判斷全為零 min=0 and max=0 如果資料都是數值的話 08/08 13:16