コンテンツの合計= 0で空白をスキップすると、Excelの行を非表示にするにはどうすればよいですか？

Question

私は、下にある2つのコードを持っています。もう1つは、そこに含まれる値の合計に基づいて行が表示され、ゼロに等しくなります。しかし、このコードはセクション間のスペーサーなので、私が望ましくない空白行も隠します。アドバイスをいただければ幸いです。また、既存のコードを改善するための推奨事項がある場合は、それも高く評価されます。

Sub HideRows() 

Dim R As Long 
Dim Rng As Range 

    If Selection.Rows.Count > 1 Then 
     Set Rng = Selection 
    Else 
     Set Rng = ActiveSheet.UsedRange 
    End If 

    For R = 1 To Rng.Rows.Count 
     If Application.Sum(Range(Rng(R, 3), Rng(R, Rng.Columns.Count))) = 0# Then 
     Rng.Rows(R).Hidden = True 
     End If 
    Next R 

End Sub 
Sub UnHideRows() 

Dim R As Long 
Dim Rng As Range 

    If Selection.Rows.Count > 1 Then 
     Set Rng = Selection 
    Else 
     Set Rng = ActiveSheet.UsedRange 
    End If 

    For R = 1 To Rng.Rows.Count 
     If Application.Sum(Range(Rng(R, 3), Rng(R, Rng.Columns.Count))) = 0# Then 
     Rng.Rows(R).Hidden = False 
     End If 
    Next R 

End Sub 

Answer 1

この各方法におけるFORループ置き換える....その行範囲内のすべてのセルが空白であり、真の場合は、本質的に、さらなる処理をスキップするかどうかを確認するために

myRange = Range(Rng(R, 3), Rng(R, Rng.Columns.Count)) 
For R = 1 To Rng.Rows.Count 
    If Application.CountBlank(myRange) <> myRange.Cells.Count Then 
    If Application.Sum(myRange) = 0# Then 
     Rng.Rows(R).Hidden = True 
    End If 
Next R 

これは、最初に確認します。