清除范围中的所有隐藏单元格

Question

非常简单的问题。我一直收到错误消息并且excel崩溃。我的代码有什么问题：

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

哪一行引发错误？你有一个名为＆＃34; HeatPump1＆＃34;代码运行时在活动工作表中？

另一方面，c.EntireRow.Hidden是一个布尔值，因此您不需要检查它是否为真。你可以简单地写一下：

    If c.EntireRow.Hidden Then