より速い行を非表示にするVBA

Question

その行のセルがゼロ（または空）の場合、各行をチェックするコードがあります。行がそのルールに適用される場合、行は非表示になります。そうでなければ、それは目に見えるままです。コードは完璧に動作

、しかし、それは非常に非常に遅いです（私はそれを実行するたびに完了するのに約40秒かかります）。..

誰もが私のコードが遅い理由を参照して（または持っていることができれば、私は思っていましたあなたは（それぞれの行を非表示にしたときに、私は

Sub hide() 
' Macro hides all rows with position "zero" or "blank" 

    Dim wb As Workbook 
    Dim ws As Worksheet 
    Dim c As Range 
    Dim targetRange As Range 

    Set wb = ThisWorkbook 
    Set ws = wb.Sheets("Sheet 1") 
    Set targetRange = ws.Range("I10:N800") 

    targetRange.EntireRow.Hidden = False 

    For Each c In targetRange.Rows 
     If (WorksheetFunction.CountIf(c, "<>0") - WorksheetFunction.CountIf(c, "") = 0) And (WorksheetFunction.CountA(c) - WorksheetFunction.Count(c) = 0) Then 
     c.EntireRow.Hidden = True 
     End If 
    Next c 


End Sub 

Answer 1

あなたのコード内のアクションをconsuimngほとんどの時間は、あなたのケースでは、ワークシート上のアクションを実行するたびに..です私の現在のコード）よりも高速である使用できる代替複数回）、ここでは：

c.EntireRow.Hidden = True 

時間を節約するために、条件が満たされるたびに、範囲cをMergeRngに追加し、最後に（ループを終了すると）行全体を一度に非表示にします。しかし、最適化は、コードレビューに投稿するための候補かもしれ必要働く

Dim MergeRng As Range ' define range object 

For Each c In targetRange.Rows 
    If (WorksheetFunction.CountIf(c, "<>0") - WorksheetFunction.CountIf(c, "") = 0) And (WorksheetFunction.CountA(c) - WorksheetFunction.Count(c) = 0) Then 
     If Not MergeRng Is Nothing Then 
      Set MergeRng = Application.Union(MergeRng, c) 
     Else 
      Set MergeRng = c 
     End If 
    End If 
Next c 

' hide the entire rows of the merged range at one time 
MergeRng.EntireRow.Hidden = True