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

非常简单的问题。 我不断收到错误消息和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

哪一行发生错误？ 代码运行时，活动表中是否有名为“HeatPump1”的范围？

在旁注中，c.EntireRow.Hidden是一个布尔值，所以你不需要检查它是否为真。 你可以简单地写：

  If c.EntireRow.Hidden Then