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

[sarcasm ()]

為了跑公司資料分析自己透過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
→ MOONRAKER: 沒什麼好辦法，你頂多可以改用loop...until
→ MOONRAKER: 抱歉上面跳過，那沒什麼用
→ MOONRAKER: 頂多把cells(r,2)="WW"放前面 或乾脆分開寫 看會不會比
→ MOONRAKER: 較快 你要檢查4-100行是不是都0 唯一的辦法就是全都看
→ MOONRAKER: 過一次 一萬列就是97萬格 不可能多快
→ MOONRAKER: 又者我很懷疑叫用工作表函數的效率 你可以多用一個for
→ MOONRAKER: 來檢查是不是都0 看是快還是慢
→ hulapig: 可以加abs()函數,讓所有4至100欄的數字必為正值
推 knstt: 你需要的是加Application.Calculation=xlCalculationManual
→ knstt: 應該可大符提升速度
原來我弄錯了?!
推 ClubT: 你可以先把要刪除的列數記下來，最後再一次刪除應該會快點
→ ClubT: Sheet1.Range("2:3,5:5").Delete shift:=xlUp
→ ClubT: 另外可以用CountIF的函數
→ ClubT: 我認為慢的部分應該是刪除的部分而不是判斷式的部分
交叉測試了一下"刪除"這動作本身應該是最久的...
※ 編輯: sarcasm (114.34.85.249), 07/29/2015 14:20:40
→ biglongtoday: 用specialcells
→ hulapig: 如果不刪,將該列複製到另一個工作表,最後刪除原始工作表
→ hulapig: 不知道會不會比較快
推 Yaiba: 先移動到最下面再一次刪除應該可以省時間?!
推 olycats: 多加入一欄，下公式判斷是否要刪除，最後針對該欄篩選
→ olycats: 篩選出來後一次刪除  這樣或許會比較快
→ olycats: 判斷全為零  min=0 and max=0 如果資料都是數值的話