範囲内のすべての非表示セルをクリアする

Question

非常に簡単な質問です。私はエラーメッセージを受け取り続け、クラッシュするのに威力を発揮します。私のコードで何が間違っていますか：

Sub Clear() 

Dim c As Range 

For Each c In ActiveSheet.Range("HeatPump1").Cells 

    If c.EntireRow.Hidden = True Then 
     c.Clear 
    End If 
Next c 

End Sub 

Answer 1

どのラインがエラーを送出していますか？コードが実行されているときに、アクティブシートに "HeatPump1"という名前の範囲がありますか？

c.EntireRow.Hiddenはブール値なので、真であるかどうかを確認する必要はありません。あなたは、単に書くことができます。

If c.EntireRow.Hidden Then