Excel错误1004 - 运行时错误'1004'应用程序定义或对象定义的错误

Question

我试图清理我的spreedsheet。有很多空白单元正在抛弃计数。我试过使用这段代码，但它给我一个运行时错误。

Sub ClearAll() 
    Dim c As Range, MyRange As Range 

    Set MyRange = Range("A1:JS87") 

    For Each c In MyRange 
     If Len(c) = 0 Then c.ClearContents 
    Next c 

End Sub 

Answer 1

此错误可能是因为找到合并单元格（或同等学历）来触发。我做了一些测试，IsEmpty似乎跳过了这些情况。无论如何，我还包括一个错误捕捉到完全确定。

​​

Answer 2

或许这样：将c更改为单元格而不是范围，并且使用了单元格范围内的集合。

意识到你也可能需要c.value。否则，你在看什么细胞的属性？

Sub ClearAll() 
    Dim c As cell, MyRange As Range 

    Set MyRange = Range("A1:JS87") 

    For Each c In MyRange.cells 
     If Len(c.value) = 0 Then c.ClearContents 
    Next c 

End Sub 

MSFT Link